Suppression de lignes

Question

Bonjour,

Je débute en VBA et je bloque sur une petite macro !
Pour faire simple, j'aimerais supprimer certaines lignes de ma feuille. Par exemple de la ligne 15 à la ligne 25. Le truc c'est que ces lignes ne sont pas toujours les même. J'ai donc nommer 2 cellules LIGNE_DEBUT et LIGNE_FIN (dont les valeurs sont variables) qui contiennent les numeros de mes lignes de début et de fin. (J'espere être clair !)
Le problème est que je ne vois pas comment faire pour intègrer ces données dans une macro et automatiser la suppression.
Si quelqu'un avait une solution?

adri

PCPT · Answer

Vous êtes ici : Thèmes / [forum-VISUAL-BASIC_1.aspx Visual Basic 6] /
déplacé vers VBA

cs_Orohena · Answer

Bonjour adri813


Tu es très clair. Un vrai prof.
Peux-tu essayer ce code et me dire s'il répond à ton attente ?

Sub supprimer_les_lignes()
   Dim debut As long, fin As long
   With ActiveSheet
         debut = .Range("LIGNE_DEBUT").Value
         fin = .Range("LIGNE_FIN").Value
         .Rows(debut & ":" & fin).Delete
    End With
End Sub

Cordialement

cs_adri813 · Answer

Bonjour,

Merci de ta réponse ! Je viens de tester ton code, malheureusement, il a un bug à la ligne :

 debut = .Range("LIGNE_DEBUT").Value

Peut être as tu une idée du probléme ?

cs_Orohena · Answer

Bonjour adri813

Je cite ton message : J'ai donc nommer 2 cellules LIGNE_DEBUT et LIGNE_FIN ... qui contiennent les numeros

Si tu as nommé une cellule LIGNE_DEBUT, et qu'elle contient un numéro, tu ne dois pas avoir de bug. Vérifie, stp.

Aussi, n'oublie pas de donner la description de l'erreur.


Cordialement

cs_adri813 · Answer

Bonjour,

J'ai bien un numéro dans la cellule nommé LIGNE_DEBUT. L'erreur est la suivante :

Erreur Execution '1004'
Erreur définie par l'application ou par l'objet.

Je ne vois pas d'où vient le problème ?

Cordialement.

cs_Orohena · Answer

Bonjour adri813


Là, je ne vois pas. Il faudrait que je voie ton classeur xls. C'est à toi de décider.


Cordialement

Suppression de lignes

6 réponses

Votre réponse

Discussions similaires