Discussion :

[HankMoody]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...?

[LimsWolf]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(ici_TaLigne,ici_TaColonne)

[HankMoody]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[LimsWolf]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[tompom3108]

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

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
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

[MarcelG]

Bonjour à toutes et tous,

(Si! Si! Ritorno)

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

Cela dit, restons simple.

A adapter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[HankMoody]

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

[MarcelG]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.