bonjour a tous et a toutes
j'aimerais savoir si a l'aide d'une macro de faire une recherche et que
l'orsque c'est trouver de mettre ok dans la collone de coté.
Exemple: je recherche le chiffre 5 dans la collone D
j'ai trouver 5 en D5 je met donc ok dans E5
est ce possible si oui
au secour..................
merci a tous
bonjour a tous et a toutes
j'aimerais savoir si a l'aide d'une macro de faire une recherche et que
l'orsque c'est trouver de mettre ok dans la collone de coté.
Exemple: je recherche le chiffre 5 dans la collone D
j'ai trouver 5 en D5 je met donc ok dans E5
est ce possible si oui
au secour..................
merci a tous
bonjour a tous et a toutes
j'aimerais savoir si a l'aide d'une macro de faire une recherche et que
l'orsque c'est trouver de mettre ok dans la collone de coté.
Exemple: je recherche le chiffre 5 dans la collone D
j'ai trouver 5 en D5 je met donc ok dans E5
est ce possible si oui
au secour..................
merci a tous
bonjour a tous et a toutes
j'aimerais savoir si a l'aide d'une macro de faire une recherche et que
l'orsque c'est trouver de mettre ok dans la collone de coté.
Exemple: je recherche le chiffre 5 dans la collone D
j'ai trouver 5 en D5 je met donc ok dans E5
est ce possible si oui
au secour..................
merci a tous
bonjour a tous et a toutes
j'aimerais savoir si a l'aide d'une macro de faire une recherche et que
l'orsque c'est trouver de mettre ok dans la collone de coté.
Exemple: je recherche le chiffre 5 dans la collone D
j'ai trouver 5 en D5 je met donc ok dans E5
est ce possible si oui
au secour..................
merci a tous
bonjour a tous et a toutes
j'aimerais savoir si a l'aide d'une macro de faire une recherche et que
l'orsque c'est trouver de mettre ok dans la collone de coté.
Exemple: je recherche le chiffre 5 dans la collone D
j'ai trouver 5 en D5 je met donc ok dans E5
est ce possible si oui
au secour..................
merci a tous
bonjour,
je ne suis pas sur d'avoir totalement compris ta question mais je te
propose
2 possibilités.
LA 1ere ne fait pas intervenir de macro.imaginons que ta plage de données
aille de A1 à A1000. tu écris dasn B1 la formule : =SI(A1=5;"OK";) et tu
copies la formule de B1 dans B2 jusqu'à B1000.
Chaque fois que tu auras OK dans la colonne B, c'est que la cellule dans
la
colone sera égale à 5.
Si tu tiens absolument à utliser les macros alosr tu peux écrire (en
supposant toujours que la plage de données soit A1:A1000.
Sub rech
set plage=range(cells(1,1),cells(1000,1))
for each c in plage
if c.value=5 then c.offset(0,1).value="OK"
next
End sub
J'espère avoir répondu à ta question. Il existe une auter varaiante en
utilisant la méthode Find qui est l'équivalent de Rechercher sous Excel.bonjour a tous et a toutes
j'aimerais savoir si a l'aide d'une macro de faire une recherche et que
l'orsque c'est trouver de mettre ok dans la collone de coté.
Exemple: je recherche le chiffre 5 dans la collone D
j'ai trouver 5 en D5 je met donc ok dans E5
est ce possible si oui
au secour..................
merci a tous
bonjour,
je ne suis pas sur d'avoir totalement compris ta question mais je te
propose
2 possibilités.
LA 1ere ne fait pas intervenir de macro.imaginons que ta plage de données
aille de A1 à A1000. tu écris dasn B1 la formule : =SI(A1=5;"OK";) et tu
copies la formule de B1 dans B2 jusqu'à B1000.
Chaque fois que tu auras OK dans la colonne B, c'est que la cellule dans
la
colone sera égale à 5.
Si tu tiens absolument à utliser les macros alosr tu peux écrire (en
supposant toujours que la plage de données soit A1:A1000.
Sub rech
set plage=range(cells(1,1),cells(1000,1))
for each c in plage
if c.value=5 then c.offset(0,1).value="OK"
next
End sub
J'espère avoir répondu à ta question. Il existe une auter varaiante en
utilisant la méthode Find qui est l'équivalent de Rechercher sous Excel.
bonjour a tous et a toutes
j'aimerais savoir si a l'aide d'une macro de faire une recherche et que
l'orsque c'est trouver de mettre ok dans la collone de coté.
Exemple: je recherche le chiffre 5 dans la collone D
j'ai trouver 5 en D5 je met donc ok dans E5
est ce possible si oui
au secour..................
merci a tous
bonjour,
je ne suis pas sur d'avoir totalement compris ta question mais je te
propose
2 possibilités.
LA 1ere ne fait pas intervenir de macro.imaginons que ta plage de données
aille de A1 à A1000. tu écris dasn B1 la formule : =SI(A1=5;"OK";) et tu
copies la formule de B1 dans B2 jusqu'à B1000.
Chaque fois que tu auras OK dans la colonne B, c'est que la cellule dans
la
colone sera égale à 5.
Si tu tiens absolument à utliser les macros alosr tu peux écrire (en
supposant toujours que la plage de données soit A1:A1000.
Sub rech
set plage=range(cells(1,1),cells(1000,1))
for each c in plage
if c.value=5 then c.offset(0,1).value="OK"
next
End sub
J'espère avoir répondu à ta question. Il existe une auter varaiante en
utilisant la méthode Find qui est l'équivalent de Rechercher sous Excel.bonjour a tous et a toutes
j'aimerais savoir si a l'aide d'une macro de faire une recherche et que
l'orsque c'est trouver de mettre ok dans la collone de coté.
Exemple: je recherche le chiffre 5 dans la collone D
j'ai trouver 5 en D5 je met donc ok dans E5
est ce possible si oui
au secour..................
merci a tous
bonjour stéphane le nouveau (nous sommes donc au moins 2)
peut-être pourrais-tu essayer cela à adapter à ta plage
Sub test()
For Each c In Range("D2:D19")
If c.Value = 5 Then c.Offset(0, 1).Value = "OK"
Next c
End Sub
HTH
jps
"stephane le nouveau" a écrit dans le message de
news:cnv8ju$4uh$bonjour a tous et a toutes
j'aimerais savoir si a l'aide d'une macro de faire une recherche et que
l'orsque c'est trouver de mettre ok dans la collone de coté.
Exemple: je recherche le chiffre 5 dans la collone D
j'ai trouver 5 en D5 je met donc ok dans E5
est ce possible si oui
au secour..................
merci a tous
bonjour stéphane le nouveau (nous sommes donc au moins 2)
peut-être pourrais-tu essayer cela à adapter à ta plage
Sub test()
For Each c In Range("D2:D19")
If c.Value = 5 Then c.Offset(0, 1).Value = "OK"
Next c
End Sub
HTH
jps
"stephane le nouveau" <pasdespam@tiscali.fr> a écrit dans le message de
news:cnv8ju$4uh$1@news.tiscali.fr...
bonjour a tous et a toutes
j'aimerais savoir si a l'aide d'une macro de faire une recherche et que
l'orsque c'est trouver de mettre ok dans la collone de coté.
Exemple: je recherche le chiffre 5 dans la collone D
j'ai trouver 5 en D5 je met donc ok dans E5
est ce possible si oui
au secour..................
merci a tous
bonjour stéphane le nouveau (nous sommes donc au moins 2)
peut-être pourrais-tu essayer cela à adapter à ta plage
Sub test()
For Each c In Range("D2:D19")
If c.Value = 5 Then c.Offset(0, 1).Value = "OK"
Next c
End Sub
HTH
jps
"stephane le nouveau" a écrit dans le message de
news:cnv8ju$4uh$bonjour a tous et a toutes
j'aimerais savoir si a l'aide d'une macro de faire une recherche et que
l'orsque c'est trouver de mettre ok dans la collone de coté.
Exemple: je recherche le chiffre 5 dans la collone D
j'ai trouver 5 en D5 je met donc ok dans E5
est ce possible si oui
au secour..................
merci a tous
bonjour
comme c'est pas forcement 5
on fait une boite qui demande
Sub test()
dim g
g=inputbox("qu'est qu'on cherche")
if g = "" then exit sub
For Each c In Range("D2:D19")
If c.Value = g Then c.Offset(0, 1).Value = "OK"
Next c
End Sub
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"jps" a écrit dans le message de
news:
bonjour stéphane le nouveau (nous sommes donc au moins 2)
peut-être pourrais-tu essayer cela à adapter à ta plage
Sub test()
For Each c In Range("D2:D19")
If c.Value = 5 Then c.Offset(0, 1).Value = "OK"
Next c
End Sub
HTH
jps
"stephane le nouveau" a écrit dans le message de
news:cnv8ju$4uh$bonjour a tous et a toutes
j'aimerais savoir si a l'aide d'une macro de faire une recherche et
que
l'orsque c'est trouver de mettre ok dans la collone de coté.
Exemple: je recherche le chiffre 5 dans la collone D
j'ai trouver 5 en D5 je met donc ok dans E5
est ce possible si oui
au secour..................
merci a tous
bonjour
comme c'est pas forcement 5
on fait une boite qui demande
Sub test()
dim g
g=inputbox("qu'est qu'on cherche")
if g = "" then exit sub
For Each c In Range("D2:D19")
If c.Value = g Then c.Offset(0, 1).Value = "OK"
Next c
End Sub
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"jps" <biscotteUnScudJpsabatdelaile@wanadoo.fr> a écrit dans le message de
news:OXETsvV0EHA.2228@TK2MSFTNGP15.phx.gbl...
bonjour stéphane le nouveau (nous sommes donc au moins 2)
peut-être pourrais-tu essayer cela à adapter à ta plage
Sub test()
For Each c In Range("D2:D19")
If c.Value = 5 Then c.Offset(0, 1).Value = "OK"
Next c
End Sub
HTH
jps
"stephane le nouveau" <pasdespam@tiscali.fr> a écrit dans le message de
news:cnv8ju$4uh$1@news.tiscali.fr...
bonjour a tous et a toutes
j'aimerais savoir si a l'aide d'une macro de faire une recherche et
que
l'orsque c'est trouver de mettre ok dans la collone de coté.
Exemple: je recherche le chiffre 5 dans la collone D
j'ai trouver 5 en D5 je met donc ok dans E5
est ce possible si oui
au secour..................
merci a tous
bonjour
comme c'est pas forcement 5
on fait une boite qui demande
Sub test()
dim g
g=inputbox("qu'est qu'on cherche")
if g = "" then exit sub
For Each c In Range("D2:D19")
If c.Value = g Then c.Offset(0, 1).Value = "OK"
Next c
End Sub
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"jps" a écrit dans le message de
news:
bonjour stéphane le nouveau (nous sommes donc au moins 2)
peut-être pourrais-tu essayer cela à adapter à ta plage
Sub test()
For Each c In Range("D2:D19")
If c.Value = 5 Then c.Offset(0, 1).Value = "OK"
Next c
End Sub
HTH
jps
"stephane le nouveau" a écrit dans le message de
news:cnv8ju$4uh$bonjour a tous et a toutes
j'aimerais savoir si a l'aide d'une macro de faire une recherche et
que
l'orsque c'est trouver de mettre ok dans la collone de coté.
Exemple: je recherche le chiffre 5 dans la collone D
j'ai trouver 5 en D5 je met donc ok dans E5
est ce possible si oui
au secour..................
merci a tous
bonjour
comme c'est pas forcement 5
on fait une boite qui demande
Sub test()
dim g
g=inputbox("qu'est qu'on cherche")
if g = "" then exit sub
For Each c In Range("D2:D19")
If c.Value = g Then c.Offset(0, 1).Value = "OK"
Next c
End Sub
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"jps" a écrit dans le message de
news:
bonjour stéphane le nouveau (nous sommes donc au moins 2)
peut-être pourrais-tu essayer cela à adapter à ta plage
Sub test()
For Each c In Range("D2:D19")
If c.Value = 5 Then c.Offset(0, 1).Value = "OK"
Next c
End Sub
HTH
jps
"stephane le nouveau" a écrit dans le message de
news:cnv8ju$4uh$bonjour a tous et a toutes
j'aimerais savoir si a l'aide d'une macro de faire une recherche et
que
l'orsque c'est trouver de mettre ok dans la collone de coté.
Exemple: je recherche le chiffre 5 dans la collone D
j'ai trouver 5 en D5 je met donc ok dans E5
est ce possible si oui
au secour..................
merci a tous
bonjour
comme c'est pas forcement 5
on fait une boite qui demande
Sub test()
dim g
g=inputbox("qu'est qu'on cherche")
if g = "" then exit sub
For Each c In Range("D2:D19")
If c.Value = g Then c.Offset(0, 1).Value = "OK"
Next c
End Sub
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"jps" <biscotteUnScudJpsabatdelaile@wanadoo.fr> a écrit dans le message de
news:OXETsvV0EHA.2228@TK2MSFTNGP15.phx.gbl...
bonjour stéphane le nouveau (nous sommes donc au moins 2)
peut-être pourrais-tu essayer cela à adapter à ta plage
Sub test()
For Each c In Range("D2:D19")
If c.Value = 5 Then c.Offset(0, 1).Value = "OK"
Next c
End Sub
HTH
jps
"stephane le nouveau" <pasdespam@tiscali.fr> a écrit dans le message de
news:cnv8ju$4uh$1@news.tiscali.fr...
bonjour a tous et a toutes
j'aimerais savoir si a l'aide d'une macro de faire une recherche et
que
l'orsque c'est trouver de mettre ok dans la collone de coté.
Exemple: je recherche le chiffre 5 dans la collone D
j'ai trouver 5 en D5 je met donc ok dans E5
est ce possible si oui
au secour..................
merci a tous
bonjour
comme c'est pas forcement 5
on fait une boite qui demande
Sub test()
dim g
g=inputbox("qu'est qu'on cherche")
if g = "" then exit sub
For Each c In Range("D2:D19")
If c.Value = g Then c.Offset(0, 1).Value = "OK"
Next c
End Sub
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"jps" a écrit dans le message de
news:
bonjour stéphane le nouveau (nous sommes donc au moins 2)
peut-être pourrais-tu essayer cela à adapter à ta plage
Sub test()
For Each c In Range("D2:D19")
If c.Value = 5 Then c.Offset(0, 1).Value = "OK"
Next c
End Sub
HTH
jps
"stephane le nouveau" a écrit dans le message de
news:cnv8ju$4uh$bonjour a tous et a toutes
j'aimerais savoir si a l'aide d'une macro de faire une recherche et
que
l'orsque c'est trouver de mettre ok dans la collone de coté.
Exemple: je recherche le chiffre 5 dans la collone D
j'ai trouver 5 en D5 je met donc ok dans E5
est ce possible si oui
au secour..................
merci a tous
je viens d'essayer et l'ai bien laboite de dialogue mais il ne me mes plus
le "OK"
"Pierre CFI [mvp]" a écrit dans le message de
news:bonjour
comme c'est pas forcement 5
on fait une boite qui demande
Sub test()
dim g
g=inputbox("qu'est qu'on cherche")
if g = "" then exit sub
For Each c In Range("D2:D19")
If c.Value = g Then c.Offset(0, 1).Value = "OK"
Next c
End Sub
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"jps" a écrit dans le message de
news:bonjour stéphane le nouveau (nous sommes donc au moins 2)
peut-être pourrais-tu essayer cela à adapter à ta plage
Sub test()
For Each c In Range("D2:D19")
If c.Value = 5 Then c.Offset(0, 1).Value = "OK"
Next c
End Sub
HTH
jps
"stephane le nouveau" a écrit dans le message de
news:cnv8ju$4uh$bonjour a tous et a toutes
j'aimerais savoir si a l'aide d'une macro de faire une recherche et
quel'orsque c'est trouver de mettre ok dans la collone de coté.
Exemple: je recherche le chiffre 5 dans la collone D
j'ai trouver 5 en D5 je met donc ok dans E5
est ce possible si oui
au secour..................
merci a tous
je viens d'essayer et l'ai bien laboite de dialogue mais il ne me mes plus
le "OK"
"Pierre CFI [mvp]" <XXX_pierresalaun@aol.com> a écrit dans le message de
news:OWvCoKW0EHA.2676@TK2MSFTNGP12.phx.gbl...
bonjour
comme c'est pas forcement 5
on fait une boite qui demande
Sub test()
dim g
g=inputbox("qu'est qu'on cherche")
if g = "" then exit sub
For Each c In Range("D2:D19")
If c.Value = g Then c.Offset(0, 1).Value = "OK"
Next c
End Sub
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"jps" <biscotteUnScudJpsabatdelaile@wanadoo.fr> a écrit dans le message de
news:OXETsvV0EHA.2228@TK2MSFTNGP15.phx.gbl...
bonjour stéphane le nouveau (nous sommes donc au moins 2)
peut-être pourrais-tu essayer cela à adapter à ta plage
Sub test()
For Each c In Range("D2:D19")
If c.Value = 5 Then c.Offset(0, 1).Value = "OK"
Next c
End Sub
HTH
jps
"stephane le nouveau" <pasdespam@tiscali.fr> a écrit dans le message de
news:cnv8ju$4uh$1@news.tiscali.fr...
bonjour a tous et a toutes
j'aimerais savoir si a l'aide d'une macro de faire une recherche et
que
l'orsque c'est trouver de mettre ok dans la collone de coté.
Exemple: je recherche le chiffre 5 dans la collone D
j'ai trouver 5 en D5 je met donc ok dans E5
est ce possible si oui
au secour..................
merci a tous
je viens d'essayer et l'ai bien laboite de dialogue mais il ne me mes plus
le "OK"
"Pierre CFI [mvp]" a écrit dans le message de
news:bonjour
comme c'est pas forcement 5
on fait une boite qui demande
Sub test()
dim g
g=inputbox("qu'est qu'on cherche")
if g = "" then exit sub
For Each c In Range("D2:D19")
If c.Value = g Then c.Offset(0, 1).Value = "OK"
Next c
End Sub
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"jps" a écrit dans le message de
news:bonjour stéphane le nouveau (nous sommes donc au moins 2)
peut-être pourrais-tu essayer cela à adapter à ta plage
Sub test()
For Each c In Range("D2:D19")
If c.Value = 5 Then c.Offset(0, 1).Value = "OK"
Next c
End Sub
HTH
jps
"stephane le nouveau" a écrit dans le message de
news:cnv8ju$4uh$bonjour a tous et a toutes
j'aimerais savoir si a l'aide d'une macro de faire une recherche et
quel'orsque c'est trouver de mettre ok dans la collone de coté.
Exemple: je recherche le chiffre 5 dans la collone D
j'ai trouver 5 en D5 je met donc ok dans E5
est ce possible si oui
au secour..................
merci a tous
meric à toi, ô grand scudeur, d'avoir assuré l'intérim pendant ma sieste...
jps
"Pierre CFI [mvp]" a écrit dans le message de
news:bonjour
comme c'est pas forcement 5
on fait une boite qui demande
Sub test()
dim g
g=inputbox("qu'est qu'on cherche")
if g = "" then exit sub
For Each c In Range("D2:D19")
If c.Value = g Then c.Offset(0, 1).Value = "OK"
Next c
End Sub
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"jps" a écrit dans le message de
news:bonjour stéphane le nouveau (nous sommes donc au moins 2)
peut-être pourrais-tu essayer cela à adapter à ta plage
Sub test()
For Each c In Range("D2:D19")
If c.Value = 5 Then c.Offset(0, 1).Value = "OK"
Next c
End Sub
HTH
jps
"stephane le nouveau" a écrit dans le message de
news:cnv8ju$4uh$bonjour a tous et a toutes
j'aimerais savoir si a l'aide d'une macro de faire une recherche et
quel'orsque c'est trouver de mettre ok dans la collone de coté.
Exemple: je recherche le chiffre 5 dans la collone D
j'ai trouver 5 en D5 je met donc ok dans E5
est ce possible si oui
au secour..................
merci a tous
meric à toi, ô grand scudeur, d'avoir assuré l'intérim pendant ma sieste...
jps
"Pierre CFI [mvp]" <XXX_pierresalaun@aol.com> a écrit dans le message de
news:OWvCoKW0EHA.2676@TK2MSFTNGP12.phx.gbl...
bonjour
comme c'est pas forcement 5
on fait une boite qui demande
Sub test()
dim g
g=inputbox("qu'est qu'on cherche")
if g = "" then exit sub
For Each c In Range("D2:D19")
If c.Value = g Then c.Offset(0, 1).Value = "OK"
Next c
End Sub
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"jps" <biscotteUnScudJpsabatdelaile@wanadoo.fr> a écrit dans le message de
news:OXETsvV0EHA.2228@TK2MSFTNGP15.phx.gbl...
bonjour stéphane le nouveau (nous sommes donc au moins 2)
peut-être pourrais-tu essayer cela à adapter à ta plage
Sub test()
For Each c In Range("D2:D19")
If c.Value = 5 Then c.Offset(0, 1).Value = "OK"
Next c
End Sub
HTH
jps
"stephane le nouveau" <pasdespam@tiscali.fr> a écrit dans le message de
news:cnv8ju$4uh$1@news.tiscali.fr...
bonjour a tous et a toutes
j'aimerais savoir si a l'aide d'une macro de faire une recherche et
que
l'orsque c'est trouver de mettre ok dans la collone de coté.
Exemple: je recherche le chiffre 5 dans la collone D
j'ai trouver 5 en D5 je met donc ok dans E5
est ce possible si oui
au secour..................
merci a tous
meric à toi, ô grand scudeur, d'avoir assuré l'intérim pendant ma sieste...
jps
"Pierre CFI [mvp]" a écrit dans le message de
news:bonjour
comme c'est pas forcement 5
on fait une boite qui demande
Sub test()
dim g
g=inputbox("qu'est qu'on cherche")
if g = "" then exit sub
For Each c In Range("D2:D19")
If c.Value = g Then c.Offset(0, 1).Value = "OK"
Next c
End Sub
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"jps" a écrit dans le message de
news:bonjour stéphane le nouveau (nous sommes donc au moins 2)
peut-être pourrais-tu essayer cela à adapter à ta plage
Sub test()
For Each c In Range("D2:D19")
If c.Value = 5 Then c.Offset(0, 1).Value = "OK"
Next c
End Sub
HTH
jps
"stephane le nouveau" a écrit dans le message de
news:cnv8ju$4uh$bonjour a tous et a toutes
j'aimerais savoir si a l'aide d'une macro de faire une recherche et
quel'orsque c'est trouver de mettre ok dans la collone de coté.
Exemple: je recherche le chiffre 5 dans la collone D
j'ai trouver 5 en D5 je met donc ok dans E5
est ce possible si oui
au secour..................
merci a tous
.../...
mets çà mais, hum
If c.Value = val(g) Then c.Offset(0, 1).Value = "OK"
la valeur que tu tape est bien dans la liste ?
ici, je suppose que tu n'as que des valeurs entiéres
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"stephane le nouveau" a écrit dans le message de
news:cnvg0g$jk5$
je viens d'essayer et l'ai bien laboite de dialogue mais il ne me mes
plus
le "OK"
"Pierre CFI [mvp]" a écrit dans le message de
news:bonjour
comme c'est pas forcement 5
on fait une boite qui demande
Sub test()
dim g
g=inputbox("qu'est qu'on cherche")
if g = "" then exit sub
For Each c In Range("D2:D19")
If c.Value = g Then c.Offset(0, 1).Value = "OK"
Next c
End Sub
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"jps" a écrit dans le
message de
news:bonjour stéphane le nouveau (nous sommes donc au moins 2)
peut-être pourrais-tu essayer cela à adapter à ta plage
Sub test()
For Each c In Range("D2:D19")
If c.Value = 5 Then c.Offset(0, 1).Value = "OK"
Next c
End Sub
HTH
jps
"stephane le nouveau" a écrit dans le message
de
news:cnv8ju$4uh$bonjour a tous et a toutes
j'aimerais savoir si a l'aide d'une macro de faire une recherche
et
quel'orsque c'est trouver de mettre ok dans la collone de coté.
Exemple: je recherche le chiffre 5 dans la collone D
j'ai trouver 5 en D5 je met donc ok dans E5
est ce possible si oui
au secour..................
merci a tous
.../...
mets çà mais, hum
If c.Value = val(g) Then c.Offset(0, 1).Value = "OK"
la valeur que tu tape est bien dans la liste ?
ici, je suppose que tu n'as que des valeurs entiéres
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"stephane le nouveau" <pasdespam@tiscali.fr> a écrit dans le message de
news:cnvg0g$jk5$1@news.tiscali.fr...
je viens d'essayer et l'ai bien laboite de dialogue mais il ne me mes
plus
le "OK"
"Pierre CFI [mvp]" <XXX_pierresalaun@aol.com> a écrit dans le message de
news:OWvCoKW0EHA.2676@TK2MSFTNGP12.phx.gbl...
bonjour
comme c'est pas forcement 5
on fait une boite qui demande
Sub test()
dim g
g=inputbox("qu'est qu'on cherche")
if g = "" then exit sub
For Each c In Range("D2:D19")
If c.Value = g Then c.Offset(0, 1).Value = "OK"
Next c
End Sub
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"jps" <biscotteUnScudJpsabatdelaile@wanadoo.fr> a écrit dans le
message de
news:OXETsvV0EHA.2228@TK2MSFTNGP15.phx.gbl...
bonjour stéphane le nouveau (nous sommes donc au moins 2)
peut-être pourrais-tu essayer cela à adapter à ta plage
Sub test()
For Each c In Range("D2:D19")
If c.Value = 5 Then c.Offset(0, 1).Value = "OK"
Next c
End Sub
HTH
jps
"stephane le nouveau" <pasdespam@tiscali.fr> a écrit dans le message
de
news:cnv8ju$4uh$1@news.tiscali.fr...
bonjour a tous et a toutes
j'aimerais savoir si a l'aide d'une macro de faire une recherche
et
que
l'orsque c'est trouver de mettre ok dans la collone de coté.
Exemple: je recherche le chiffre 5 dans la collone D
j'ai trouver 5 en D5 je met donc ok dans E5
est ce possible si oui
au secour..................
merci a tous
.../...
mets çà mais, hum
If c.Value = val(g) Then c.Offset(0, 1).Value = "OK"
la valeur que tu tape est bien dans la liste ?
ici, je suppose que tu n'as que des valeurs entiéres
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"stephane le nouveau" a écrit dans le message de
news:cnvg0g$jk5$
je viens d'essayer et l'ai bien laboite de dialogue mais il ne me mes
plus
le "OK"
"Pierre CFI [mvp]" a écrit dans le message de
news:bonjour
comme c'est pas forcement 5
on fait une boite qui demande
Sub test()
dim g
g=inputbox("qu'est qu'on cherche")
if g = "" then exit sub
For Each c In Range("D2:D19")
If c.Value = g Then c.Offset(0, 1).Value = "OK"
Next c
End Sub
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"jps" a écrit dans le
message de
news:bonjour stéphane le nouveau (nous sommes donc au moins 2)
peut-être pourrais-tu essayer cela à adapter à ta plage
Sub test()
For Each c In Range("D2:D19")
If c.Value = 5 Then c.Offset(0, 1).Value = "OK"
Next c
End Sub
HTH
jps
"stephane le nouveau" a écrit dans le message
de
news:cnv8ju$4uh$bonjour a tous et a toutes
j'aimerais savoir si a l'aide d'une macro de faire une recherche
et
quel'orsque c'est trouver de mettre ok dans la collone de coté.
Exemple: je recherche le chiffre 5 dans la collone D
j'ai trouver 5 en D5 je met donc ok dans E5
est ce possible si oui
au secour..................
merci a tous
je viens d'essayer et l'ai bien laboite de dialogue mais il ne me mes
plus
le "OK"
"Pierre CFI [mvp]" a écrit dans le message de
news:bonjour
comme c'est pas forcement 5
on fait une boite qui demande
Sub test()
dim g
g=inputbox("qu'est qu'on cherche")
if g = "" then exit sub
For Each c In Range("D2:D19")
If c.Value = g Then c.Offset(0, 1).Value = "OK"
Next c
End Sub
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"jps" a écrit dans le message
de
news:bonjour stéphane le nouveau (nous sommes donc au moins 2)
peut-être pourrais-tu essayer cela à adapter à ta plage
Sub test()
For Each c In Range("D2:D19")
If c.Value = 5 Then c.Offset(0, 1).Value = "OK"
Next c
End Sub
HTH
jps
"stephane le nouveau" a écrit dans le message
de
news:cnv8ju$4uh$bonjour a tous et a toutes
j'aimerais savoir si a l'aide d'une macro de faire une recherche et
quel'orsque c'est trouver de mettre ok dans la collone de coté.
Exemple: je recherche le chiffre 5 dans la collone D
j'ai trouver 5 en D5 je met donc ok dans E5
est ce possible si oui
au secour..................
merci a tous
je viens d'essayer et l'ai bien laboite de dialogue mais il ne me mes
plus
le "OK"
"Pierre CFI [mvp]" <XXX_pierresalaun@aol.com> a écrit dans le message de
news:OWvCoKW0EHA.2676@TK2MSFTNGP12.phx.gbl...
bonjour
comme c'est pas forcement 5
on fait une boite qui demande
Sub test()
dim g
g=inputbox("qu'est qu'on cherche")
if g = "" then exit sub
For Each c In Range("D2:D19")
If c.Value = g Then c.Offset(0, 1).Value = "OK"
Next c
End Sub
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"jps" <biscotteUnScudJpsabatdelaile@wanadoo.fr> a écrit dans le message
de
news:OXETsvV0EHA.2228@TK2MSFTNGP15.phx.gbl...
bonjour stéphane le nouveau (nous sommes donc au moins 2)
peut-être pourrais-tu essayer cela à adapter à ta plage
Sub test()
For Each c In Range("D2:D19")
If c.Value = 5 Then c.Offset(0, 1).Value = "OK"
Next c
End Sub
HTH
jps
"stephane le nouveau" <pasdespam@tiscali.fr> a écrit dans le message
de
news:cnv8ju$4uh$1@news.tiscali.fr...
bonjour a tous et a toutes
j'aimerais savoir si a l'aide d'une macro de faire une recherche et
que
l'orsque c'est trouver de mettre ok dans la collone de coté.
Exemple: je recherche le chiffre 5 dans la collone D
j'ai trouver 5 en D5 je met donc ok dans E5
est ce possible si oui
au secour..................
merci a tous
je viens d'essayer et l'ai bien laboite de dialogue mais il ne me mes
plus
le "OK"
"Pierre CFI [mvp]" a écrit dans le message de
news:bonjour
comme c'est pas forcement 5
on fait une boite qui demande
Sub test()
dim g
g=inputbox("qu'est qu'on cherche")
if g = "" then exit sub
For Each c In Range("D2:D19")
If c.Value = g Then c.Offset(0, 1).Value = "OK"
Next c
End Sub
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"jps" a écrit dans le message
de
news:bonjour stéphane le nouveau (nous sommes donc au moins 2)
peut-être pourrais-tu essayer cela à adapter à ta plage
Sub test()
For Each c In Range("D2:D19")
If c.Value = 5 Then c.Offset(0, 1).Value = "OK"
Next c
End Sub
HTH
jps
"stephane le nouveau" a écrit dans le message
de
news:cnv8ju$4uh$bonjour a tous et a toutes
j'aimerais savoir si a l'aide d'une macro de faire une recherche et
quel'orsque c'est trouver de mettre ok dans la collone de coté.
Exemple: je recherche le chiffre 5 dans la collone D
j'ai trouver 5 en D5 je met donc ok dans E5
est ce possible si oui
au secour..................
merci a tous
