[E-03] VBA Pb Do..Loop until + Offset

Bonjour,

Je suis débutant sur VBA. Je suis entrain de travailler sur une petite macro afain d'automatiser de la saisie de données sous Excel 2003.

La problématique est très simple, en function de ce qu'il y a dans une cellule, je dois rentrer une info dans la cellule voisine, et ainsi de suite pour toute une colonne. Les données a rentrer sont répétitives.

J'ai donc saisi une fonction If...then..Else if comme ceci:

Code:

---

1 2 3

If Range("G2") = "STONYKARB" Then Range("H2") = "ARB01"   ElseIf Range("G2") = "IXOPROGLO" Then Range("H2") = "IXOPR"

---

Une fois une de ces deux conditions remplies, je souhaiterai aller à la ligne, cad à la cellule "G3" et recommencer l'opération jusqu'a la dernière cellule de mon tableau

J'avais donc envisager utiliser la fonction Do...Loop Until

Afin d'aller a la ligne la fonction Offset. La première ebauche de ma macro donnerait cela:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim Range As String   Do   If Range("G2") = "STONYKARB" Then Range("H2") = "ARB01"   ElseIf Range("G2") = "IXOPROGLO" Then Range("H2") = "IXOPR"   Range("G2").Offset(1, 0).Activate   Loop Until IsEmpty(Range("G65536").End(xlUp).Select)   End Sub

---

Je suis peut-etre (surement!) à coté de plaque...j'ai 2-3 livres VBA pr Excel malheureusement je n'y trouve pas mon bonheur.

En tout cas si jamais vous avez une indication/conseil à me donner ca serait top!!

Merci par avance!

Bastien

Bonjour,
Il y a deux soucis (au moins) dans ton code.
Il ne faut pas dimensioner ton Range en string
Le fait de nomer expressément tes cellule G2/H2 ne rend pas ta boucle dynamique.
Voici un code qui devrait correspondre à ce que tu veux, il y en a d'autres mais j'ai mes habitudes...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub testloop()   'Compte le nombre de ligne sur base du nombre d'enregistrement de la col.G DerLigne = Application.Subtotal(3, Sheets("sheet1").Range("G:G"))   'Boucle de 2 à la dernière ligne grace à la variable derLigne For i = 2 To DerLigne   If Cells(i, 7) = "STONYKARB" Then 'première "comparaison" Cells(i, 8) = "ARB01" End If   If Cells(i, 7) = "IXOPROGLO" Then 'deuxième "comparaison" Cells(i, 8) = "IXOPR" End If   Next i   End Sub

---

Bonne continuation

Bonjour,

Je procèderais plutôt comme cela :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub bastien06() Dim i As Integer Dim j As Integer Dim NbreLignes As Integer Dim cel As Range 'On affecte la cellule "G1" à la variable Cel Set cel = Range("G1") j = 1 'La ligne ci dessous compte le nombre de lignes qui contiennent qq chose 'en partant de G1 et on faisant -1 pour la première ligne qui correspond au titre de ta colonne NbreLignes = cel.End(xlDown).Row - 1 For i = 1 To NbreLignes If cel.Offset(i) = "STONYKARB" Then cel.Offset(i, j) = "ARB01" If cel.Offset(i) = "IXOPROGLO" Then cel.Offset(i, j) = "IXOPR" Next i End Sub

---

Bon courage

Cordialement

Salut Bastien06 et le forum
Comme l'expliquent les postes précédents, il est possible de mettre les lignes en variables et de faire évoluer cette variable
Range("G" et x) ou cells(x, "G") (par exemple

Tu peux aussi utiliser

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Test () Dim cel as range '........ for each cel in range([G1], [G65536].End(xlUp)) If cel = "STONYKARB" Then cel.offset(0,1) = "ARB01" ElseIf cel = "IXOPROGLO" Then cel.offset(0,1) = "IXOPR" End If next cel End Sub

---

Attention, il y a deux syntaxe possible pour if, mais une seul pour Else If
A+