Comment écrire l'instruction suivante
dim cellule1 as range
dim cellule2 as range
For each cellule1 in worksheet("feuil1").range("a1:a10")
For each cellule2 in worksheet("feuil2").range("b1:b10")
si les quatre premières valeurs de la cellule balayée dans la feuil1
égalent une valeur déterminée figurant dans la plage b1:b10 de la feuill2
alors...
If Left(cellule1 ,4)= cellule2.value then ( et là ça plante !!)
end if
next cellule2
next cellule1
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JLuc
*Bonjour Bidou*,
Bonsoir,
Comment écrire l'instruction suivante dim cellule1 as range dim cellule2 as range For each cellule1 in worksheet("feuil1").range("a1:a10") For each cellule2 in worksheet("feuil2").range("b1:b10") si les quatre premières valeurs de la cellule balayée dans la feuil1 égalent une valeur déterminée figurant dans la plage b1:b10 de la feuill2 alors... If Left(cellule1 ,4)= cellule2.value then ( et là ça plante !!) Apparement, tu cherche a comparer un objet range avec une valeur
Essaie ca en modifiant les noms de feuilles et les plages :
Dim cellule1 As Range Dim cellule2 As Range For Each cellule1 In Worksheets("feuil1").Range("a17:a26") For Each cellule2 In Worksheets("feuil1").Range("b17:b26") If Left(cellule1.Value, 4) = cellule2.Value Then MsgBox cellule2.Value End If Next cellule2 Next cellule1
Tu avais aussi oublier les s a Worksheets
end if next cellule2 next cellule1
merci pour votre aide
-- JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs et astuces ! http://www.excelabo.net http://jacxl.free.fr/ http://dj.joss.free.fr/
*Bonjour Bidou*,
Bonsoir,
Comment écrire l'instruction suivante
dim cellule1 as range
dim cellule2 as range
For each cellule1 in worksheet("feuil1").range("a1:a10")
For each cellule2 in worksheet("feuil2").range("b1:b10")
si les quatre premières valeurs de la cellule balayée dans la feuil1
égalent une valeur déterminée figurant dans la plage b1:b10 de la feuill2
alors...
If Left(cellule1 ,4)= cellule2.value then ( et là ça plante !!)
Apparement, tu cherche a comparer un objet range avec une valeur
Essaie ca en modifiant les noms de feuilles et les plages :
Dim cellule1 As Range
Dim cellule2 As Range
For Each cellule1 In Worksheets("feuil1").Range("a17:a26")
For Each cellule2 In Worksheets("feuil1").Range("b17:b26")
If Left(cellule1.Value, 4) = cellule2.Value Then
MsgBox cellule2.Value
End If
Next cellule2
Next cellule1
Tu avais aussi oublier les s a Worksheets
end if
next cellule2
next cellule1
merci pour votre aide
--
JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
Comment écrire l'instruction suivante dim cellule1 as range dim cellule2 as range For each cellule1 in worksheet("feuil1").range("a1:a10") For each cellule2 in worksheet("feuil2").range("b1:b10") si les quatre premières valeurs de la cellule balayée dans la feuil1 égalent une valeur déterminée figurant dans la plage b1:b10 de la feuill2 alors... If Left(cellule1 ,4)= cellule2.value then ( et là ça plante !!) Apparement, tu cherche a comparer un objet range avec une valeur
Essaie ca en modifiant les noms de feuilles et les plages :
Dim cellule1 As Range Dim cellule2 As Range For Each cellule1 In Worksheets("feuil1").Range("a17:a26") For Each cellule2 In Worksheets("feuil1").Range("b17:b26") If Left(cellule1.Value, 4) = cellule2.Value Then MsgBox cellule2.Value End If Next cellule2 Next cellule1
Tu avais aussi oublier les s a Worksheets
end if next cellule2 next cellule1
merci pour votre aide
-- JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs et astuces ! http://www.excelabo.net http://jacxl.free.fr/ http://dj.joss.free.fr/
Bidou
Bonjour Jluc
Merci pour ton aide
"Bidou" a écrit dans le message de news: 435febdd$0$7865$
Bonsoir,
Comment écrire l'instruction suivante dim cellule1 as range dim cellule2 as range For each cellule1 in worksheet("feuil1").range("a1:a10") For each cellule2 in worksheet("feuil2").range("b1:b10") si les quatre premières valeurs de la cellule balayée dans la feuil1 égalent une valeur déterminée figurant dans la plage b1:b10 de la feuill2 alors... If Left(cellule1 ,4)= cellule2.value then ( et là ça plante !!) end if next cellule2 next cellule1
merci pour votre aide
Bonjour Jluc
Merci pour ton aide
"Bidou" <fa@wanadoo.fr> a écrit dans le message de news:
435febdd$0$7865$8fcfb975@news.wanadoo.fr...
Bonsoir,
Comment écrire l'instruction suivante
dim cellule1 as range
dim cellule2 as range
For each cellule1 in worksheet("feuil1").range("a1:a10")
For each cellule2 in worksheet("feuil2").range("b1:b10")
si les quatre premières valeurs de la cellule balayée dans la feuil1
égalent une valeur déterminée figurant dans la plage b1:b10 de la feuill2
alors...
If Left(cellule1 ,4)= cellule2.value then ( et là ça plante !!)
end if
next cellule2
next cellule1
"Bidou" a écrit dans le message de news: 435febdd$0$7865$
Bonsoir,
Comment écrire l'instruction suivante dim cellule1 as range dim cellule2 as range For each cellule1 in worksheet("feuil1").range("a1:a10") For each cellule2 in worksheet("feuil2").range("b1:b10") si les quatre premières valeurs de la cellule balayée dans la feuil1 égalent une valeur déterminée figurant dans la plage b1:b10 de la feuill2 alors... If Left(cellule1 ,4)= cellule2.value then ( et là ça plante !!) end if next cellule2 next cellule1
merci pour votre aide
Bidou
Bonjour,
J'ai tenté d'appliquer le programme mais le Msgbox n'ffiche rien ( aucun résultat ) .N'y aurait-il pas une histoire de coches dans outils/références ?
Merci pour votre aide
"Bidou" a écrit dans le message de news: 435febdd$0$7865$
Bonsoir,
Comment écrire l'instruction suivante dim cellule1 as range dim cellule2 as range For each cellule1 in worksheet("feuil1").range("a1:a10") For each cellule2 in worksheet("feuil2").range("b1:b10") si les quatre premières valeurs de la cellule balayée dans la feuil1 égalent une valeur déterminée figurant dans la plage b1:b10 de la feuill2 alors... If Left(cellule1 ,4)= cellule2.value then ( et là ça plante !!) end if next cellule2 next cellule1
merci pour votre aide
Bonjour,
J'ai tenté d'appliquer le programme mais le Msgbox n'ffiche rien ( aucun
résultat ) .N'y aurait-il pas une histoire de coches dans outils/références
?
Merci pour votre aide
"Bidou" <fa@wanadoo.fr> a écrit dans le message de news:
435febdd$0$7865$8fcfb975@news.wanadoo.fr...
Bonsoir,
Comment écrire l'instruction suivante
dim cellule1 as range
dim cellule2 as range
For each cellule1 in worksheet("feuil1").range("a1:a10")
For each cellule2 in worksheet("feuil2").range("b1:b10")
si les quatre premières valeurs de la cellule balayée dans la feuil1
égalent une valeur déterminée figurant dans la plage b1:b10 de la feuill2
alors...
If Left(cellule1 ,4)= cellule2.value then ( et là ça plante !!)
end if
next cellule2
next cellule1
J'ai tenté d'appliquer le programme mais le Msgbox n'ffiche rien ( aucun résultat ) .N'y aurait-il pas une histoire de coches dans outils/références ?
Merci pour votre aide
"Bidou" a écrit dans le message de news: 435febdd$0$7865$
Bonsoir,
Comment écrire l'instruction suivante dim cellule1 as range dim cellule2 as range For each cellule1 in worksheet("feuil1").range("a1:a10") For each cellule2 in worksheet("feuil2").range("b1:b10") si les quatre premières valeurs de la cellule balayée dans la feuil1 égalent une valeur déterminée figurant dans la plage b1:b10 de la feuill2 alors... If Left(cellule1 ,4)= cellule2.value then ( et là ça plante !!) end if next cellule2 next cellule1
merci pour votre aide
JLuc
*Bonjour Bidou*, Normalement non, ca fais parti complete de vba, fais voir le bout de code pour donner une idee du probleme
Bonjour,
J'ai tenté d'appliquer le programme mais le Msgbox n'ffiche rien ( aucun résultat ) .N'y aurait-il pas une histoire de coches dans outils/références ?
Merci pour votre aide
"Bidou" a écrit dans le message de news: 435febdd$0$7865$
Bonsoir,
Comment écrire l'instruction suivante dim cellule1 as range dim cellule2 as range For each cellule1 in worksheet("feuil1").range("a1:a10") For each cellule2 in worksheet("feuil2").range("b1:b10") si les quatre premières valeurs de la cellule balayée dans la feuil1 égalent une valeur déterminée figurant dans la plage b1:b10 de la feuill2 alors... If Left(cellule1 ,4)= cellule2.value then ( et là ça plante !!) end if next cellule2 next cellule1
merci pour votre aide
-- JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs et astuces ! http://www.excelabo.net http://jacxl.free.fr/ http://dj.joss.free.fr/
*Bonjour Bidou*,
Normalement non, ca fais parti complete de vba, fais voir le bout de
code pour donner une idee du probleme
Bonjour,
J'ai tenté d'appliquer le programme mais le Msgbox n'ffiche rien ( aucun
résultat ) .N'y aurait-il pas une histoire de coches dans outils/références
?
Merci pour votre aide
"Bidou" <fa@wanadoo.fr> a écrit dans le message de news:
435febdd$0$7865$8fcfb975@news.wanadoo.fr...
Bonsoir,
Comment écrire l'instruction suivante
dim cellule1 as range
dim cellule2 as range
For each cellule1 in worksheet("feuil1").range("a1:a10")
For each cellule2 in worksheet("feuil2").range("b1:b10")
si les quatre premières valeurs de la cellule balayée dans la feuil1
égalent une valeur déterminée figurant dans la plage b1:b10 de la feuill2
alors...
If Left(cellule1 ,4)= cellule2.value then ( et là ça plante !!)
end if
next cellule2
next cellule1
merci pour votre aide
--
JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
*Bonjour Bidou*, Normalement non, ca fais parti complete de vba, fais voir le bout de code pour donner une idee du probleme
Bonjour,
J'ai tenté d'appliquer le programme mais le Msgbox n'ffiche rien ( aucun résultat ) .N'y aurait-il pas une histoire de coches dans outils/références ?
Merci pour votre aide
"Bidou" a écrit dans le message de news: 435febdd$0$7865$
Bonsoir,
Comment écrire l'instruction suivante dim cellule1 as range dim cellule2 as range For each cellule1 in worksheet("feuil1").range("a1:a10") For each cellule2 in worksheet("feuil2").range("b1:b10") si les quatre premières valeurs de la cellule balayée dans la feuil1 égalent une valeur déterminée figurant dans la plage b1:b10 de la feuill2 alors... If Left(cellule1 ,4)= cellule2.value then ( et là ça plante !!) end if next cellule2 next cellule1
merci pour votre aide
-- JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs et astuces ! http://www.excelabo.net http://jacxl.free.fr/ http://dj.joss.free.fr/
