AIDE MACRO

[marion]

Bonsoir voici un petit problème qui ne doit pas être compliqué a regler pour vous , mais pour moi si .
je suis sur la feuille 1 avec un bouton macro, je veux lancer ma macro, que si en feuille 2 dans la selection des cellules "b3:b200"il n'y est aucune valeur, si une seule valeur presente alors exit sub
petit probème pour vous qui etes des as du vba
merci a vous tous.

 

[Fred]

Bonsoir marion

Ces quelques lignes de code devrait résoudre ton problème.

Sub Rectangle1_QuandClic()
Set Plage = Application.Worksheets("Feuil2").Range("B3:B200")
nbvaleurs = Application.WorksheetFunction.CountA(Plage)

If nbvaleurs = 0 Then
Exit Sub
Else
' Lance ta macro .......
End If
End Sub

Bonne soirée, Fred.

 

[Fred]

Désolé petite erreur il faut lire

if nbvaleurs <> 0 then
Exit Sub
Else
.........
End if

Fred