Effacer Cellule si B vide

[KyFranRD]

Bonjour à tous

Je veux effacer certaines cellules en ligne 21 à 10 si vide en B.

J'ai mis ce code:

Private Sub Worksheet_selectionchange(ByVal Target As Range)


Dim cells As Range
For Each cells In Range("B21:B102")
If cells.Value = "" Then
cells.Offset(0, 3) = ""
End If
Next

end sub


Mon problème est le suivant. Comment faire pour que la cellule s'efface automatiquement? En effet la cellule en E ne s'efface que si je la selectionne. Faut it changer "selectionchange" ?

Merci à l'avance.

Existe t-il un moyen sans passer par for......next?

 

[jmps]

Re : Effacer Cellule si B vide

Bonjour KyFranRd,

Je ne suis pas sûr d'avoir compris à 100% ta question.
Quand tu dis "Automatique" c'est par l'opération du Saint-Esprit ? (Amen 😛)
Il faut bien que ta macro se déclenche sur un évènement.
Ça peut être un clic sur un bouton, un raccourci clavier ou un évènement sur la feuille (changement de cellule, de valeur, clic droit, double-clic, ...)

Mais supposons que j'ai compris 😎
On laisse tomber SelectionChange et on se tourne vers Change.
Puisque tant que la colonne B ne change pas, pas besoin de modifier la colonne E.
Ça donnerait ça du coup :

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim c As Range
    If Intersect(Target, Range("B21:B102")) Is Nothing Then Exit Sub
    For Each c In Target
        If c.Value = "" And c.Row >= 21 And c.Row <= 102 Then c.Offset(0, 3).Value = ""
    Next c
End Sub

Le For... Next est quand même nécessaire si tu sélectionnes plusieurs cellules de la colonne B et que tu fais "Suppr".

C'est-y mieux ?

EDIT : Bon anniversaire 😉

 

[néné06]

Re : Effacer Cellule si B vide

Bonjour KyFranRd,Salut Jmps
Je suis sur mon téléphone, mais ne pas oublier
"application.EnableEvents=false/True" sinon, problèmes.

À+

 

[jmps]

Re : Effacer Cellule si B vide

Bonjour Néné06,

Pas besoin d'EnableEvents ici, je fais un test sur la plage qui change, si on n'est pas en colonne B on sort.

EnableEvents est à proscrire le plus possible.

 

[KyFranRD]

Re : Effacer Cellule si B vide

Merci jmps et néné06

Je teste cela de suite 😉

PS: en fait, quand je dis automatique; je veux dire à la suite de l'effacement de la cellule en B.

Lol..... J'avais pas vu l'inscription " Bonne anniversaire " , jmps.

Et bien je vous remercie, vous êtes bien urbain ...... 😀

Sinon ça fonctionne nickel ... merci encore