Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Chercher et trouver un chiffre dans une plage

Chercher et trouver un chiffre dans une plage

5 réponses
Avatar
Vincent
Bonsoir
J'ai une liste de chiffres en colonne A3:AX
je désire créer la proc suivante. Si un chiffre que je désigne se trouve
dans la colonne A3:AX, msgbox toto
Merci beaucoup
Vincent
Signaler un problème avec ce contenu

5 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
Avatar
Pierre Fauconnier
Bonsoir

Non testé

Sub Recherche()
dim Cellule as range
dim MonChiffre as integer
MonChiffre = 5
set cellule = range("a3:A10").find(what:=MonChiffre)
if not cellule is nothing then msgbox "Toto"
end sub

Cela convient-il?


--
Pierre Fauconnier ()
Les sept laids tuent ( Lewis Carol )
Remplacez nospam.nospam par pfi.be pour répondre. Merci

"Vincent" a écrit dans le message de
news:
Bonsoir
J'ai une liste de chiffres en colonne A3:AX
je désire créer la proc suivante. Si un chiffre que je désigne se trouve
dans la colonne A3:AX, msgbox toto
Merci beaucoup
Vincent




Avatar
LeSteph
Bonsoir Vincent,
Sub monchiffre()
Dim it As Integer
Dim c
it = InputBox("Entrer: ", "Un chiffre")
For Each c In Range("a3:a10")
If c = it Then
c.Select 'facultatif
MsgBox "toto"
Exit Sub
End If
Next
End Sub

"Vincent" a écrit dans le message de
news:
Bonsoir
J'ai une liste de chiffres en colonne A3:AX
je désire créer la proc suivante. Si un chiffre que je désigne se trouve
dans la colonne A3:AX, msgbox toto
Merci beaucoup
Vincent




Avatar
Vincent
Bravo et merci c'est parfait
Vincent

"LeSteph" a écrit dans le message de
news:%
Bonsoir Vincent,
Sub monchiffre()
Dim it As Integer
Dim c
it = InputBox("Entrer: ", "Un chiffre")
For Each c In Range("a3:a10")
If c = it Then
c.Select 'facultatif
MsgBox "toto"
Exit Sub
End If
Next
End Sub

"Vincent" a écrit dans le message de
news:
Bonsoir
J'ai une liste de chiffres en colonne A3:AX
je désire créer la proc suivante. Si un chiffre que je désigne se trouve
dans la colonne A3:AX, msgbox toto
Merci beaucoup
Vincent








Avatar
Vincent
Bravo et merci c'est parfait
Vincent

"Pierre Fauconnier" a écrit dans le
message de news:%
Bonsoir

Non testé

Sub Recherche()
dim Cellule as range
dim MonChiffre as integer
MonChiffre = 5
set cellule = range("a3:A10").find(what:=MonChiffre)
if not cellule is nothing then msgbox "Toto"
end sub

Cela convient-il?


--
Pierre Fauconnier ()
Les sept laids tuent ( Lewis Carol )
Remplacez nospam.nospam par pfi.be pour répondre. Merci

"Vincent" a écrit dans le message de
news:
Bonsoir
J'ai une liste de chiffres en colonne A3:AX
je désire créer la proc suivante. Si un chiffre que je désigne se trouve
dans la colonne A3:AX, msgbox toto
Merci beaucoup
Vincent








Avatar
RaMA
Bonsoir
Pour trouver tous les nombres de la plage
'***********************************************
Sub RechNb()
Const Chif = 7 '<<<<<wanted num
Dim Plage As Range
Dim Ct
Set Plage = [A3:A100] '<<<<<where
With Plage
Set Ct = .Find(Chif, LookIn:=xlValues)
If Not (Ct) Is Nothing Then
Beg = Ct.Address
Do
If Ct = Chif Then MsgBox Ct.Address & " coulé": x = x + 1
Set Ct = .FindNext(Ct)
Loop While Not Ct Is Nothing And Ct.Address <> Beg
End If
End With
Set Ct = Nothing
Set Plage = Nothing
MsgBox "Touvé(s) = " & x
End Sub
Salutations
RaMa

--
.
"Vincent" a écrit dans le message de news:

Bonsoir
J'ai une liste de chiffres en colonne A3:AX
je désire créer la proc suivante. Si un chiffre que je désigne se trouve
dans la colonne A3:AX, msgbox toto
Merci beaucoup
Vincent