boucle et test sur une colonne

[malek713]

Bonjour,

je suis débutant dans Excel VBA et je suis entrain d'écrire un macro qui permet de parcourir les cellules d'une colonne, d'effectuer un test pour chaque cellule puis d'affecter une valeur dans une autre colonne tout en gardant le meme ordre...

voici le code et mercdi d'avance


Sub test1()
Const str1 As String = "APVD"
Const str2 As String = "OnGo"
Dim i As Integer
i = 2

With ActiveSheet

While Feuil1.Range("C" & i) <> ""
' On parcourt la colonne C

If (Feuil1.Range("C" & i).Value = str1) Or (Feuil1.Range("C" & i).Value = str2) Then

Feuil1.Range("J" & i) = "Active"
Else
Feuil1.Range("J" & i) = "Non-Active"
End If
i = i + 1

Wend
End With

End Sub

 

[Robert]

Re : boucle et test sur une colonne

Bonjour Malek, bonjour le forum,

Ton code est bon ! On peut toujours trouver mieux mais pas sûr que ce soit plus efficace... Une autre proposition si ça t'interesse :

Sub test1()
Const str1 As String = "APVD"
Const str2 As String = "OnGo"
Dim cel As Range
For Each cel In Sheets("Feuil1").Range("C2:C" & Sheets("Feuil1").Range("C65536").End(xlUp).Row)
    Select Case cel.Value
        Case str1, str2
            cel.Offset(0, 7).Value = "Active"
        Case Else
            cel.Offset(0, 7).Value = "Non-Active"
    End Select
Next cel
End Sub

 

[malek713]

Re : boucle et test sur une colonne

Merci beaucoup Robert