Simplifier la facon de conditionner des variables

[Thomas]

Bonjour le Forum,

dans ma macro, je dois conditionner mes variable,

mais le facteur commun est la ligne.

afin de diminuer la saisie de ces condition, est il possible d'utilider le dénominateur comun.

If Adres = Cells(23, 23) Then Postal = Cells(23, 24)
If Adres = Cells(23, 26) Then Postal = Cells(23, 24)
If Adres = Cells(24, 26) Then Postal = Cells(24, 24)
If Adres = Cells(24, 23) Then Postal = Cells(24, 24)
If Adres = Cells(25, 26) Then Postal = Cells(25, 24)
If Adres = Cells(25, 23) Then Postal = Cells(25, 24)
If Adres = Cells(26, 26) Then Postal = Cells(26, 24)
If Adres = Cells(26, 23) Then Postal = Cells(26, 24)
If Adres = Cells(23, 23) Then Pays = Cells(23, 22)
If Adres = Cells(23, 26) Then Pays = Cells(23, 22)
If Adres = Cells(24, 23) Then Pays = Cells(24, 22)
If Adres = Cells(24, 26) Then Pays = Cells(24, 22)
If Adres = Cells(25, 23) Then Pays = Cells(25, 22)
If Adres = Cells(25, 26) Then Pays = Cells(25, 22)
If Adres = Cells(26, 26) Then Pays = Cells(26, 22)
If Adres = Cells(26, 23) Then Pays = Cells(26, 22)

ma vision des choses serait plus du

If Adres = Cells (23, *) Then Postal = Cells (23, 24) & Pays = Cells(23, 22)

enfin un moyen de dire une fois si adres=... alors postal= et Pays =

D'avance merci

 

[Abel]

Bonjour Thomas,

Si la variable 'Adres' est définie comme une plage (Dim Adres as Range ou Public/Private Adres as Range) alors essaie :

If Adres.Row = 23 then blabla
If Adres.Row = ...

Tu peux essayer aussi Select Case

Select Case Adres.Row

Case 23
blabla ce qu'il faut faire

End Case

En espérant que cela te dépanne.

Abel.

 

[Thomas]

Merci abel pour ces bonnes infos

Thomas

 

[pat1545]

Hello,

A mon avis , il est possible de bien réduire ton code, mais il faudrait le voir en entier ...

Patrick

 

[galopin01]

bonjour
pas besoin de if :

i= Adres.Row
Postal = Cells (i, 24)
Pays = Cells(i, 22)

¿