(RESOLUT)besoin de modifier code ( vider les cellules sous conditions)

[chaelie2015]

Bonjour Forum
ci dessous un code (qui bug) pour vider les colonnes si la cellule J10-L10 (fusionnée) est vide.

If Target.Address(0, 0) = "J10:L10" Then
If [J10] = "" Then [A12:V42].ClearContents : [I46:M76].ClearContents : [P46:S76].ClearContents: [I81:K111].ClearContents: [T81:U111].ClearContents: [V81:X111].ClearContents
End If

mais ça n'a pas marché ?
Salutations

 

[Pierrot93]

Re : besoin de modifier code ( vider les cellules sous conditions)

Bonjour,

essaye peut être ceci :

If Target.Address = "$J$10:$L$10" Then _
    Range("A12:V42,I46:M76,P46:S76,I81:K111,T81:U111,V81:X111") = ""

bonne journée
@+

 

[chaelie2015]

Re : besoin de modifier code ( vider les cellules sous conditions)

Bonjour PIERROT
ça fonctionne parfaitement,Merci PIERROT
PBLM RESOLUT
Salutations