Test Sur autre colonne dans For Each In Selection

[jeremyz45]

Bonjour à tous, je viens requérir votre aide pour un léger soucis,

Dans une boucle For Each ref In Selection (je selectionne moi-même les cellules) je souhaite tester la valeur de droite "process" de chaque "ref" et effectuer des actions selon sa valeur mais je ne trouve pas comment faire...

Voici un petit bout de code et fichier joint pour exemple

Sub Test()

For Each ref In Selection

    Select Case process

        Case Is = 1

            Action 1

        Case Is = 2

            Action 2

        Case Else

    End Select

Next ref

End Sub

Merci d'avance

 

[Pierrot93]

Re : Test Sur autre colonne dans For Each In Selection

Bonjour,

si j'ai bien compris :

Dim ref As Range
For Each ref In Selection
    Select Case ref.Offset(0, 1)

bonne journée
@+

 

[jeremyz45]

Re : Test Sur autre colonne dans For Each In Selection

Re,

C'est exactement ca qu'il me fallait, thanks a lot !

Jérémy.