[VBA] Supprimer les cellules vides

[Spacepak]

Bonjour,

j'aimerai pouvoir supprimer les cellules vides situées dans une certaine plage.

J'ai écris ce code là qui marche qu'à moitié.

Sub test()
Dim Plage As Range

Set Plage = Range("C1", Range("C65535").End(xlUp))

For Each c In Plage
If IsEmpty(c) Then
c.EntireRow.Delete
End If
Next
End Sub

En effet, il reste toujours des cellules vides.

Voilà la feuille Test en pièce jointe.

Merci de votre aide.

 

[pierrejean]

Re : [VBA] Supprimer les cellules vides

Bonjour Spacepak

Teste ceci

For n = Range("C" & Rows.Count).End(xlUp).Row To 1 Step -1
 If IsEmpty(Range("C" & n)) Then Rows(n).Delete
Next

 

[Guest]

Re : [VBA] Supprimer les cellules vides

bonjour,

deux propositions

For ligne = Plage.Rows.Count To 1 Step -1
If IsEmpty(Plage(ligne)) Then
Plage(ligne).EntireRow.Delete
End If
Next

OU

On Error Resume Next
Plage.SpecialCells(xlCellTypeBlanks).EntireRow.Delete 'provoque une erreur si aucune cellule vide dans la plage

A+

[edition] hello PierreJean

 

[BOISGONTIER]

Re : [VBA] Supprimer les cellules vides

Bonjour,

Sub test()
  For i = Range("C65535").End(xlUp).Row To 1 Step -1
     If IsEmpty(Cells(i, "c")) Then Rows(i).Delete
  Next
End Sub

JB

 

[Spacepak]

Re : [VBA] Supprimer les cellules vides

Merci pour votre aide. Vos programme fonctionnent.

Cependant, lorsque je colle une autre colonne de valeurs à traiter (en colonne C) et bien vos programmes ne marchent plus.
(J'ai l'impression que vos programmes fonctionnent uniquement si les cellules ont été remplies à la main..)

Comment pourrai t-on les faire fonctionner ?

 

[Spacepak]

Re : [VBA] Supprimer les cellules vides

Je viens de remarquer que pas mal de cellules vides ont des espaces à l'intérieur d'ou le bug du programme.
Du coup il faut appliquer la fonction Trim. Mais je ne sais pas ou la placer dans vos programmes.

Si quelqu'un peut m'aider..

 

[Guest]

Re : [VBA] Supprimer les cellules vides

Re,

For ligne = Plage.Rows.Count To 1 Step -1
If IsEmpty(Plage(ligne)) or Plage(ligne)= " " Then Plage(ligne).EntireRow.Delete
Next

A+

 

[Spacepak]

Re : [VBA] Supprimer les cellules vides

Ca ne fonctionne pas

Il se peut qu'il y ait plusieurs espaces dans des cellules vides.

(En fait je recois les données de quelqu'un d'autre. Et à chaque fois il y a des espaces dans les cellules vides)

 

[Guest]

Re : [VBA] Supprimer les cellules vides

re,

..... Or Trim(Plage(ligne))= "" Then ......

A+