Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel recherche le chiffre 5 dans la collone D et mettre ok

recherche le chiffre 5 dans la collone D et mettre ok

16 réponses
Avatar
stephane le nouveau
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
Signaler un problème avec ce contenu

6 réponses

Supprimer
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
1 2
Avatar
Pierre CFI [mvp]
il tape ce qu'il veut, ce sera toujours 5, c'est pas possible çà

--
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:
essaie comme ceci et n'écoute pas cette mauvaise langue de pierre CFI

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 = 5 Then c.Offset(0, 1).Value = "OK"
Next c
End Sub

à +
jps

"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
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



















Avatar
jps
oups pardon, victime du copier coller
et hélas! si on remplace 5 par g , eh ben ça foire (pas de OH à la droite
des chiffres....but why????
vivement qu'un grand nous apporte son aide, pierre, et nous les deux (comme
on dit en franche-comté), on pourra retourner dans le bac à sable avec not'
petit seau et not' petite pelle...
jps

"Pierre CFI [mvp]" a écrit dans le message de
news:uQ$
il tape ce qu'il veut, ce sera toujours 5, c'est pas possible çà

--
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:

essaie comme ceci et n'écoute pas cette mauvaise langue de pierre CFI

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 = 5 Then c.Offset(0, 1).Value = "OK"
Next c
End Sub

à +
jps

"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






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























Avatar
Pierre CFI [mvp]
euhhhhhh, la modif et les remerciements chaleureux me sont déjà parvenus, toi tu a gardé le pognon ??

--
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:
oups pardon, victime du copier coller
et hélas! si on remplace 5 par g , eh ben ça foire (pas de OH à la droite
des chiffres....but why????
vivement qu'un grand nous apporte son aide, pierre, et nous les deux (comme
on dit en franche-comté), on pourra retourner dans le bac à sable avec not'
petit seau et not' petite pelle...
jps

"Pierre CFI [mvp]" a écrit dans le message de
news:uQ$
il tape ce qu'il veut, ce sera toujours 5, c'est pas possible çà

--
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:

essaie comme ceci et n'écoute pas cette mauvaise langue de pierre CFI

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 = 5 Then c.Offset(0, 1).Value = "OK"
Next c
End Sub

à +
jps

"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






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


























Avatar
jps
comme cela ça marche, stéphane, et tu eng....s un grand coup pierre pour ne
pas avoir déclaré sa variable..
jps

Sub test()
Dim g As String
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

"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
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
















Avatar
jps
tu as vu la mienne de modif'?
allez ouste dans la IV65536 : isabelle t'y attend, la schlag à la main
jps

"Pierre CFI [mvp]" a écrit dans le message de
news:%
euhhhhhh, la modif et les remerciements chaleureux me sont déjà parvenus,
toi tu a gardé le pognon ??


--
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:

oups pardon, victime du copier coller
et hélas! si on remplace 5 par g , eh ben ça foire (pas de OH à la
droite


des chiffres....but why????
vivement qu'un grand nous apporte son aide, pierre, et nous les deux
(comme


on dit en franche-comté), on pourra retourner dans le bac à sable avec
not'


petit seau et not' petite pelle...
jps

"Pierre CFI [mvp]" a écrit dans le message de
news:uQ$
il tape ce qu'il veut, ce sera toujours 5, c'est pas possible çà

--
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:
essaie comme ceci et n'écoute pas cette mauvaise langue de pierre
CFI





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 = 5 Then c.Offset(0, 1).Value = "OK"
Next c
End Sub

à +
jps

"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
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






























Avatar
Pierre CFI [mvp]
jps, testou méme combat

--
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:%
comme cela ça marche, stéphane, et tu eng....s un grand coup pierre pour ne
pas avoir déclaré sa variable..
jps

Sub test()
Dim g As String
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

"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
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



















1 2