Effacement ligne en VBA si ... (et non supprimer)

Dranreb

XLDnaute Barbatruc

• 10 Octobre 2011

• #2

Re : Effacement ligne en VBA si ... (et non supprimer)

Bonsoir.
C'est EntireRow pour définir la ligne entière contenant une plage.
C'est ClearContents pour en effacer le contenu.
Ça vous suffit ?
Cordialement.

 

Vote positif 0 Vote négatif

M

micapilote

Guest

• 10 Octobre 2011

• #3

Re : Effacement ligne en VBA si ... (et non supprimer)

merci mais je débute seulement en VBA et sans VBA ça ressemblerait à ça
SI A1 = "" EFFACER ligne entière
mais en VBA retranscrit par moi meme ça donne ça
If Range("A1") = "" then
EntireRow.ClearContents et ça ne fonctionne pas.

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 10 Octobre 2011

• #4

Re : Effacement ligne en VBA si ... (et non supprimer)

Bonjour à tous,

avec ceci:

Code:

Sub Macro1()
For i = 1 To Range("A65535").End(xlUp).Row
If Cells(i, 1).Value = "" Then
Rows(i).EntireRow.ClearContents
End If
Next i
End Sub

à+
Philippe

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 10 Octobre 2011

• #5

Re : Effacement ligne en VBA si ... (et non supprimer)

If Range("A1") = "" then
EntireRow.ClearContents et ça ne fonctionne pas.

Cliquez pour agrandir...

Vous y étiez presque.

VB:

If Range("A1").Value = "" then Range("A1").EntireRow.ClearContents

et ça fonctionne.
Mais Déclarez L As Long et préférez:

VB:

If Cells(L, 1).Value = "" Then Rows(L).ClearContents

Comme ça vous pourrez le mettre dans une boucle For L = 1 To 18 finissant par Next L
À +

 

Vote positif 0 Vote négatif

M

micapilote

Guest

• 10 Octobre 2011

• #6

Re : Effacement ligne en VBA si ... (et non supprimer)

merci mais toujours pas, je comprend pas tout

Code:

For i = 4 To Range("B18").End(xlUp).Row '4 pour le début ligne 4, et B18 la fin
If Cells(i, 2).Value = "" Then '2 pour la colonne B
Rows(i).EntireRow.ClearContents
End If
Next i

et ça ne donne rien, je fais si mal que ça ?

 

Vote positif 0 Vote négatif

M

micapilote

Guest

• 10 Octobre 2011

• #7

Re : Effacement ligne en VBA si ... (et non supprimer)

Vous y étiez presque.
Code vba:
If Range("A1").Value = "" then Range("A1").EntireRow.ClearContents

Cliquez pour agrandir...

toujours pas, je suis sur excel MAC 2011, ça change la donne ?

 

Vote positif 0 Vote négatif

M

micapilote

Guest

• 10 Octobre 2011

• #8

Re : Effacement ligne en VBA si ... (et non supprimer)

c'est bon, j'ai trouvé la boulette, j'étais bon depuis le début mais j'avais omis que dans mon tableau la colonne A masquée était FUSIONNEE donc empêchait l'effacement de ligne.

Code:

Dim i As Long
For i = 4 To 18
If Cells(i, 2).Value = "" Then Rows(i).ClearContents
Next i

Merci à vous

 

Dernière modification par un modérateur: 10 Octobre 2011

Vote positif 0 Vote négatif

T

TempusFugit

XLDnaute Impliqué

• 11 Octobre 2011

• #9

Re : Effacement ligne en VBA si ... (et non supprimer)

Bonjour


Tu peux faire plus simple (voir la macro ci-dessous)

Code:

Sub effacer()
On Error Resume Next ' ajout pour éviter ce que vient de signaler Pierrot93
Range("B4:B18").SpecialCells(xlCellTypeBlanks).Offset(, -1).ClearContents
End Sub

 

Dernière édition: 11 Octobre 2011

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 11 Octobre 2011

• #10

Re : Effacement ligne en VBA si ... (et non supprimer)

Bonjour à tous,

attention avec "SpecialCells(xlCellTypeBlanks)", renverra une erreur si aucune cellule ne correspond à ce critère...

bonne journée
@+

 

Vote positif 0 Vote négatif