Fonction Recherche

[Egruat]

Bonjour,

Je cherche à faire une macro pour :
- sélectionner toutes les cellules d'une feuille
- rechercher s'il existe une cellule non vide
- appliquer une formule du type: S'il existe une cellule non vide alors (ACTION 1) sinon (ACTION 2)

Quelqu'un peut-il m'aider ?

Cordialement.

 

[Robert]

Re : Fonction Recherche

Bonjour Egruat, bon jour le forum,

Peut-être comme ça :

Sub Macro1()
'si le nombre de valeurs dans l'onglet est différent de 0 (si il existe une cellule non vide)
If Application.WorksheetFunction.CountA(Cells) <> 0 Then
    'action 1 (à définir)
Else 'sinon (si toutes les cellules sont vide)
    'action 2 (à définir)
End If
End Sub

 

[Egruat]

Re : Fonction Recherche

Merci !

Cordialement.