XL 2010 Effacer certaines cellules sous conditions

[jeanba]

Bonjour la Forum,

Ceci est la suite d'une vieille discussion sur ce forum en 2008.
J'essaye d'adapter le code qui avait alors été proposé par tototiti2008, mais je n'y parviens pas.

Je vous joins le fichier
Merci par avance.

Jeanba

 

[job75]

Bonjour jeanba,

effacer les données des cellules situées à droite de la première cellule vide en A

Private Sub CommandButton1_Click()
[A:A].Find("", , xlValues).EntireRow = ""
End Sub

A+

 

[job75]

Re,

Si maintenant on veut traiter toutes les cellules vides de la 1ère colonne :

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
With Me.UsedRange
  .Columns(1).Insert xlToRight 'colonne auxiliaire
  .Columns(0) = "=1/LEN(RC[1])"
  On Error Resume Next 'si aucune cellule vide
  .Columns(0).SpecialCells(xlCellTypeFormulas, 16).EntireRow = ""
  .Columns(0).Delete xlToLeft
End With
End Sub

Fichier joint.

A+

 

[jeanba]

Bonjour job75 et merci de ton astuce.
Cependant, ce code n'efface que la ligne à partir de laquelle une cellule est vide en colonne A.
En fait, j'ai oublié de préciser que je voudrais que s'effacent toutes les cellules à partir de celle-là jusqu'à D13.
Comment le spécifier ça s'il te plaît.

Voici le code que j'avais bidouiller, mais trop lourd:

For Each CEL In Graph.Range("A2:A13")
    If CEL.Value Like "" Or CEL.Value Like "0" Then
        Range(CEL.Address).Offset(0, 1).ClearContents
        Range(CEL.Address).Offset(0, 2).ClearContents
        Range(CEL.Address).Offset(0, 3).ClearContents
        Range(CEL.Address).Offset(0, 4).ClearContents
    End If
Next CEL

Merci
Jeanba

 

[job75]

Re,

Pourquoi s'arrêter à D13 ?

Ce code efface les colonnes A: D jusqu'à la dernière ligne de la feuille :

Private Sub CommandButton1_Click()
Range([A:A].Find("", , xlValues), Range("D" & Rows.Count)) = ""
End Sub

Surtout ne pas faire de boucle !!!

A+

 

[jeanba]

Wahou!
job75, tu viens de m'éviter une migraine, avec une seule ligne de code!
La vie est vraiment belle!

Merci infiniment!

Jeanba

 

[job75]

Bonjour jeanba, le forum,

Un code plus général :

Private Sub CommandButton1_Click()
Range(UsedRange.Columns(1).Find("", , xlValues), Rows(Rows.Count)) = ""
End Sub

Bonne journée.