Simplification des répétitions de l'instruction "If" en VBA

[BChaly]

Bonsoir à tous,

Dans une macro j'ai le code suivant qui sélectionne la ligne correspondant à A1, A2, A3 etc...:

If SelectCell.Address = "$A$1" then SelectCell.EntireRow.Select
Else
If SelectCell.Address = "$A$2" then SelectCell.EntireRow.Select
Else
If SelectCell.Address = "$A$3" then SelectCell.EntireRow.Select...

et ainsi de suite jusqu'a $A$30.

Y-at-il une possibilité de simplifier ce code en une seule instruction "If"?

Merci pour votre aide.

Cordialement,

Chaly

 

[nyko283]

Re : Simplification des répétitions de l'instruction "If" en VBA

Bonsoir Chaly,le forum,

essai ceci :

If not intersect (SelectCell,Range("A1:A30")) is nothing then SelectCell.EntireRow.Select

 

[BChaly]

Re : Simplification des répétitions de l'instruction "If" en VBA

Bonsoir Nicolas,

Merci pour ta réponse.

Malheureusement ceci semble ne pas fonctionner.

En fait à la suite de mes 30 instructions "If", j'ai l'instruction:

Else
MsgBox "Sélection impossible"

(Au cas où la ligne sélectionnée est > à la ligne 30).

Avec ton code je n'ai plus la possibilité d'ajouter "Else", et la MsgBox apparait à chaque fois sans sélectionner de ligne.

Y-a-t-il une autre possibilité?

Chaly

 

[laurent950]

Re : Simplification des répétitions de l'instruction "If" en VBA

Bonsoir BChaly et NyKo83,

Peut être se code : (a adapter a votre macro)

Sub tets()

For i = 1 To 30

If SelectCell.Address = Cells(i, 1) Then
SelectCell.EntireRow.Select
Else
End If
Next i

End Sub

Laurent

 

[Compte Supprimé 979]

Re : Simplification des répétitions de l'instruction "If" en VBA

Bonjour le fil

Pourquoi pas simplement

If not intersect (SelectCell,Range("A1:A30")) is nothing then
  SelectCell.EntireRow.Select 
Else
  MsgBox "Sélection impossible"
Endif

A+

 

[BChaly]

Re : Simplification des répétitions de l'instruction "If" en VBA

Bonsoir Bruno,

C'est une solution simple et excellente!!!
Enorme Merci pour votre aide.

Chaly