Verifier la presence d'une valeur dans une plage

4 réponses

Michael

11/10/2005 à 11:45

Bonjour à tous

Je fais de nouveau appel à vous car je butte.

J'aimerai savoir comment faire en VBA la chose suivante :

sub test
with sheets("1")
"si il y a une valeur dans les cellules de B3 à E70 alors
msgbox "qqchose"
end sub

Merci pour votre aide !

4 réponses

Daniel

11/10/2005 à 11:53

Bonjour.

Sub test()
Dim c As Range
Set c = Range("B3:E70").Find("*")
If Not c Is Nothing Then MsgBox "Y a qqchose"
End Sub

Cordialement.
Daniel
"Michael" a écrit dans le message de news:
%

Bonjour à tous

Je fais de nouveau appel à vous car je butte.

J'aimerai savoir comment faire en VBA la chose suivante :

sub test
with sheets("1")
"si il y a une valeur dans les cellules de B3 à E70 alors
msgbox "qqchose"
end sub

Merci pour votre aide !

Michael

11/10/2005 à 13:19

Merci impeccable !

ru-th

11/10/2005 à 13:37

salut

variante
If Application.Counta([b3:e70]) > 0 Then MsgBox "quelques chose"

a+
rural thierry
"Michael" a écrit dans le message de
news:%

Bonjour à tous

Je fais de nouveau appel à vous car je butte.

J'aimerai savoir comment faire en VBA la chose suivante :

sub test
with sheets("1")
"si il y a une valeur dans les cellules de B3 à E70 alors
msgbox "qqchose"
end sub

Merci pour votre aide !

Charles Ingals

11/10/2005 à 17:32

Bonjour tout le monde,
Une autre variante:

Sub toto()
Dim cell As Range
For Each cell In Range("A1:B10")
If cell.Value = "titi" Then
MsgBox ("La valeur titi a été trouvée en ") & cell.Address
End If
Next cell
End Sub

Bonne soirée à tous.
@+

Bonjour à tous

Je fais de nouveau appel à vous car je butte.

J'aimerai savoir comment faire en VBA la chose suivante :

sub test
with sheets("1")
"si il y a une valeur dans les cellules de B3 à E70 alors
msgbox "qqchose"
end sub

Merci pour votre aide !

Verifier la presence d'une valeur dans une plage

4 réponses

Veuillez sélectionner un problème