boucle et test sur une colonne

malek713 · 23 Novembre 2010

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 · 23 Novembre 2010

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 :

Code:

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 · 23 Novembre 2010

Re : boucle et test sur une colonne

Merci beaucoup Robert 🙂

boucle et test sur une colonne

malek713

Guest

Robert

XLDnaute Barbatruc

malek713

Guest

Discussions similaires

boucle et test sur une colonne

malek713

Guest

Robert

XLDnaute Barbatruc

malek713

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency