Discussion :

[liop49]

Bonjour

Je rame pour faire ma macro alors je viens vous demander de l'aide

j'ai un tableau avec 5 colones sur le colone C (la 3ième), je vais à la dernière cellule ayant une donnée et je veux ensuite supprimer toutes les lignes se trouvant en dessous.

Je n'arrive pas à faire la macro, est ce que qq1 peux m'aider ?

Merci d'avance.

Nini

[ouskel'n'or]

Tu commence par déterminer la première ligne vide de la colonne C

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    PremiereLigneVide = Range("C65535").End(xlUp).Row + 1

puis tu détermines la dernière ligne renseignée de ta feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    DerniereLigne = Range("A1").SpecialCells(xlCellTypeLastCell).Row

et enfin tu supprimes toutes les lignes entre les deux

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Range("A" & PremiereLigneVide & ":" & "A" & DerniereLigne).EntireRow.Delete

A+

[liop49]

Merci pour ta réponse rapide

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub DétruireLignes()
PremiereLigneVide = Range("C65535").End(xlUp).Row + 1
DerniereLigne = Range("A1").SpecialCells(xlCellTypeLastCell).Row
Range("A" & PremiereLigneVide & ":" & "A" & DerniereLigne).EntireRow.Delete
 
 
End Sub

Je pense qu'il faut déclarer les variables car le code ne fonctionne pas.

Merci

[ouskel'n'or]

Une erreur ? Sur quelle ligne ? Quel message ?
Qu'entends-tu par "le code ne fonctionne pas" ?
Que se passe-t-il ?
Comment vois-tu qu'il ne fonctionne pas ?
Exprime-toi, on est là pour t'écouter

[liop49]

Attend je m'allonge

En fait, je me suis mal exprimé sur "le code ne fonctionne pas" car il fonctionne parfaitement sauf qu'il ne fait pas tout ce que je veux cad :
Il faudrait que les lignes en dessous de la dernière cellule sélectionnées soient supprimées et non effacée car j'ai des résidu de mise en forme (quadrillage du tableau par exemple) qui reste.

En espérant avoir été plus clair Docteur

Merci

[ouskel'n'or]

Désolé mais quand je fais ça sur l'un de mes classeurs, je n'ai plus de format dans les lignes.
J'ai peut-être une explication : Quand tu as "formaté" tes cellules (quadrillage, police, couleur...) tu ne l'aurais pas fait par colonne, par hasard ?
Auquel cas, tu pourrais essayer plusieurs solutions :
- ou tu fixes ta dernière ligne sur 65536
- ou tu modifies le format des lignes PremiereLigneVide à DerniereLigne pour les remettre "d'applomb"
- ou tu copies le format d'une cellule "normale" sur toutes les lignes de PremiereLigneVide à 65536
- ou... tu formates avant tout ta plage de données plutôt que les colonnes entières
Mais dis-nous ce que tu as mal fait, juste pour info
A+

[liop49]

a y est !!!!

tu ne l'aurais pas fait par colonne, par hasard ?

Exactement et maintenant çà fonctionne bien

Merci