supprimer ligne vide de a53 à 1erecellule colonne a non vide

[pascal21]

Sub celvides()
Dim i As Long
    For i = [a65536].End(xlUp).Row To 1 Step -1
        If Cells(i, [COLOR=Red]1[/COLOR]).Value = 0 Then
            Rows(i).EntireRow.Delete
        End If
    Next
End Sub

bonsoir
j'ai trouvé ce bout de code qui permet de supprimer des lignes vides
j'aimerais l'adapter à mon classeur mais je n'y arrive pas
je supprime des données trop vieilles à partir de la ligne 53
j'aimerais que les données qui sont restées se retrouvent (remontées)
soit en supprimant les lignes vides ou alors en faisant remonter les lignes restantes
si la solution de supprimer les lignes vides est interressante je ne sais limiter la macro à 1ere ligne vide (a53) et 1ere ligne cellule a non vide
pouvez vous m'aider
merci

 

[MAZETTE]

Re : supprimer ligne vide de a53 à 1erecellule colonne a non vide

Salut,

Je en suis pas peut-être pas un expert et aussi accro que toi mais as-tu essayer de remplacer:

For i = [a65536].End(xlUp).Row To 1 Step -1

par For i = [a65536].End(xlUp).Row To 53 Step -1

Si je ne me trompe pas la boucle s'arretera à la ligne 53

A+

 

[Staple1600]

Re : supprimer ligne vide de a53 à 1erecellule colonne a non vide

Bonsoir

Essaye comme cela

Sub suppr_cel_vides_II()
ActiveSheet.UsedRange.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
End Sub

 

[MAZETTE]

Re : supprimer ligne vide de a53 à 1erecellule colonne a non vide

Bonsoir Staple,


Mon ignorance doit être inée... car je ne vois pas où le code supprime les lignes vides à partir de la ligne A53 à moins que je soit totalement incompétent en la matière (c'est le cas)

A te lire

 

[Staple1600]

Re : supprimer ligne vide de a53 à 1erecellule colonne a non vide

Bonsoir



Dans un classeur

Saisis quelques valeurs au hasard sur quelques lignes

Ensuite exécute la macro de mon précédent message

Tu comprends mieux désormais ? 😉

 

[MAZETTE]

Re : supprimer ligne vide de a53 à 1erecellule colonne a non vide

Re Staple,

J'ai compris ton code ...c'est super astucieux ...voire même génial.

Merci

 

[Staple1600]

Re : supprimer ligne vide de a53 à 1erecellule colonne a non vide

Re



Maintenant fais ceci

Saisis toujours quelques valeurs au hasard
Puis appuies sur CTRL+T
Cliques sur [Cellules]
Coche Cellules vides
puis ALT+E
puis ALT+S
Coche [Décaler Cellules vers le haut]
et enfin Cliques sur [OK]

(PS: si tu refais la même chose avec l'enregistreur de macro
tu auras le code
.

..c'est super astucieux ...voire même génial.

😉 )

 

[MAZETTE]

Re : supprimer ligne vide de a53 à 1erecellule colonne a non vide

Re,

Si j'ai bien compris la morale de l'histoire...plutôt que de se masturber l'esprit à vouloir essayer d'écrire un code il vaut mieux passer par l'enregistreur de macro.....

Merci à toi de m'avoir rapellé les fondamentaux

Bonne soirée

 

[pascal21]

Re : supprimer ligne vide de a53 à 1erecellule colonne a non vide

bonsoir staple, mazette
le code de staple fonctionne bien je le confirme
mais il y a une chose à laquelle je n'avais pas pensé c'est les formules contenues dans les colonnes
en effet, j'ai des plages nommées (de laligne 53 à 2000) dans les colonnes C à H et j'utilise "sommeprod " pour les plages nommées il ne faut pas que des cellules soient vidées des formules quelles contiennent
pour ce la , je ne vais qu'une solution. C'est que les formules se recopient au fur et à mesure de l'effacement

 

[veesti]

Re : supprimer ligne vide de a53 à 1erecellule colonne a non vide

Salut le forum,

[Saisis toujours quelques valeurs au hasard
Puis appuies sur CTRL+T
Cliques sur [Cellules]
Coche Cellules vides
puis ALT+E
puis ALT+S
Coche [Décaler Cellules vers le haut]
et enfin Cliques sur [OK] ]

Ca a l'air très bien ce que tu as écrit Staple1600, mais aurais tu la même procédure pour excel en anglais??
Merci d'avance pour ton aide, et celle de tous les volontaires!

vessti

 

[Staple1600]

Re : supprimer ligne vide de a53 à 1erecellule colonne a non vide

Bonjour vessti



Tu peux faire la même chose (sans les raccourcis clavier)
(en vert, ce sont des suppositions ; ) )

• 1) Edition / Atteindre —› (?) *
• 2) [Cellules] —›(Cells)
• 3) Cellules vides —›(Empty Cells ou Blanks)
• 4) Edition/Supprimer —›(Delete)
• 5) Décaler Cellules vers les haut —› (?)*

(?)* =je ne sais pas

 

[veesti]

Re : supprimer ligne vide de a53 à 1erecellule colonne a non vide

merci staple.
atteindre correspond à Go to en anglais Alt+E puis Alt+G
j'ai finalement trouvé tout seul!
merci beaucoup