Bonjour,
Je voudrait par une petite macro m'assurer que la valeur en B12 est bien
presente dans la plage "Liste"
avec un petit message "présent" ou "Absent"
Quelqu'un pourrait-il m'indiquer le code à utiliser ?
Merci
Domi
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
Joel
Bonsoir,
vit'fait sur le gaz (sans tester...) sub test() dim oCell as range for each ocell in range("Liste") if ocell.value=range("B12").value then msgbox "présent" exit sub endif next msgbox "Présent" end sub --
Bien cordialement,
Joël GARBE www.joelgarbe.fr "Domi" a écrit dans le message de news:%
Bonjour, Je voudrait par une petite macro m'assurer que la valeur en B12 est bien presente dans la plage "Liste" avec un petit message "présent" ou "Absent" Quelqu'un pourrait-il m'indiquer le code à utiliser ? Merci Domi
Bonsoir,
vit'fait sur le gaz (sans tester...)
sub test()
dim oCell as range
for each ocell in range("Liste")
if ocell.value=range("B12").value then
msgbox "présent"
exit sub
endif
next
msgbox "Présent"
end sub
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
"Domi" <scrat83@free.fr> a écrit dans le message de
news:%23fVNFGSYEHA.4092@TK2MSFTNGP11.phx.gbl...
Bonjour,
Je voudrait par une petite macro m'assurer que la valeur en B12 est bien
presente dans la plage "Liste"
avec un petit message "présent" ou "Absent"
Quelqu'un pourrait-il m'indiquer le code à utiliser ?
Merci
Domi
vit'fait sur le gaz (sans tester...) sub test() dim oCell as range for each ocell in range("Liste") if ocell.value=range("B12").value then msgbox "présent" exit sub endif next msgbox "Présent" end sub --
Bien cordialement,
Joël GARBE www.joelgarbe.fr "Domi" a écrit dans le message de news:%
Bonjour, Je voudrait par une petite macro m'assurer que la valeur en B12 est bien presente dans la plage "Liste" avec un petit message "présent" ou "Absent" Quelqu'un pourrait-il m'indiquer le code à utiliser ? Merci Domi
Domi
Efficace ;o) Merci Domi
"Joel" a écrit dans le message de news:cc6qer$vep$
Bonsoir,
vit'fait sur le gaz (sans tester...) sub test() dim oCell as range for each ocell in range("Liste") if ocell.value=range("B12").value then msgbox "présent" exit sub endif next msgbox "Présent" end sub --
Bien cordialement,
Joël GARBE www.joelgarbe.fr "Domi" a écrit dans le message de news:%
Bonjour, Je voudrait par une petite macro m'assurer que la valeur en B12 est bien presente dans la plage "Liste" avec un petit message "présent" ou "Absent" Quelqu'un pourrait-il m'indiquer le code à utiliser ? Merci Domi
Efficace ;o)
Merci
Domi
"Joel" <joel-garbe@wanadoo.fr> a écrit dans le message de
news:cc6qer$vep$1@news-reader1.wanadoo.fr...
Bonsoir,
vit'fait sur le gaz (sans tester...)
sub test()
dim oCell as range
for each ocell in range("Liste")
if ocell.value=range("B12").value then
msgbox "présent"
exit sub
endif
next
msgbox "Présent"
end sub
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
"Domi" <scrat83@free.fr> a écrit dans le message de
news:%23fVNFGSYEHA.4092@TK2MSFTNGP11.phx.gbl...
Bonjour,
Je voudrait par une petite macro m'assurer que la valeur en B12 est bien
presente dans la plage "Liste"
avec un petit message "présent" ou "Absent"
Quelqu'un pourrait-il m'indiquer le code à utiliser ?
Merci
Domi
"Joel" a écrit dans le message de news:cc6qer$vep$
Bonsoir,
vit'fait sur le gaz (sans tester...) sub test() dim oCell as range for each ocell in range("Liste") if ocell.value=range("B12").value then msgbox "présent" exit sub endif next msgbox "Présent" end sub --
Bien cordialement,
Joël GARBE www.joelgarbe.fr "Domi" a écrit dans le message de news:%
Bonjour, Je voudrait par une petite macro m'assurer que la valeur en B12 est bien presente dans la plage "Liste" avec un petit message "présent" ou "Absent" Quelqu'un pourrait-il m'indiquer le code à utiliser ? Merci Domi
michdenis
Bonjour Domi,
Il y a ceci aussi : en adaptant le nom de la feuille :
'----------------------- Sub Présence()
With Worksheets("Feuil3") If Not IsError(Application.Match(.Range("B12"), Range("liste"), 0)) Then MsgBox "Présent" End If End With
End Sub '-----------------------
Salutations!
"Domi" a écrit dans le message de news:% Bonjour, Je voudrait par une petite macro m'assurer que la valeur en B12 est bien presente dans la plage "Liste" avec un petit message "présent" ou "Absent" Quelqu'un pourrait-il m'indiquer le code à utiliser ? Merci Domi
Bonjour Domi,
Il y a ceci aussi : en adaptant le nom de la feuille :
'-----------------------
Sub Présence()
With Worksheets("Feuil3")
If Not IsError(Application.Match(.Range("B12"), Range("liste"), 0)) Then
MsgBox "Présent"
End If
End With
End Sub
'-----------------------
Salutations!
"Domi" <scrat83@free.fr> a écrit dans le message de news:%23fVNFGSYEHA.4092@TK2MSFTNGP11.phx.gbl...
Bonjour,
Je voudrait par une petite macro m'assurer que la valeur en B12 est bien
presente dans la plage "Liste"
avec un petit message "présent" ou "Absent"
Quelqu'un pourrait-il m'indiquer le code à utiliser ?
Merci
Domi
Il y a ceci aussi : en adaptant le nom de la feuille :
'----------------------- Sub Présence()
With Worksheets("Feuil3") If Not IsError(Application.Match(.Range("B12"), Range("liste"), 0)) Then MsgBox "Présent" End If End With
End Sub '-----------------------
Salutations!
"Domi" a écrit dans le message de news:% Bonjour, Je voudrait par une petite macro m'assurer que la valeur en B12 est bien presente dans la plage "Liste" avec un petit message "présent" ou "Absent" Quelqu'un pourrait-il m'indiquer le code à utiliser ? Merci Domi
Domi
Merci, j'aime bien cette alternative plus concise. Domi
"michdenis" a écrit dans le message de news:%
Bonjour Domi,
Il y a ceci aussi : en adaptant le nom de la feuille :
'----------------------- Sub Présence()
With Worksheets("Feuil3") If Not IsError(Application.Match(.Range("B12"), Range("liste"), 0)) Then
MsgBox "Présent" End If End With
End Sub '-----------------------
Salutations!
"Domi" a écrit dans le message de news:%
Bonjour, Je voudrait par une petite macro m'assurer que la valeur en B12 est bien presente dans la plage "Liste" avec un petit message "présent" ou "Absent" Quelqu'un pourrait-il m'indiquer le code à utiliser ? Merci Domi
Merci, j'aime bien cette alternative plus concise.
Domi
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:%23gpDxdSYEHA.3420@TK2MSFTNGP12.phx.gbl...
Bonjour Domi,
Il y a ceci aussi : en adaptant le nom de la feuille :
'-----------------------
Sub Présence()
With Worksheets("Feuil3")
If Not IsError(Application.Match(.Range("B12"), Range("liste"), 0))
Then
MsgBox "Présent"
End If
End With
End Sub
'-----------------------
Salutations!
"Domi" <scrat83@free.fr> a écrit dans le message de
news:%23fVNFGSYEHA.4092@TK2MSFTNGP11.phx.gbl...
Bonjour,
Je voudrait par une petite macro m'assurer que la valeur en B12 est bien
presente dans la plage "Liste"
avec un petit message "présent" ou "Absent"
Quelqu'un pourrait-il m'indiquer le code à utiliser ?
Merci
Domi
Merci, j'aime bien cette alternative plus concise. Domi
"michdenis" a écrit dans le message de news:%
Bonjour Domi,
Il y a ceci aussi : en adaptant le nom de la feuille :
'----------------------- Sub Présence()
With Worksheets("Feuil3") If Not IsError(Application.Match(.Range("B12"), Range("liste"), 0)) Then
MsgBox "Présent" End If End With
End Sub '-----------------------
Salutations!
"Domi" a écrit dans le message de news:%
Bonjour, Je voudrait par une petite macro m'assurer que la valeur en B12 est bien presente dans la plage "Liste" avec un petit message "présent" ou "Absent" Quelqu'un pourrait-il m'indiquer le code à utiliser ? Merci Domi
