Bonjour,
Ces lignes de programme fonctionnent avec des valeurs de type string mais
pas numérique et c'est justement ce que je voudrais!
A1:A4 contiennent :
a1 > toto azertyxxxx
a2> tata azertymmmm
a3> titi azertybbbb
a4> tutu azertycccc
B1:B4 contiennent:
B1> toto
b2> xxxx
B3> rrrrrrr
B4> bbbbb
Worksheets("feuil1").Activate
Dim cel1 As Range
Dim cel2 As Range
For Each cel1 In Worksheets("feuil1").Range("a1:a4")
For Each cel2 In Worksheets("feuil1").Range("b1:b4")
If Left(cel1.Value, 4) = cel2.Value Then
MsgBox cel2.Value
End If
Next cel2
Next cel1
end sub
le msgbox va dans ce cas afficher "toto" puisque cette mention figure en B1
mais si je tape un numéro par ex 8000 à la place de " toto" en A1 et en B1
rien ne s'affiche!
Left() ne fonctionnerait-il pas qu'avec des données de type string ?
Y a-t-il une autre possibilité ?
Merci pour votre aide
Bonjour,
Bonjour,
Ces lignes de programme fonctionnent avec des valeurs de type string mais
pas numérique et c'est justement ce que je voudrais!
A1:A4 contiennent :
a1 > toto azertyxxxx
a2> tata azertymmmm
a3> titi azertybbbb
a4> tutu azertycccc
B1:B4 contiennent:
B1> toto
b2> xxxx
B3> rrrrrrr
B4> bbbbb
Worksheets("feuil1").Activate
Dim cel1 As Range
Dim cel2 As Range
For Each cel1 In Worksheets("feuil1").Range("a1:a4")
For Each cel2 In Worksheets("feuil1").Range("b1:b4")
If Left(cel1.Value, 4) = cel2.Value Then
MsgBox cel2.Value
End If
Next cel2
Next cel1
end sub
le msgbox va dans ce cas afficher "toto" puisque cette mention figure en B1
mais si je tape un numéro par ex 8000 à la place de " toto" en A1 et en B1
rien ne s'affiche!
Left() ne fonctionnerait-il pas qu'avec des données de type string ?
Y a-t-il une autre possibilité ?
Merci pour votre aide
Bonjour,
Bonjour,
Ces lignes de programme fonctionnent avec des valeurs de type string mais
pas numérique et c'est justement ce que je voudrais!
A1:A4 contiennent :
a1 > toto azertyxxxx
a2> tata azertymmmm
a3> titi azertybbbb
a4> tutu azertycccc
B1:B4 contiennent:
B1> toto
b2> xxxx
B3> rrrrrrr
B4> bbbbb
Worksheets("feuil1").Activate
Dim cel1 As Range
Dim cel2 As Range
For Each cel1 In Worksheets("feuil1").Range("a1:a4")
For Each cel2 In Worksheets("feuil1").Range("b1:b4")
If Left(cel1.Value, 4) = cel2.Value Then
MsgBox cel2.Value
End If
Next cel2
Next cel1
end sub
le msgbox va dans ce cas afficher "toto" puisque cette mention figure en B1
mais si je tape un numéro par ex 8000 à la place de " toto" en A1 et en B1
rien ne s'affiche!
Left() ne fonctionnerait-il pas qu'avec des données de type string ?
Y a-t-il une autre possibilité ?
Merci pour votre aide
Bonjour,
Bonjour,
Ces lignes de programme fonctionnent avec des valeurs de type string mais
pas numérique et c'est justement ce que je voudrais!
A1:A4 contiennent :
a1 > toto azertyxxxx
a2> tata azertymmmm
a3> titi azertybbbb
a4> tutu azertycccc
B1:B4 contiennent:
B1> toto
b2> xxxx
B3> rrrrrrr
B4> bbbbb
Worksheets("feuil1").Activate
Dim cel1 As Range
Dim cel2 As Range
For Each cel1 In Worksheets("feuil1").Range("a1:a4")
For Each cel2 In Worksheets("feuil1").Range("b1:b4")
If Left(cel1.Value, 4) = cel2.Value Then
MsgBox cel2.Value
End If
Next cel2
Next cel1
end sub
le msgbox va dans ce cas afficher "toto" puisque cette mention figure en B1
mais si je tape un numéro par ex 8000 à la place de " toto" en A1 et en B1
rien ne s'affiche!
Left() ne fonctionnerait-il pas qu'avec des données de type string ?
Y a-t-il une autre possibilité ?
Merci pour votre aide
Bonjour,
Ces lignes de programme fonctionnent avec des valeurs de type string mais
pas numérique et c'est justement ce que je voudrais!
A1:A4 contiennent :
a1 > toto azertyxxxx
a2> tata azertymmmm
a3> titi azertybbbb
a4> tutu azertycccc
B1:B4 contiennent:
B1> toto
b2> xxxx
B3> rrrrrrr
B4> bbbbb
Worksheets("feuil1").Activate
Dim cel1 As Range
Dim cel2 As Range
For Each cel1 In Worksheets("feuil1").Range("a1:a4")
For Each cel2 In Worksheets("feuil1").Range("b1:b4")
If Left(cel1.Value, 4) = cel2.Value Then
MsgBox cel2.Value
End If
Next cel2
Next cel1
end sub
le msgbox va dans ce cas afficher "toto" puisque cette mention figure en B1
mais si je tape un numéro par ex 8000 à la place de " toto" en A1 et en B1
rien ne s'affiche!
Left() ne fonctionnerait-il pas qu'avec des données de type string ?
Y a-t-il une autre possibilité ?
Merci pour votre aide
Bonjour,
Ces lignes de programme fonctionnent avec des valeurs de type string mais
pas numérique et c'est justement ce que je voudrais!
A1:A4 contiennent :
a1 > toto azertyxxxx
a2> tata azertymmmm
a3> titi azertybbbb
a4> tutu azertycccc
B1:B4 contiennent:
B1> toto
b2> xxxx
B3> rrrrrrr
B4> bbbbb
Worksheets("feuil1").Activate
Dim cel1 As Range
Dim cel2 As Range
For Each cel1 In Worksheets("feuil1").Range("a1:a4")
For Each cel2 In Worksheets("feuil1").Range("b1:b4")
If Left(cel1.Value, 4) = cel2.Value Then
MsgBox cel2.Value
End If
Next cel2
Next cel1
end sub
le msgbox va dans ce cas afficher "toto" puisque cette mention figure en B1
mais si je tape un numéro par ex 8000 à la place de " toto" en A1 et en B1
rien ne s'affiche!
Left() ne fonctionnerait-il pas qu'avec des données de type string ?
Y a-t-il une autre possibilité ?
Merci pour votre aide
*Bonjour Bidou*,
Le bout de classeur que je t'ai joint dans ton fil du 26/10/2005 à
22:37:02 ne te convenais pas ? J'ai pas eu de retour ! :/Bonjour,
Ces lignes de programme fonctionnent avec des valeurs de type string
mais
pas numérique et c'est justement ce que je voudrais!
A1:A4 contiennent :
a1 > toto azertyxxxx
a2> tata azertymmmm
a3> titi azertybbbb
a4> tutu azertycccc
B1:B4 contiennent:
B1> toto
b2> xxxx
B3> rrrrrrr
B4> bbbbb
Worksheets("feuil1").Activate
Dim cel1 As Range
Dim cel2 As Range
For Each cel1 In Worksheets("feuil1").Range("a1:a4")
For Each cel2 In Worksheets("feuil1").Range("b1:b4")
If Left(cel1.Value, 4) = cel2.Value Then
MsgBox cel2.Value
End If
Next cel2
Next cel1
end sub
le msgbox va dans ce cas afficher "toto" puisque cette mention figure
en B1
mais si je tape un numéro par ex 8000 à la place de " toto" en A1 et
en B1
rien ne s'affiche!
Left() ne fonctionnerait-il pas qu'avec des données de type string ?
Y a-t-il une autre possibilité ?
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*,
Le bout de classeur que je t'ai joint dans ton fil du 26/10/2005 à
22:37:02 ne te convenais pas ? J'ai pas eu de retour ! :/
Bonjour,
Ces lignes de programme fonctionnent avec des valeurs de type string
mais
pas numérique et c'est justement ce que je voudrais!
A1:A4 contiennent :
a1 > toto azertyxxxx
a2> tata azertymmmm
a3> titi azertybbbb
a4> tutu azertycccc
B1:B4 contiennent:
B1> toto
b2> xxxx
B3> rrrrrrr
B4> bbbbb
Worksheets("feuil1").Activate
Dim cel1 As Range
Dim cel2 As Range
For Each cel1 In Worksheets("feuil1").Range("a1:a4")
For Each cel2 In Worksheets("feuil1").Range("b1:b4")
If Left(cel1.Value, 4) = cel2.Value Then
MsgBox cel2.Value
End If
Next cel2
Next cel1
end sub
le msgbox va dans ce cas afficher "toto" puisque cette mention figure
en B1
mais si je tape un numéro par ex 8000 à la place de " toto" en A1 et
en B1
rien ne s'affiche!
Left() ne fonctionnerait-il pas qu'avec des données de type string ?
Y a-t-il une autre possibilité ?
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*,
Le bout de classeur que je t'ai joint dans ton fil du 26/10/2005 à
22:37:02 ne te convenais pas ? J'ai pas eu de retour ! :/Bonjour,
Ces lignes de programme fonctionnent avec des valeurs de type string
mais
pas numérique et c'est justement ce que je voudrais!
A1:A4 contiennent :
a1 > toto azertyxxxx
a2> tata azertymmmm
a3> titi azertybbbb
a4> tutu azertycccc
B1:B4 contiennent:
B1> toto
b2> xxxx
B3> rrrrrrr
B4> bbbbb
Worksheets("feuil1").Activate
Dim cel1 As Range
Dim cel2 As Range
For Each cel1 In Worksheets("feuil1").Range("a1:a4")
For Each cel2 In Worksheets("feuil1").Range("b1:b4")
If Left(cel1.Value, 4) = cel2.Value Then
MsgBox cel2.Value
End If
Next cel2
Next cel1
end sub
le msgbox va dans ce cas afficher "toto" puisque cette mention figure
en B1
mais si je tape un numéro par ex 8000 à la place de " toto" en A1 et
en B1
rien ne s'affiche!
Left() ne fonctionnerait-il pas qu'avec des données de type string ?
Y a-t-il une autre possibilité ?
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*,
Le bout de classeur que je t'ai joint dans ton fil du 26/10/2005 à
22:37:02 ne te convenais pas ? J'ai pas eu de retour ! :/Bonjour,
Ces lignes de programme fonctionnent avec des valeurs de type string
mais
pas numérique et c'est justement ce que je voudrais!
A1:A4 contiennent :
a1 > toto azertyxxxx
a2> tata azertymmmm
a3> titi azertybbbb
a4> tutu azertycccc
B1:B4 contiennent:
B1> toto
b2> xxxx
B3> rrrrrrr
B4> bbbbb
Worksheets("feuil1").Activate
Dim cel1 As Range
Dim cel2 As Range
For Each cel1 In Worksheets("feuil1").Range("a1:a4")
For Each cel2 In Worksheets("feuil1").Range("b1:b4")
If Left(cel1.Value, 4) = cel2.Value Then
MsgBox cel2.Value
End If
Next cel2
Next cel1
end sub
le msgbox va dans ce cas afficher "toto" puisque cette mention figure
en B1
mais si je tape un numéro par ex 8000 à la place de " toto" en A1 et
en B1
rien ne s'affiche!
Left() ne fonctionnerait-il pas qu'avec des données de type string ?
Y a-t-il une autre possibilité ?
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*,
Le bout de classeur que je t'ai joint dans ton fil du 26/10/2005 à
22:37:02 ne te convenais pas ? J'ai pas eu de retour ! :/
Bonjour,
Ces lignes de programme fonctionnent avec des valeurs de type string
mais
pas numérique et c'est justement ce que je voudrais!
A1:A4 contiennent :
a1 > toto azertyxxxx
a2> tata azertymmmm
a3> titi azertybbbb
a4> tutu azertycccc
B1:B4 contiennent:
B1> toto
b2> xxxx
B3> rrrrrrr
B4> bbbbb
Worksheets("feuil1").Activate
Dim cel1 As Range
Dim cel2 As Range
For Each cel1 In Worksheets("feuil1").Range("a1:a4")
For Each cel2 In Worksheets("feuil1").Range("b1:b4")
If Left(cel1.Value, 4) = cel2.Value Then
MsgBox cel2.Value
End If
Next cel2
Next cel1
end sub
le msgbox va dans ce cas afficher "toto" puisque cette mention figure
en B1
mais si je tape un numéro par ex 8000 à la place de " toto" en A1 et
en B1
rien ne s'affiche!
Left() ne fonctionnerait-il pas qu'avec des données de type string ?
Y a-t-il une autre possibilité ?
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*,
Le bout de classeur que je t'ai joint dans ton fil du 26/10/2005 à
22:37:02 ne te convenais pas ? J'ai pas eu de retour ! :/Bonjour,
Ces lignes de programme fonctionnent avec des valeurs de type string
mais
pas numérique et c'est justement ce que je voudrais!
A1:A4 contiennent :
a1 > toto azertyxxxx
a2> tata azertymmmm
a3> titi azertybbbb
a4> tutu azertycccc
B1:B4 contiennent:
B1> toto
b2> xxxx
B3> rrrrrrr
B4> bbbbb
Worksheets("feuil1").Activate
Dim cel1 As Range
Dim cel2 As Range
For Each cel1 In Worksheets("feuil1").Range("a1:a4")
For Each cel2 In Worksheets("feuil1").Range("b1:b4")
If Left(cel1.Value, 4) = cel2.Value Then
MsgBox cel2.Value
End If
Next cel2
Next cel1
end sub
le msgbox va dans ce cas afficher "toto" puisque cette mention figure
en B1
mais si je tape un numéro par ex 8000 à la place de " toto" en A1 et
en B1
rien ne s'affiche!
Left() ne fonctionnerait-il pas qu'avec des données de type string ?
Y a-t-il une autre possibilité ?
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/
Bonsoir jluc,
Un exemple de fichier contenant les plages à analyser valant mieux que de
longues explications, comment fait-on pour joindre un fichier- test comme tu
le fais ?
Merci pour ton aide
J'ai essayé ton bout de code mais j'ai du raté quelque chose parce que çà
ne fonctionne pas.
"JLuc" a écrit dans le message de news:*Bonjour Bidou*,
Le bout de classeur que je t'ai joint dans ton fil du 26/10/2005 à
22:37:02 ne te convenais pas ? J'ai pas eu de retour ! :/Bonjour,
Ces lignes de programme fonctionnent avec des valeurs de type string mais
pas numérique et c'est justement ce que je voudrais!
A1:A4 contiennent :
a1 > toto azertyxxxx
a2> tata azertymmmm
a3> titi azertybbbb
a4> tutu azertycccc
B1:B4 contiennent:
B1> toto
b2> xxxx
B3> rrrrrrr
B4> bbbbb
Worksheets("feuil1").Activate
Dim cel1 As Range
Dim cel2 As Range
For Each cel1 In Worksheets("feuil1").Range("a1:a4")
For Each cel2 In Worksheets("feuil1").Range("b1:b4")
If Left(cel1.Value, 4) = cel2.Value Then
MsgBox cel2.Value
End If
Next cel2
Next cel1
end sub
le msgbox va dans ce cas afficher "toto" puisque cette mention figure en
B1 mais si je tape un numéro par ex 8000 à la place de " toto" en A1 et
en B1 rien ne s'affiche!
Left() ne fonctionnerait-il pas qu'avec des données de type string ?
Y a-t-il une autre possibilité ?
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/
Bonsoir jluc,
Un exemple de fichier contenant les plages à analyser valant mieux que de
longues explications, comment fait-on pour joindre un fichier- test comme tu
le fais ?
Merci pour ton aide
J'ai essayé ton bout de code mais j'ai du raté quelque chose parce que çà
ne fonctionne pas.
"JLuc" <ns.jeanluc.laurent@free.fr.ns> a écrit dans le message de news:
mn.0c5e7d5b02311ca0.40692@free.fr.ns...
*Bonjour Bidou*,
Le bout de classeur que je t'ai joint dans ton fil du 26/10/2005 à
22:37:02 ne te convenais pas ? J'ai pas eu de retour ! :/
Bonjour,
Ces lignes de programme fonctionnent avec des valeurs de type string mais
pas numérique et c'est justement ce que je voudrais!
A1:A4 contiennent :
a1 > toto azertyxxxx
a2> tata azertymmmm
a3> titi azertybbbb
a4> tutu azertycccc
B1:B4 contiennent:
B1> toto
b2> xxxx
B3> rrrrrrr
B4> bbbbb
Worksheets("feuil1").Activate
Dim cel1 As Range
Dim cel2 As Range
For Each cel1 In Worksheets("feuil1").Range("a1:a4")
For Each cel2 In Worksheets("feuil1").Range("b1:b4")
If Left(cel1.Value, 4) = cel2.Value Then
MsgBox cel2.Value
End If
Next cel2
Next cel1
end sub
le msgbox va dans ce cas afficher "toto" puisque cette mention figure en
B1 mais si je tape un numéro par ex 8000 à la place de " toto" en A1 et
en B1 rien ne s'affiche!
Left() ne fonctionnerait-il pas qu'avec des données de type string ?
Y a-t-il une autre possibilité ?
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/
Bonsoir jluc,
Un exemple de fichier contenant les plages à analyser valant mieux que de
longues explications, comment fait-on pour joindre un fichier- test comme tu
le fais ?
Merci pour ton aide
J'ai essayé ton bout de code mais j'ai du raté quelque chose parce que çà
ne fonctionne pas.
"JLuc" a écrit dans le message de news:*Bonjour Bidou*,
Le bout de classeur que je t'ai joint dans ton fil du 26/10/2005 à
22:37:02 ne te convenais pas ? J'ai pas eu de retour ! :/Bonjour,
Ces lignes de programme fonctionnent avec des valeurs de type string mais
pas numérique et c'est justement ce que je voudrais!
A1:A4 contiennent :
a1 > toto azertyxxxx
a2> tata azertymmmm
a3> titi azertybbbb
a4> tutu azertycccc
B1:B4 contiennent:
B1> toto
b2> xxxx
B3> rrrrrrr
B4> bbbbb
Worksheets("feuil1").Activate
Dim cel1 As Range
Dim cel2 As Range
For Each cel1 In Worksheets("feuil1").Range("a1:a4")
For Each cel2 In Worksheets("feuil1").Range("b1:b4")
If Left(cel1.Value, 4) = cel2.Value Then
MsgBox cel2.Value
End If
Next cel2
Next cel1
end sub
le msgbox va dans ce cas afficher "toto" puisque cette mention figure en
B1 mais si je tape un numéro par ex 8000 à la place de " toto" en A1 et
en B1 rien ne s'affiche!
Left() ne fonctionnerait-il pas qu'avec des données de type string ?
Y a-t-il une autre possibilité ?
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*,
www.cjoint.comBonsoir jluc,
Un exemple de fichier contenant les plages à analyser valant mieux que
de
longues explications, comment fait-on pour joindre un fichier- test
comme tu
le fais ?
Merci pour ton aide
J'ai essayé ton bout de code mais j'ai du raté quelque chose parce que
çà
ne fonctionne pas.
"JLuc" a écrit dans le message de news:*Bonjour Bidou*,
Le bout de classeur que je t'ai joint dans ton fil du 26/10/2005 à
22:37:02 ne te convenais pas ? J'ai pas eu de retour ! :/Bonjour,
Ces lignes de programme fonctionnent avec des valeurs de type string
mais
pas numérique et c'est justement ce que je voudrais!
A1:A4 contiennent :
a1 > toto azertyxxxx
a2> tata azertymmmm
a3> titi azertybbbb
a4> tutu azertycccc
B1:B4 contiennent:
B1> toto
b2> xxxx
B3> rrrrrrr
B4> bbbbb
Worksheets("feuil1").Activate
Dim cel1 As Range
Dim cel2 As Range
For Each cel1 In Worksheets("feuil1").Range("a1:a4")
For Each cel2 In Worksheets("feuil1").Range("b1:b4")
If Left(cel1.Value, 4) = cel2.Value Then
MsgBox cel2.Value
End If
Next cel2
Next cel1
end sub
le msgbox va dans ce cas afficher "toto" puisque cette mention figure
en
B1 mais si je tape un numéro par ex 8000 à la place de " toto" en A1
et
en B1 rien ne s'affiche!
Left() ne fonctionnerait-il pas qu'avec des données de type string ?
Y a-t-il une autre possibilité ?
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/
--
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*,
www.cjoint.com
Bonsoir jluc,
Un exemple de fichier contenant les plages à analyser valant mieux que
de
longues explications, comment fait-on pour joindre un fichier- test
comme tu
le fais ?
Merci pour ton aide
J'ai essayé ton bout de code mais j'ai du raté quelque chose parce que
çà
ne fonctionne pas.
"JLuc" <ns.jeanluc.laurent@free.fr.ns> a écrit dans le message de news:
mn.0c5e7d5b02311ca0.40692@free.fr.ns...
*Bonjour Bidou*,
Le bout de classeur que je t'ai joint dans ton fil du 26/10/2005 à
22:37:02 ne te convenais pas ? J'ai pas eu de retour ! :/
Bonjour,
Ces lignes de programme fonctionnent avec des valeurs de type string
mais
pas numérique et c'est justement ce que je voudrais!
A1:A4 contiennent :
a1 > toto azertyxxxx
a2> tata azertymmmm
a3> titi azertybbbb
a4> tutu azertycccc
B1:B4 contiennent:
B1> toto
b2> xxxx
B3> rrrrrrr
B4> bbbbb
Worksheets("feuil1").Activate
Dim cel1 As Range
Dim cel2 As Range
For Each cel1 In Worksheets("feuil1").Range("a1:a4")
For Each cel2 In Worksheets("feuil1").Range("b1:b4")
If Left(cel1.Value, 4) = cel2.Value Then
MsgBox cel2.Value
End If
Next cel2
Next cel1
end sub
le msgbox va dans ce cas afficher "toto" puisque cette mention figure
en
B1 mais si je tape un numéro par ex 8000 à la place de " toto" en A1
et
en B1 rien ne s'affiche!
Left() ne fonctionnerait-il pas qu'avec des données de type string ?
Y a-t-il une autre possibilité ?
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/
--
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*,
www.cjoint.comBonsoir jluc,
Un exemple de fichier contenant les plages à analyser valant mieux que
de
longues explications, comment fait-on pour joindre un fichier- test
comme tu
le fais ?
Merci pour ton aide
J'ai essayé ton bout de code mais j'ai du raté quelque chose parce que
çà
ne fonctionne pas.
"JLuc" a écrit dans le message de news:*Bonjour Bidou*,
Le bout de classeur que je t'ai joint dans ton fil du 26/10/2005 à
22:37:02 ne te convenais pas ? J'ai pas eu de retour ! :/Bonjour,
Ces lignes de programme fonctionnent avec des valeurs de type string
mais
pas numérique et c'est justement ce que je voudrais!
A1:A4 contiennent :
a1 > toto azertyxxxx
a2> tata azertymmmm
a3> titi azertybbbb
a4> tutu azertycccc
B1:B4 contiennent:
B1> toto
b2> xxxx
B3> rrrrrrr
B4> bbbbb
Worksheets("feuil1").Activate
Dim cel1 As Range
Dim cel2 As Range
For Each cel1 In Worksheets("feuil1").Range("a1:a4")
For Each cel2 In Worksheets("feuil1").Range("b1:b4")
If Left(cel1.Value, 4) = cel2.Value Then
MsgBox cel2.Value
End If
Next cel2
Next cel1
end sub
le msgbox va dans ce cas afficher "toto" puisque cette mention figure
en
B1 mais si je tape un numéro par ex 8000 à la place de " toto" en A1
et
en B1 rien ne s'affiche!
Left() ne fonctionnerait-il pas qu'avec des données de type string ?
Y a-t-il une autre possibilité ?
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/
--
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/
Bonsoir Jluc
J'ai adapté ton code et çà fonctionne très bien les lignes que j'ai retenues
sont les suivantes:
Dim cellule1 As Range
Dim cellule2 As Range
For Each cellule1 In Worksheets("feuil1").Range("a1:a" &
Range("a65536").End(xlUp).Row)
For Each cellule2 In Worksheets("feuil1").Range("b1:b" &
Range("b65536").End(xlUp).Row)
If Int(Left(cellule1.Value), 4)) = cellule2.Value Then
MsgBox cellule2.Value
End If
Next cellule2
Next cellule1
"JLuc" a écrit dans le message de news:*Bonjour Bidou*,
www.cjoint.comBonsoir jluc,
Un exemple de fichier contenant les plages à analyser valant mieux que de
longues explications, comment fait-on pour joindre un fichier- test comme
tu le fais ?
Merci pour ton aide
J'ai essayé ton bout de code mais j'ai du raté quelque chose parce que çà
ne fonctionne pas.
"JLuc" a écrit dans le message de news:*Bonjour Bidou*,
Le bout de classeur que je t'ai joint dans ton fil du 26/10/2005 à
22:37:02 ne te convenais pas ? J'ai pas eu de retour ! :/Bonjour,
Ces lignes de programme fonctionnent avec des valeurs de type string mais
pas numérique et c'est justement ce que je voudrais!
A1:A4 contiennent :
a1 > toto azertyxxxx
a2> tata azertymmmm
a3> titi azertybbbb
a4> tutu azertycccc
B1:B4 contiennent:
B1> toto
b2> xxxx
B3> rrrrrrr
B4> bbbbb
Worksheets("feuil1").Activate
Dim cel1 As Range
Dim cel2 As Range
For Each cel1 In Worksheets("feuil1").Range("a1:a4")
For Each cel2 In Worksheets("feuil1").Range("b1:b4")
If Left(cel1.Value, 4) = cel2.Value Then
MsgBox cel2.Value
End If
Next cel2
Next cel1
end sub
le msgbox va dans ce cas afficher "toto" puisque cette mention figure en
B1 mais si je tape un numéro par ex 8000 à la place de " toto" en A1 et
en B1 rien ne s'affiche!
Left() ne fonctionnerait-il pas qu'avec des données de type string ?
Y a-t-il une autre possibilité ?
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/
--
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/
Bonsoir Jluc
J'ai adapté ton code et çà fonctionne très bien les lignes que j'ai retenues
sont les suivantes:
Dim cellule1 As Range
Dim cellule2 As Range
For Each cellule1 In Worksheets("feuil1").Range("a1:a" &
Range("a65536").End(xlUp).Row)
For Each cellule2 In Worksheets("feuil1").Range("b1:b" &
Range("b65536").End(xlUp).Row)
If Int(Left(cellule1.Value), 4)) = cellule2.Value Then
MsgBox cellule2.Value
End If
Next cellule2
Next cellule1
"JLuc" <ns.jeanluc.laurent@free.fr.ns> a écrit dans le message de news:
mn.0ca87d5b17815ed9.40692@free.fr.ns...
*Bonjour Bidou*,
www.cjoint.com
Bonsoir jluc,
Un exemple de fichier contenant les plages à analyser valant mieux que de
longues explications, comment fait-on pour joindre un fichier- test comme
tu le fais ?
Merci pour ton aide
J'ai essayé ton bout de code mais j'ai du raté quelque chose parce que çà
ne fonctionne pas.
"JLuc" <ns.jeanluc.laurent@free.fr.ns> a écrit dans le message de news:
mn.0c5e7d5b02311ca0.40692@free.fr.ns...
*Bonjour Bidou*,
Le bout de classeur que je t'ai joint dans ton fil du 26/10/2005 à
22:37:02 ne te convenais pas ? J'ai pas eu de retour ! :/
Bonjour,
Ces lignes de programme fonctionnent avec des valeurs de type string mais
pas numérique et c'est justement ce que je voudrais!
A1:A4 contiennent :
a1 > toto azertyxxxx
a2> tata azertymmmm
a3> titi azertybbbb
a4> tutu azertycccc
B1:B4 contiennent:
B1> toto
b2> xxxx
B3> rrrrrrr
B4> bbbbb
Worksheets("feuil1").Activate
Dim cel1 As Range
Dim cel2 As Range
For Each cel1 In Worksheets("feuil1").Range("a1:a4")
For Each cel2 In Worksheets("feuil1").Range("b1:b4")
If Left(cel1.Value, 4) = cel2.Value Then
MsgBox cel2.Value
End If
Next cel2
Next cel1
end sub
le msgbox va dans ce cas afficher "toto" puisque cette mention figure en
B1 mais si je tape un numéro par ex 8000 à la place de " toto" en A1 et
en B1 rien ne s'affiche!
Left() ne fonctionnerait-il pas qu'avec des données de type string ?
Y a-t-il une autre possibilité ?
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/
--
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/
Bonsoir Jluc
J'ai adapté ton code et çà fonctionne très bien les lignes que j'ai retenues
sont les suivantes:
Dim cellule1 As Range
Dim cellule2 As Range
For Each cellule1 In Worksheets("feuil1").Range("a1:a" &
Range("a65536").End(xlUp).Row)
For Each cellule2 In Worksheets("feuil1").Range("b1:b" &
Range("b65536").End(xlUp).Row)
If Int(Left(cellule1.Value), 4)) = cellule2.Value Then
MsgBox cellule2.Value
End If
Next cellule2
Next cellule1
"JLuc" a écrit dans le message de news:*Bonjour Bidou*,
www.cjoint.comBonsoir jluc,
Un exemple de fichier contenant les plages à analyser valant mieux que de
longues explications, comment fait-on pour joindre un fichier- test comme
tu le fais ?
Merci pour ton aide
J'ai essayé ton bout de code mais j'ai du raté quelque chose parce que çà
ne fonctionne pas.
"JLuc" a écrit dans le message de news:*Bonjour Bidou*,
Le bout de classeur que je t'ai joint dans ton fil du 26/10/2005 à
22:37:02 ne te convenais pas ? J'ai pas eu de retour ! :/Bonjour,
Ces lignes de programme fonctionnent avec des valeurs de type string mais
pas numérique et c'est justement ce que je voudrais!
A1:A4 contiennent :
a1 > toto azertyxxxx
a2> tata azertymmmm
a3> titi azertybbbb
a4> tutu azertycccc
B1:B4 contiennent:
B1> toto
b2> xxxx
B3> rrrrrrr
B4> bbbbb
Worksheets("feuil1").Activate
Dim cel1 As Range
Dim cel2 As Range
For Each cel1 In Worksheets("feuil1").Range("a1:a4")
For Each cel2 In Worksheets("feuil1").Range("b1:b4")
If Left(cel1.Value, 4) = cel2.Value Then
MsgBox cel2.Value
End If
Next cel2
Next cel1
end sub
le msgbox va dans ce cas afficher "toto" puisque cette mention figure en
B1 mais si je tape un numéro par ex 8000 à la place de " toto" en A1 et
en B1 rien ne s'affiche!
Left() ne fonctionnerait-il pas qu'avec des données de type string ?
Y a-t-il une autre possibilité ?
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/
--
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,
Ces lignes de programme fonctionnent avec des valeurs de type string mais
pas numérique et c'est justement ce que je voudrais!
A1:A4 contiennent :
a1 > toto azertyxxxx
a2> tata azertymmmm
a3> titi azertybbbb
a4> tutu azertycccc
B1:B4 contiennent:
B1> toto
b2> xxxx
B3> rrrrrrr
B4> bbbbb
Worksheets("feuil1").Activate
Dim cel1 As Range
Dim cel2 As Range
For Each cel1 In Worksheets("feuil1").Range("a1:a4")
For Each cel2 In Worksheets("feuil1").Range("b1:b4")
If Left(cel1.Value, 4) = cel2.Value Then
MsgBox cel2.Value
End If
Next cel2
Next cel1
end sub
le msgbox va dans ce cas afficher "toto" puisque cette mention figure en
B1
mais si je tape un numéro par ex 8000 à la place de " toto" en A1 et en
B1
rien ne s'affiche!
Left() ne fonctionnerait-il pas qu'avec des données de type string ?
Y a-t-il une autre possibilité ?
Merci pour votre aide
Bonjour,
Ces lignes de programme fonctionnent avec des valeurs de type string mais
pas numérique et c'est justement ce que je voudrais!
A1:A4 contiennent :
a1 > toto azertyxxxx
a2> tata azertymmmm
a3> titi azertybbbb
a4> tutu azertycccc
B1:B4 contiennent:
B1> toto
b2> xxxx
B3> rrrrrrr
B4> bbbbb
Worksheets("feuil1").Activate
Dim cel1 As Range
Dim cel2 As Range
For Each cel1 In Worksheets("feuil1").Range("a1:a4")
For Each cel2 In Worksheets("feuil1").Range("b1:b4")
If Left(cel1.Value, 4) = cel2.Value Then
MsgBox cel2.Value
End If
Next cel2
Next cel1
end sub
le msgbox va dans ce cas afficher "toto" puisque cette mention figure en
B1
mais si je tape un numéro par ex 8000 à la place de " toto" en A1 et en
B1
rien ne s'affiche!
Left() ne fonctionnerait-il pas qu'avec des données de type string ?
Y a-t-il une autre possibilité ?
Merci pour votre aide
Bonjour,
Ces lignes de programme fonctionnent avec des valeurs de type string mais
pas numérique et c'est justement ce que je voudrais!
A1:A4 contiennent :
a1 > toto azertyxxxx
a2> tata azertymmmm
a3> titi azertybbbb
a4> tutu azertycccc
B1:B4 contiennent:
B1> toto
b2> xxxx
B3> rrrrrrr
B4> bbbbb
Worksheets("feuil1").Activate
Dim cel1 As Range
Dim cel2 As Range
For Each cel1 In Worksheets("feuil1").Range("a1:a4")
For Each cel2 In Worksheets("feuil1").Range("b1:b4")
If Left(cel1.Value, 4) = cel2.Value Then
MsgBox cel2.Value
End If
Next cel2
Next cel1
end sub
le msgbox va dans ce cas afficher "toto" puisque cette mention figure en
B1
mais si je tape un numéro par ex 8000 à la place de " toto" en A1 et en
B1
rien ne s'affiche!
Left() ne fonctionnerait-il pas qu'avec des données de type string ?
Y a-t-il une autre possibilité ?
Merci pour votre aide