VBA boucle for - problème incrémentation

Bonjour je souhaite sur une colonnes de 7 lignes mettre des valeurs en fonction de la colonne précédente

Code:

---

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

Sub loli() Dim b As Range   For i = 3 To 10 b = Range("Gi").Value If ActiveCell.Offset(, -1).Select = "x" Then c = "y" Else c = "z" End If Next End Sub

---

Mais il ne comprend pas que le i dans Gi fait référence à l'indice d'incrémentation! J'ai essayé également "G"& i &"" mais aucun changement.

Par ailleurs je ne sais pas si la suite du code est bon.

Une idée...?

Bonjour,
Qu'es que tu souhaite faire exactement entre tes données et tes cellules à remplir ?

Mais si non pour pour travailler avec des cellules variables il faut utiliser Cells(1,1) au lieu de Range("A1"). Car la Range("Gi"), il n'y a pas de variable là dedans, et ça désigne la colonne 191 d'excel si je ne m'abuse.

Code:

---

Cells(ici_TaLigne,ici_TaColonne)

---

Je souhaite remplir une colonne en fonction de la colonne précédente.
J'ai essayé avec cells:

Code:

---

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

Sub loli() Dim b As Range   For i = 3 To 10 b = Cells(10, i).Value If Cells(i,9).Value = "x" Then b = "y" Else b = "z" End If Next End Sub

---

Mais ça me dit lors de la ligne "b = cells(10,i).value" que la variable objet est non définie.

Bonjour je ne suis pas expert mais je vois un souci alors en attendant que des experts t'aident...

Code:

---

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

Dim sh As Worksheet, b As Range, i As Integer ' b As Range implique que b est une plage de cellule il faut écrire Set avant de déclarer   Set sh = ThisWorkbook.Worksheets("Feuil1")   For i = 3 To 10 Set b = sh.Range("G" & i) ' ou alors si Set b = sh.Cells(i, 7) (i est la ligne de 3 à 10, 7 est la colonne G) ' Si tu mets .value , b n'est plus un Range mais un string ou integer ou autre... 'exemple b = sh.Cells(i, 7).Value est alors tu dois mettre Dim b as integer pour un nombre entier, Dim b as string pour une chaîne de caractère) ' là je ne vois pas bien ce que tu veux faire mais déjà faut choisir un bon départ If ActiveCell.Offset(, -1).Select = "x" Then c = "y" Else c = "z" End If Next End Sub

---

Bon courage

Si j'ai bien compris ce que tu veux faire, mais j'en doute :p, tu n'a pas besoin d'ajouté des variables.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub loli()   For i = 3 To 10   If Cells(i, 9).Value = "x" Then Cells(i, 10).Value = "y" Else Cells(i, 10).Value = "z" End If Next End Sub

---

Bonjour à toutes et tous,

(Si! Si! Ritorno)

Comme dit précédemment, tu confonds cellule et valeur.

Cela dit, restons simple.

A adapter

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub loli() Dim i As Byte   For i = 3 To 10 With ActiveSheet.Cells(i, 10) .Value = IIf(.Offset(0, -1).Value = "x", "y", "z") End With Next i   End Sub

---

Ca marche !
Merci à tous pour vos réponses, vous risquez de me revoir bientot :)

Bonsoir,

J'ajouterai que s'il est besoin d'affecter une variable à un objet alors il est de bon aloi de la vider en fin de traitement.

Exemple

Code:

---

Set b = Nothing

---

Cette précaution permet de réutiliser la variable en évitant les confusions.

Hankmoody, n'oublie pas de positionner ton post en "Résolu".

Bon week-end à tous.