[VBA] Supprimer les cellules vides

pierrejean

XLDnaute Barbatruc

• 18 Mars 2013

• #2

Re : [VBA] Supprimer les cellules vides

Bonjour Spacepak

Teste ceci

Code:

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

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 18 Mars 2013

• #3

Re : [VBA] Supprimer les cellules vides

bonjour,

deux propositions

Code:

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

OU

Code:

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

A+

[edition] hello PierreJean🙂

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 18 Mars 2013

• #4

Re : [VBA] Supprimer les cellules vides

Bonjour,

Code:

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

 

Vote positif 0 Vote négatif

S

Spacepak

Guest

• 18 Mars 2013

• #5

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 ? 😕

 

Vote positif 0 Vote négatif

S

Spacepak

Guest

• 18 Mars 2013

• #6

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..

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 18 Mars 2013

• #7

Re : [VBA] Supprimer les cellules vides

Re,

Code:

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

A+

 

Vote positif 0 Vote négatif

S

Spacepak

Guest

• 18 Mars 2013

• #8

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)

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 18 Mars 2013

• #9

Re : [VBA] Supprimer les cellules vides

re,

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

A+

 

Vote positif 0 Vote négatif