Suprimer lignes vides avec VBA Excel 2003

Version imprimable

Bonjour à vous!

Je vous explique ce que je désire faire:

1. Couper les lignes de la feuil1 pour lesquelles il y a la valeur "1" dans la colonne D et les copier dans la feuil2.
2. Protéger la feuil2 avec un mot de passe pour éviter toutes modifications.
3. Supprimer les lignes vides de la feuil1 (pour l'instant j'ai fait une formule pour mettre une donné dans la colonne F si la ligne n'est pas vide).

Mon problème: Je n'arrive pas à faire supprimer toutes les lignes vides dans la feuil1. Ça fait déja quelques années que je n'ai pas joué dans VBA... pourriez-vous SVP m'aider?

Merci à l'avance!! :D

Voici mon code:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 Sub Copierlignes() Dim Lig As Long Dim Col As String Dim NbrLig As Long Dim NumLig As Long Dim Rw As Range Sheets("Feuil2").Activate ' feuille de destination ActiveSheet.Unprotect ("motdepasse") Col = "D" ' colonne de la donnée non vide à tester NumLig = 0 With Sheets("Feuil1") ' feuille source NbrLig = .Cells(65536, Col).End(xlUp).Row For Lig = 1 To NbrLig If .Cells(Lig, Col).Value = "1" Then .Cells(Lig, Col).EntireRow.Cut NumLig = NumLig + 1 Cells(NumLig, 1).Select Rows(ActiveSheet.UsedRange.Rows.Count + 1).Select ActiveSheet.Paste End If Next End With ActiveSheet.Protect "motdepasse", DrawingObjects:=True, Contents:=True, Scenarios:=True Sheets("Feuil1").Activate Range("A1:Z65536").Select For Each Rw In Selection.Rows If Rw.Cells(1, 6).Value = "" Then ' S'il n'y a pas de valeur dans la colonne F Rw.EntireRow.Delete End If Next Rw End Sub

Bonjour,

Voici une petite procédure que je me suis fais dans mon classeur personnel. Je l'utilise pour presque tous mes fichiers excel.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub SupprimerLignesVides()
Dim Col
Dim Lig As Long
Dim i As Long
Dim Depart As Long
 
'sélection d'une cellule dans la colonne concernée
Col = Application.InputBox("Veuillez indiquer la lettre" & Chr(10) _
                            & "de la colonne concernée")
 
'si clic sur annuler on stoppe la procédure
If Col = False Then Exit Sub
 
'insertion du n° de la dernière ligne
Lig = Application.InputBox("Veuillez indiquer le numéro" & Chr(10) _
                            & "de la dernière ligne à supprimer", Type:=1)
 
'si clic sur annuler on stoppe la procédure
If Lig = False Then Exit Sub
 
'sélection de la première ligne
Depart = Application.InputBox("Veuillez indiquer le numéro" & Chr(10) _
                            & "de la première ligne de données.")
 
'si clic sur annuler on stoppe la procédure
If Depart = False Then Exit Sub
 
For i = Lig To Depart Step -1
    If Cells(i, Col) = "" Then Rows(i).Delete
Next
End Sub

Tu peux le modifier pour l'utiliser avec ce que tu veux.

17/11/2008, 19h47
Lufia

Bonjour!

J'aimerais que l'opération soit transparentre pour l'utilisateur (qu'il clique sur le bouton "transférer les données", que les lignes se transfère dans la bonne feuille et que les lignes vides soient supprimées). Je ne veux pas qu'utilisateur ait à entrer des paramètes puisque je m'adresse à des gens très peux expérimentés en Excel.

Mais merci quand même, je vais retenir ce code pour une autre application ;)
17/11/2008, 19h52
drakkar_agfa

Il est pratique (classeur personnel, donc accecible en tout temps!) mais pour ton code, dépendant de ton niveau en VBA, tu peux remplacer les inputbox par les paramètres de la fonction
du genre

Code:

Sub SupprimerLignesVides(lDepart as long, lFin as long, lColonne as long)

Comme ça, dans ta fonction principale, tu fais ton code qui copie les lignes, transfère,..... ensuite tu apelle SupprimerLignesVides dans ton code en passant les paramètres.
17/11/2008, 20h03
Lufia

Comme je vous disais, il y a déja plusieurs années depuis la dernière fois que j'ai fais du VBA alors c'est tout un exercice pour moi de convertir un code come ça ;)

Ok, alors au plus simple :

ajoutes la déclaration suivant :

Code:

1
2
dim lFin as long
dim lColonne as long

Et ce code à la fin de ton code :

Code:

1
2
3
4
5
6
7
8
9
 
'Si tu veux une autre colonne que la A pour trouver la dernière ligne remplie change le A ici
lFin = Worksheets("Feuil1").Range("A65536").End(xlUp).Row
'Mets ici le numéro de la colonne où tu vérifies si la cellule est vide.
lColonne = ???
 
For i = lFin To 1 Step -1
    If Cells(i, lColonne) = "" Then Rows(i).Delete
Next

Wow merci ça fonctionne très bien! Parcontre, un nouveau problème s'est créé (je ne sais pas si c'est du à la supression de ligne, mais je ne crois pas).

Lors de l'exécution de la partie où je verrouille Feuil2, des plages sont créées pour "Permettre à l'utilisateur de modifier des plages" et je me retrouve que toutes les cellules de Feuil2 sont protégées SAUF celles où il y a du texte...

Je n'ai aucune fonction qui détermine des plages pour modification.

Comment puis-je empecher cela de ce produire? Le but de la macro est justement que l'utilisateur ne puisse pas modifier le texte une fois transféré dans Feuil2...

Merci encore!!!
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 Sub Copierlignes() Dim Lig As Long Dim Col As String Dim NbrLig As Long Dim NumLig As Long Dim Rw As Range Dim lFin As Long Dim lColonne As Long Sheets("Logbook - barré").Activate ' feuille de destination ActiveSheet.Unprotect ("logbook") Col = "D" ' colonne de la donnée non vide à tester NumLig = 0 With Sheets("Logbook - entrée") ' feuille source NbrLig = .Cells(65536, Col).End(xlUp).Row For Lig = 1 To NbrLig If .Cells(Lig, Col).Value = "1" Then .Cells(Lig, Col).EntireRow.Cut NumLig = NumLig + 1 Cells(NumLig, 1).Select Rows(ActiveSheet.UsedRange.Rows.Count + 1).Select ActiveSheet.Paste End If Next End With ActiveSheet.Protect "logbook", DrawingObjects:=True, Contents:=True, Scenarios:=True lFin = Worksheets("Logbook - entrée").Range("F65536").End(xlUp).Row lColonne = 6 Sheets("Logbook - entrée").Activate For i = lFin To 1 Step -1 If Cells(i, lColonne) = "" Then Rows(i).Delete Next End Sub

17/11/2008, 21h27
drakkar_agfa

Je crois que tu devrais créer un nouveau sujet avec ce problème et mettre celui-ci comme résolu!

Et pourrais-tu expliquer autrement ceci

Citation:

Lors de l'exécution de la partie où je verrouille Feuil2, des plages sont créées pour "Permettre à l'utilisateur de modifier des plages" et je me retrouve que toutes les cellules de Feuil2 sont protégées SAUF celles où il y a du texte...

Je ne comprends pas parfaitement ce que tu veux dire...

Merci!