Discussion :

[TEnergie]

Bonjour,

Je cherche a creer un programme qui copie des donnees dans une feuille globale. Cependant il y a certaine lignes qui ne m interesse pas a savoir celles dont la cellule de la colonne A est vide. J aimerais ainsi supprimer ces lignes si ces conditions sont remplies.

Merci pour votre aide

Code :

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

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
38
39
40
41
Sub DatenSammeln()
 
    Dim Sht As Worksheet
    Dim Plage As Range
    Dim Zeile_Leer As Range
 
  For Each Sht In ThisWorkbook.Worksheets
 
        If Sht.Name = "X" Or Sht.Name = "Y" Or Sht.Name "Z" Then
 
            With Sht
 
              Set Plage = .Range(.Cells(2, 1), _
                            .Cells( _
                            .Cells.Find("*", .[A1], -4123, , _
                            1, 2).Row, _
                            .Cells.Find("*", .[A1], -4123, , _
                            2, 2).Column))
 
 
 
            End With
 
 
        Plage.Copy
        Worksheets("Basis").Select
            Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
 
 
                For Each Zeile_Leer In worksheets("Basis").columns("A")
                    If Zeile_Leer.Value = "" Then
                    Zeile_Leer.EntireRow.delete
 
                End If
                Next Zeile_Leer
 
        End If
 
    Next Sht
 
End Sub

[bifconsult]

Re, ...

Pour supprimer les lignes, l'idéal est de parcourir la table de bas en haut.

Voici un code simple qui supprimera toutes les lignes pour lesquelles la valeur en colonne "A" est "" (rien).

Code :

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

1
2
3
4
5
Last_row = Cells(Cells.Rows.Count, 1).End(xlUp).Row 
'Last_row = dernière ligne de la colonne A
For I = Last_row to 1 step-1
     if cells(I,1).value="" then rows(I).delete shift:=xlup
next I

[Philippe Tulliez]

Bonjour,
Tu es certain d'avoir exécuter au moins UNE fois le code que tu nous présentes, voir même de l'avoir placé dans un module ?
Parce-que, je ne vois pas comment cette ligne de code fonctionne

Code :

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

If Sht.Name = "X" Or Sht.Name = "Y" Or Sht.Name "Z" Then

Même à l'encodage, tu aurais dû voir qu'il y avait une erreur de syntaxe.

[TEnergie]

Merci beaucoup ca fonctionne!

Oui le code tourne correctement, en tout cas aucune faute de syntaxe n est affiche.

[bifconsult]

Corona a parfaitement raison...

Code :

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

If Sht.Name = "X" Or Sht.Name = "Y" Or Sht.Name "Z" Then

ne peut pas fonctionner. Il manque un "=" avant le "Z" !