Delencher une condition ou une macro a partir d'une cellule

Bonjour,

Je cherche à executer une fonction ou une macro SI je trouve une cellule vide dans une collone:

Pour trouver la cellule vide j'ai trouvé et j'utilise:

Range("D8").End(xlDown).Offset(1, 0).Select

Ensuite je voudrais SI il trouve du vide qu'il passe a la celulle de gauche pour lancer alors une fonction ou une macro je ne sais pas ce qu'i est le meiux. dans cette cellule de gauche c'est une simple focntion pour selectionner des caractères avec la focntion droite ou gauche cela fonctionne très bien...

Merci

Eric

Bonjour Éric, bonjour le forum,

Une colonne contient maintenant 1 048 576 cellules (65 538 avec la version Excel 2003). Il est donc très vraisemblables que des cellules vides tu en aies un nombre considérable ! Il te faut définir la limite inférieure pour ta recherche et surtout dire de quelle colonne il s'agit. Avec le bout de code que tu daignes fournir on pourrait en déduire qu'il s'agit de la colonne D

Je verrais les choses comme ça :

Sub Macro1()
Dim O as Object 'déclare la variable O (Onglet)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim PL As Range 'déclare la variable PL (PLage)
Dim CEL as Range 'déclare la variable CEL (CELlule)

Set O = Sheets("Feuil1") 'définit l'onglet O (à adapter)
DL = O.Cells(Application.Rows.Count, 4).End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne 4 (=D)
Set PL = O.Range("D1:D" & DL) 'définit la plage PL
For Each CEL In PL 'boucle sur toutes les cellules CEL de la plage PL
     If CEL.Value = "" then 'condition : si la cellule CEL est vide
          'Left(CEL.Offset(0, -1).Value, 2)... ton code...
     End IF 'fin de la condition
Next CEL 'prochaine cellule de la boucle
End Sub

Bonjour

Bonjour ThauThème

Et si en colonne C à partir de C8 tu y colles cette formule

=SI(ESTVIDE(D8);"Vide";"")

Par "Vide" tu y places la fonction qui va bien

Bonjour,

la solution de thau theme fait ce que je veux...

Je dois peaufiner mais deja c'est super.

Desolé de répondre tard, j'étais en arrêt... : -(

Je fournirais le résultat quznd j'aurais repris cette partie...

Merci

Eric