Si cellele vide la macro ne se lance pas

[laraviole]

Bonjour le forum,
Je voudrais savoir s'il est possible qu'une macro ne se lance pas si une certaine cellule est vide
Dans le fichier ci-joint je voudrais que la macro1 ( enregistrer) ne se lance pas si la cellule C9 est vide
Merci pour votre aide
Laraviole

 

[kjin]

Re : Si cellele vide la macro ne se lance pas

Bonjour,
La réponse est dans ta question
Si est non vide(C9) --> la procédure
A+
kjin

 

[laraviole]

Re : Si cellele vide la macro ne se lance pas

Bonjour,
Cela donne quoi au niveau code car tous mes essais sont Ko ? (erreur de complil etc..)
Merci

 

[kjin]

Re : Si cellele vide la macro ne se lance pas

Re,
C'est comme je disais (j'en ai profité pour remanier la macro)

Sub macro1()
[COLOR="Blue"]If Not IsEmpty(Range("C9")) [/COLOR]Then
    sText = Range("B5") & Range("D5")
    T = Range("C9:C13").Value
    With Sheets("Données")
    Set c = .Columns(3).Find(sText, LookIn:=xlValues)
        If Not c Is Nothing Then
            .Range(.Cells(c.Row, 4), .Cells(c.Row, 8)) = Application.Transpose(T)
        End If
    End With
End If

End Sub

A+
kjin

 

[laraviole]

Re : Si cellele vide la macro ne se lance pas

Re,
Merci pour ton aide Kjin j'ai intégré ton code et c'est nickel
Bonne soirée