Discussion :

[nb26130]

Bonjour,

Je souhaite compléter une colonne dont certaines cellules sont vides quand une certaine condition est remplie dans une autre colonne ... (j'espère que je suis claire )

Mon code :

Code :

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

1
2
3
4
5
6
7
I = 3
        Do Until I > nbRowMax
            If .Range("W" & I) = "Oui" And .Range("V" + I) = "" Then
            .Range("V" & I) = "A définir"
            End If
            I = I + 1
        Loop

J'ai essayé avec et sans des parenthèses, rien ne fonctionne



Merci !

[halaster08]

Bonjour,

Pense a utiliser les balises code, ça le rend beaucoup plus lisible

rien ne fonctionne

Un message d'erreur ? si oui lequel et a quel ligne

Tu as des "." devant tes range mais de with visible, il serait plus facile de t'aider si tu mettais le code complet

[Doatyn]

Oui, ce serait plus propre comme ça :

Code :

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

1
2
3
4
5
6
7
8
 
Dim MaFeuille as Worksheet
Set MaFeuille = Activeworkbook.Worksheets("son nom")
 
'puis
 
    If MaFeuille.Range("W" & I) = "Oui" And MaFeuille.Range("V" + I) = "" Then
            MaFeuille.Range("V" & I) = "A définir"