Comment effacer plusieurs cellules avec 1 seule

Bojour à tous

Question :

Comment faire pour effacer toutes les cellules sans formules d'une ligne, lorsque j'efface la cellule " B "?

ici en l'occurrence, si j'efface la cellule " B6 ", les cellules " C,F,G,K,L et N " s'effacerait automatiquement

Bonjour jearol le forum

bah oui mais dans ton fichier il n'y a pas de formules alors on efface tout??

ou alors tu ne veux effacer que les cellules en blanc pas celle qui ont des ? ??????????????????????

a+

papou

Bonjour à toi

oui je voudrais qu'en effaçant "B" , les cellules en blanc " C , F , G ,K , L et N " s'effacent automatiquement.

Dsl j'ai éffacé les formules pour faire simple.

Après effacement de "B" toutes les formules "? " doivent rester dans les cellules.

Merci d'avance de te pencher sur mon problème.

Roland

Re Roland le forum

ton fichier en retour, avec ce que tu veux je pense

a+

papou

60jearol-v1.zip (16.98 Ko)

Bonsoir

ok 7 super 7 ce que je voulais.

Bon weekend

Roland

Bonjour Paritec,

Je reprends ce vieux sujet car j'ai repris le code de ton fichier Jearol V1 pour l'adapter à mon fichier, il s'agit de la 2ème partie.

Cela fonctionne très bien, si je supprime le contenu de la cellule en A, ça supprime le contenu de la cellule en C.

Le souci c'est que je voudrai pouvoir le faire sur plusieurs cellules à la fois:

exemple, si je supprime le contenu des cellules A3, A4 et A5, je voudrai que ça supprime C3, C4 et C5. Je ne sais pas comment faire et si c'est à cause de la partie du dessus.

Peux-tu m'aider ? Merci d'avance,

Voici le contenu total:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub

If Target.Column = 1 Then ' Colonne A

Target.Offset(0, 2).Select ' On se déplace de 2 colonnes

ElseIf Target.Column = 3 Then ' Colonne C

Range("A" & Target.Row + 1).Select ' Colonne A ligne en dessous

End If

Dim fin&, i&

fin = ActiveSheet.Range("B" & Rows.Count).End(xlUp).Row

If Target.Column = 1 And Target.Row > 2 And Target.Row <= fin Then

If Target = "" Then 'Si Cellule vide

Target.Offset(0, 2) = "" 'Colonne C vide

End If

End If

End Sub

Bonjour Damien

exemple, si je supprime le contenu des cellules A3, A4 et A5, je voudrai que ça supprime C3, C4 et C5. Je ne sais pas comment faire et

en faisant quoi?? une sélection multiple?? ou un effacement de A3 et C3 puis A4 et c4 ???

un fichier des explication claires te on va regarder

a+

Papou

Paritec,

Ci-joint un exemple avec les explications qui je l'espère, seront plus claires !

Merci à toi.

8test-1.xlsm (51.98 Ko)

Re bonjour Damien le forum

voilà

a+

Papou

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim fin&, i&, fin1&
    With ActiveSheet
        fin = .Range("A" & Rows.Count).End(3).Row
        fin1 = .Range("C" & Rows.Count).End(3).Row
        If fin1 > fin Then fin = fin1
        If fin < 3 Then fin = 3
        For i = fin To 3 Step -1
            If .Cells(i, 1) = "" Then .Cells(i, 3) = ""
        Next i
    End With
End Sub

Ca ne fonctionne pas, peut-être est ce parce que je ne fais pas l'intégration de ton code correctement...

Pourrais-tu intégrer ta proposition de code sur mon fichier test et me l'envoyer ?

De plus, j'ai un bug lorsque j'efface la cellule A3.

Merci d'avance...

Rechercher des sujets similaires à "comment effacer seule"