Bonjour,

je suis débutant dans Excel VBA et je suis en train d'écrire une 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 même ordre...

voici le code et mercdi d'avance


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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