Abileor J'ai interverti: lire cells(20,1) à la palce de cells(1,20) @+ tard RV
"RV" a écrit dans le message de news:
Bonsoir Abileor,
Remplacer cc par 81
If Cells(9, 81).Value = "NANA" then cells(1,20).value = Cells(9, 81).Value
Bonne soirée RV
"Abileor" a écrit dans le message de news: 45b525a8$0$5074$
Je voudrais comparer la valeur d'une cellule avec une condition... a priori ca ne marche pas
J'ai utilisé cette fonction
If Cells(9, cc).Value = "NANA" then Range("a20") = "Nana"
Il ne semble pas connaitre la commande Cells().value
merci d'avance
MichDenis
| If Cells(9, cc).Value = "NANA" then
If cc désigne la colonne CC, tu dois mettre la ou les lettres en guillemets comme ceci :
If Cells(9, "cc").Value = "NANA" then
"Abileor" a écrit dans le message de news: 45b525a8$0$5074$ Je voudrais comparer la valeur d'une cellule avec une condition... a priori ca ne marche pas
J'ai utilisé cette fonction
If Cells(9, cc).Value = "NANA" then Range("a20") = "Nana"
Il ne semble pas connaitre la commande Cells().value
merci d'avance
| If Cells(9, cc).Value = "NANA" then
If cc désigne la colonne CC, tu dois mettre la ou les
lettres en guillemets comme ceci :
If Cells(9, "cc").Value = "NANA" then
"Abileor" <abileor@yahoo.fr> a écrit dans le message de news:
45b525a8$0$5074$ba4acef3@news.orange.fr...
Je voudrais comparer la valeur d'une cellule avec une condition... a priori
ca ne marche pas
J'ai utilisé cette fonction
If Cells(9, cc).Value = "NANA" then
Range("a20") = "Nana"
Il ne semble pas connaitre la commande Cells().value
If cc désigne la colonne CC, tu dois mettre la ou les lettres en guillemets comme ceci :
If Cells(9, "cc").Value = "NANA" then
"Abileor" a écrit dans le message de news: 45b525a8$0$5074$ Je voudrais comparer la valeur d'une cellule avec une condition... a priori ca ne marche pas
J'ai utilisé cette fonction
If Cells(9, cc).Value = "NANA" then Range("a20") = "Nana"
Il ne semble pas connaitre la commande Cells().value
merci d'avance
Abileor
PArtant du principe que la synthaxe était bonne
je le suis appercu que c'est mes conditions et ma boucle qui ne l'était
Merci a tous
http://cjoint.com/?bxmMK6T2fq
Sub recherche() cc = 1 bb = 2 While cc <= 10 ' Test couleur vert pastel (35) If Cells(1, cc).Interior.ColorIndex <> 35 Then Cells(bb, 1).Value = "Pas vert" cc = cc + 1 bb = bb + 1 Else ' Test Contenu de la cellule If Cells(1, cc).Value = "NANA" Then Cells(bb, 1).Value = Cells(1, cc).Value bb = bb + 1 cc = cc + 1
Else Cells(bb, 1).Value = "Vert mais pas NANA" bb = bb + 1 cc = cc + 1 End If End If Wend End Sub
"JB" a écrit dans le message de news:
Bonsoir,
La syntaxe est bonne - Cells(Ligne, colonne) -. Quelle valeur y a t-il dans cc?
Msgbox cc
JB
Je voudrais comparer la valeur d'une cellule avec une condition... a priori ca ne marche pas
J'ai utilisé cette fonction
If Cells(9, cc).Value = "NANA" then Range("a20") = "Nana"
Il ne semble pas connaitre la commande Cells().value
merci d'avance
PArtant du principe que la synthaxe était bonne
je le suis appercu que c'est mes conditions et ma boucle qui ne l'était
Merci a tous
http://cjoint.com/?bxmMK6T2fq
Sub recherche()
cc = 1
bb = 2
While cc <= 10
' Test couleur vert pastel (35)
If Cells(1, cc).Interior.ColorIndex <> 35 Then
Cells(bb, 1).Value = "Pas vert"
cc = cc + 1
bb = bb + 1
Else
' Test Contenu de la cellule
If Cells(1, cc).Value = "NANA" Then
Cells(bb, 1).Value = Cells(1, cc).Value
bb = bb + 1
cc = cc + 1
Else
Cells(bb, 1).Value = "Vert mais pas NANA"
bb = bb + 1
cc = cc + 1
End If
End If
Wend
End Sub
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1169500312.716670.247560@l53g2000cwa.googlegroups.com...
Bonsoir,
La syntaxe est bonne - Cells(Ligne, colonne) -. Quelle valeur y a t-il
dans cc?
Msgbox cc
JB
Je voudrais comparer la valeur d'une cellule avec une condition... a
priori
ca ne marche pas
J'ai utilisé cette fonction
If Cells(9, cc).Value = "NANA" then
Range("a20") = "Nana"
Il ne semble pas connaitre la commande Cells().value
je le suis appercu que c'est mes conditions et ma boucle qui ne l'était
Merci a tous
http://cjoint.com/?bxmMK6T2fq
Sub recherche() cc = 1 bb = 2 While cc <= 10 ' Test couleur vert pastel (35) If Cells(1, cc).Interior.ColorIndex <> 35 Then Cells(bb, 1).Value = "Pas vert" cc = cc + 1 bb = bb + 1 Else ' Test Contenu de la cellule If Cells(1, cc).Value = "NANA" Then Cells(bb, 1).Value = Cells(1, cc).Value bb = bb + 1 cc = cc + 1
Else Cells(bb, 1).Value = "Vert mais pas NANA" bb = bb + 1 cc = cc + 1 End If End If Wend End Sub
"JB" a écrit dans le message de news:
Bonsoir,
La syntaxe est bonne - Cells(Ligne, colonne) -. Quelle valeur y a t-il dans cc?
Msgbox cc
JB
Je voudrais comparer la valeur d'une cellule avec une condition... a priori ca ne marche pas
J'ai utilisé cette fonction
If Cells(9, cc).Value = "NANA" then Range("a20") = "Nana"
Il ne semble pas connaitre la commande Cells().value
merci d'avance
Abileor
j'ai honte de taper avec des moufles... ;-(
"Abileor" a écrit dans le message de news: 45b5f478$0$27379$
PArtant du principe que la synthaxe était bonne
je le suis appercu que c'est mes conditions et ma boucle qui ne l'était
Merci a tous
http://cjoint.com/?bxmMK6T2fq
Sub recherche() cc = 1 bb = 2 While cc <= 10 ' Test couleur vert pastel (35) If Cells(1, cc).Interior.ColorIndex <> 35 Then Cells(bb, 1).Value = "Pas vert" cc = cc + 1 bb = bb + 1 Else ' Test Contenu de la cellule If Cells(1, cc).Value = "NANA" Then Cells(bb, 1).Value = Cells(1, cc).Value bb = bb + 1 cc = cc + 1
Else Cells(bb, 1).Value = "Vert mais pas NANA" bb = bb + 1 cc = cc + 1 End If End If Wend End Sub
"JB" a écrit dans le message de news:
Bonsoir,
La syntaxe est bonne - Cells(Ligne, colonne) -. Quelle valeur y a t-il dans cc?
Msgbox cc
JB
Je voudrais comparer la valeur d'une cellule avec une condition... a priori ca ne marche pas
J'ai utilisé cette fonction
If Cells(9, cc).Value = "NANA" then Range("a20") = "Nana"
Il ne semble pas connaitre la commande Cells().value
merci d'avance
j'ai honte de taper avec des moufles... ;-(
"Abileor" <abileor@yahoo.fr> a écrit dans le message de news:
45b5f478$0$27379$ba4acef3@news.orange.fr...
PArtant du principe que la synthaxe était bonne
je le suis appercu que c'est mes conditions et ma boucle qui ne l'était
Merci a tous
http://cjoint.com/?bxmMK6T2fq
Sub recherche()
cc = 1
bb = 2
While cc <= 10
' Test couleur vert pastel (35)
If Cells(1, cc).Interior.ColorIndex <> 35 Then
Cells(bb, 1).Value = "Pas vert"
cc = cc + 1
bb = bb + 1
Else
' Test Contenu de la cellule
If Cells(1, cc).Value = "NANA" Then
Cells(bb, 1).Value = Cells(1, cc).Value
bb = bb + 1
cc = cc + 1
Else
Cells(bb, 1).Value = "Vert mais pas NANA"
bb = bb + 1
cc = cc + 1
End If
End If
Wend
End Sub
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1169500312.716670.247560@l53g2000cwa.googlegroups.com...
Bonsoir,
La syntaxe est bonne - Cells(Ligne, colonne) -. Quelle valeur y a t-il
dans cc?
Msgbox cc
JB
Je voudrais comparer la valeur d'une cellule avec une condition... a
priori
ca ne marche pas
J'ai utilisé cette fonction
If Cells(9, cc).Value = "NANA" then
Range("a20") = "Nana"
Il ne semble pas connaitre la commande Cells().value
"Abileor" a écrit dans le message de news: 45b5f478$0$27379$
PArtant du principe que la synthaxe était bonne
je le suis appercu que c'est mes conditions et ma boucle qui ne l'était
Merci a tous
http://cjoint.com/?bxmMK6T2fq
Sub recherche() cc = 1 bb = 2 While cc <= 10 ' Test couleur vert pastel (35) If Cells(1, cc).Interior.ColorIndex <> 35 Then Cells(bb, 1).Value = "Pas vert" cc = cc + 1 bb = bb + 1 Else ' Test Contenu de la cellule If Cells(1, cc).Value = "NANA" Then Cells(bb, 1).Value = Cells(1, cc).Value bb = bb + 1 cc = cc + 1
Else Cells(bb, 1).Value = "Vert mais pas NANA" bb = bb + 1 cc = cc + 1 End If End If Wend End Sub
"JB" a écrit dans le message de news:
Bonsoir,
La syntaxe est bonne - Cells(Ligne, colonne) -. Quelle valeur y a t-il dans cc?
Msgbox cc
JB
Je voudrais comparer la valeur d'une cellule avec une condition... a priori ca ne marche pas
J'ai utilisé cette fonction
If Cells(9, cc).Value = "NANA" then Range("a20") = "Nana"
Il ne semble pas connaitre la commande Cells().value
