Boucle dans une macro
Bonjour à tous,
J'essaye depuis plusieurs jours d'effectuer une macro mais elle ne fonctionne pas.
j'ai une colonne avec des codes (A, B, C...)
Ce que je veux c'est ajouter une colonne zone en fonction de la colonne codes du genre:
For i=1 to jusqu'a qu'il y'a des cellules non vides
if code=A then ecrire zone 1 Then
else ecrire zone 2
End if
J'ai testé le code suivant mais ça ne veut pas fonctionner.
Sub AjouterColZone()
Sheets("Feuil1").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
Range("B1").Select
ActiveCell.FormulaR1C1 = "Zone"
Range("B2").Select
Dim i As Integer
For i = 2 To
If Range("A" & i) = "A" Then
Range("B" & i) = "Zone 1"
Else
Range("B" & i) = "Zone 2"
End If
Next i
Range("B2").Select
Selection.AutoFill Destination:=Range("B2:B" & Range("A65536").End(xlUp).Row)
MsgBox "Une colonne Zone a été ajoutée au fichier de données", vbInformation, "Ajout effectué"
End Sub
Si quelqu'un sait comment résoudre ce problème, pourrait-il me guider ?
Merci d'avance.
Merci, cela fonctionne plutôt bien ^^
Je me demandais si possible d'insérer des or dans laa boucle du genre
For i to.................
Select Case .Range("A" & i)
Case "A" or case "B": .Range("B" & i) = "Zone 1"
Case "C": .Range("B" & i) = "Zone 2"
End Select
????
Je viens de trouver, il suffit juste de mettre une virgule et ajouter la lettre du style:
Case "A", "B": .Range("B" & i) = "Zone 1"
Merci beacoup pour ton aide frangy"!!!
A+