Si cellele vide la macro ne se lance pas

K

kjin

XLDnaute Barbatruc

• 8 Avril 2010

• #2

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

 

Vote positif 0 Vote négatif

L

laraviole

Guest

• 8 Avril 2010

• #3

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

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 8 Avril 2010

• #4

Re : Si cellele vide la macro ne se lance pas

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

Code:

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

 

Vote positif 0 Vote négatif

L

laraviole

Guest

• 8 Avril 2010

• #5

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

 

Vote positif 0 Vote négatif