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
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