Supprimer une ligne entier si une cellule est vide

**sommongkul** · 07/06/2018, 17h34

Bonjour forum, bonjour à tous
Grace à ce forum, je peux petit à petit apprendre le macro. Aujourd'hui, je rencontre un autre problème. J'ai essayé de créer un macro qui permet de supprimer une ligne entier si une cellule dans cette ligne est vide. Tout d'abord, j'ai copié des données de feuille 1 vers feuille 2 et ensuit je travail uniquement sur la feuille 2. Par contre, quand je lance mon macro, je trouve que son résultat est inverse. Le résultat auquel je pense apparaitre dans la feuille 2 est affiché sur la feuille . Je regarde et verifie mon macro plusieurs fois mais je ne trouve pas son problème. Est ce que quelqu'un d'entre vous peut m'aider le verifier pourquoi j'ai ce problème? Merci d'avance

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
 
Sub SupprimeLigne()
Dim i As Integer
Dim j As Integer
Dim FL1 As Worksheet, FL2 As Worksheet[ATTACH]386840[/ATTACH]
'Copier des données de feuille 1 vers feuille 2
Sheets("Feuil1").Range("A:F").Copy Sheets("Feuil2").Range("A:F")
Set FL1 = Sheets("Feuil1")
Set FL2 = Sheets("Feuil2")
With FL2
      For j=1 To 6
            For i = 1 To 6
                  If Is Empty(Cells(i,j)) Then
                     Row(i).Delete
                  End if
           Next i
     Next j
.Activate
End With
 
End Sub

**Transitoire** · 07/06/2018, 18h00

Bonsoir, essayez avec ça, chez moi ça marche

Code :

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

1
2
3
If Is Empty(Cells(i,j)) Then
             Rows(i).Delete
  End if

Cordialement

**sommongkul** · 07/06/2018, 18h06

Envoyé par Transitoire

Bonsoir, essayez avec ça, chez moi ça marche

Code :

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

1
2
3
If Is Empty(Cells(i,j)) Then
             Rows(i).Delete
  End if

Cordialement

Bonjour, J'ai déjà utilisé ce code dans mon macro. Le problème est que le résultat que je veux voir sur la feuille 2 est dans la feuille 1 quand je lance le calcul. J'ai déjà copié toutes les données de feuille 1 et travaillé seulement sur la feuille 2. Je ne sais pas pourquoi son résultat est dans la feuille 1 comme ça?

**sommongkul** · 07/06/2018, 18h21

Envoyé par dysorthographie

Bonsoir,
Au lieu de copier ta feuille1 vers a feuille2 fais un filtre élaboré de la feuille1 vers la feuille2.

Code :

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

1
2
entête 1|entête 1
<>""|<>""

Bonjour,
Commen je ne sais pas trop le macro, franchement je ne sais pas comment filter les deux feuille. Faut-il utiliser le code AutoFilter dans ce cas la?

Invité · 07/06/2018, 18h30

Envoyé par sommongkul

Bonjour,

Une autre solution que celle de TRANSITOIRE :

Attention à la cellule fusionnée Sum dans la ligne de titre. Dans mon code, cette ligne va être supprimée.

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
Option Explicit
 
Sub SupprimeLigne()
 
Dim J As Long, DerniereLigne As Long, DerniereColonne As Long
Dim FL1 As Worksheet, FL2 As Worksheet
 
    Set FL1 = Sheets("Feuil1")
    Set FL2 = Sheets("Feuil2")
 
   FL1.Range("A:F").Copy Destination:=FL2.Range("A1")
 
   With FL2
 
        With .UsedRange
             DerniereLigne = .SpecialCells(xlCellTypeLastCell).Row
             DerniereColonne = .SpecialCells(xlCellTypeLastCell).Column
        End With
 
        For J = DerniereLigne To 1 Step -1
            If WorksheetFunction.CountA(.Range(.Cells(J, 1), .Cells(J, DerniereColonne))) < DerniereColonne Then
               .Rows(J).Delete Shift:=xlUp
            End If
        Next J
  End With
 
  Set FL1 = Nothing
  Set FL2 = Nothing
 
End Sub

Invité · 07/06/2018, 18h59

Je préfère te laisser entre le mains du Maitre https://philippetulliez.developpez.c...dvancedfilter/

**Transitoire** · 07/06/2018, 20h14

bonsoir, avez vous bien remplacez Row. par Rows.
J'ai fait un copier coller de votre code, j'ai ouvert un nouveau classeur, j'ai copié le code et j'ai mit quelques lignes en feuill1 pour test avec F1 et F2 , et ca marche!
Je n'ai pas ouvert votre dossier, par contre!
Cordialement

**Transitoire** · 07/06/2018, 20h28

Re essayez avec cela, en faisant un copier coller!

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
Sub SupprimeLigne()
Dim i As Integer
Dim j As Integer
Dim FL1 As Worksheet, FL2 As Worksheet
'Copier des données de feuille 1 vers feuille 2
Sheets("Feuil2").Activate
Sheets("Feuil1").Range("A:F").Copy Sheets("Feuil2").Range("A:F")
Set FL1 = Sheets("Feuil1")
Set FL2 = Sheets("Feuil2")
With FL2
      For j = 1 To 6
            For i = 1 To 6
                  If IsEmpty(Cells(i, j)) Then
                     Rows(i).Delete
                  End If
           Next i
     Next j
.Activate
End With
 
End Sub

Cordialement

Invité · 07/06/2018, 22h41

Désolé mais ce genre de code n'est pas fiable. Si tu supprime la ligne deux la ligne trois devient la ligne deux. Si pour ton malheur elle est également vide elle passera l'as.

Mais une seule cellule vide suffit pour supprimer une ligne et dans ton contexte plusieurs lignes .

Je pense pas que c'était la demande.

Code :

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

1
2
3
4
5
6
7
8
9
dim garde as booleen 
For j = 6 To  1 step -1
Garde=false
            For i = 1 To 6
                  If not IsEmpty(Cells(i, j)) Then garde=true: Exit dor
              Next i
If garde=true  the  Rows(i).Delete
 
     Next

**patricktoulon** · 07/06/2018, 23h12

bonsoir

Nom : Capture.JPG
Affichages : 204
Taille : 145,9 Ko

**sommongkul** · 08/06/2018, 09h43

Envoyé par dysorthographie

Je préfère te laisser entre le mains du Maitre https://philippetulliez.developpez.c...dvancedfilter/

Merci, Je vais le lire toute de suite.

**sommongkul** · 08/06/2018, 09h47

Envoyé par Eric KERGRESSE

Bonjour,

Une autre solution que celle de TRANSITOIRE :

Attention à la cellule fusionnée Sum dans la ligne de titre. Dans mon code, cette ligne va être supprimée.

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
Option Explicit
 
Sub SupprimeLigne()
 
Dim J As Long, DerniereLigne As Long, DerniereColonne As Long
Dim FL1 As Worksheet, FL2 As Worksheet
 
    Set FL1 = Sheets("Feuil1")
    Set FL2 = Sheets("Feuil2")
 
   FL1.Range("A:F").Copy Destination:=FL2.Range("A1")
 
   With FL2
 
        With .UsedRange
             DerniereLigne = .SpecialCells(xlCellTypeLastCell).Row
             DerniereColonne = .SpecialCells(xlCellTypeLastCell).Column
        End With
 
        For J = DerniereLigne To 1 Step -1
            If WorksheetFunction.CountA(.Range(.Cells(J, 1), .Cells(J, DerniereColonne))) < DerniereColonne Then
               .Rows(J).Delete Shift:=xlUp
            End If
        Next J
  End With
 
  Set FL1 = Nothing
  Set FL2 = Nothing
 
End Sub

Merci Eric. Dans ce cas, je vais changer la ligne de boucle. Je fais seulement boucler des données numeriques.

Invité · 08/06/2018, 10h02

Envoyé par sommongkul

Merci Eric. Dans ce cas, je vais changer la ligne de boucle. Je fais seulement boucler des données numeriques.

Si tu pars de la ligne 3, c'est OK.

**sommongkul** · 08/06/2018, 10h07

Envoyé par Transitoire

bonsoir, avez vous bien remplacez Row. par Rows.
J'ai fait un copier coller de votre code, j'ai ouvert un nouveau classeur, j'ai copié le code et j'ai mit quelques lignes en feuill1 pour test avec F1 et F2 , et ca marche!
Je n'ai pas ouvert votre dossier, par contre!
Cordialement

Merci Transitoire. Je vais essayer ton code.

**sommongkul** · 08/06/2018, 10h20

Envoyé par Eric KERGRESSE

Si tu pars de la ligne 3, c'est OK.

Oui, merci encore une fois pour ton aide. Pour moi, je ne sais pas trop comment utiliser STEP-1. Ton code marche bien chez moi et je vais alors apprendre cette partie avec le syntax STEP-1.

Invité · 08/06/2018, 10h33

Envoyé par sommongkul

Pour moi, je ne sais pas trop comment utiliser STEP-1. Ton code marche bien chez moi et je vais alors apprendre cette partie avec le syntax STEP-1.

Quand tu veux supprimer une ligne, il te faut commencer par la fin. Step -1 te permet de "décrémenter" de 1.

Supprimer une ligne entier si une cellule est vide [XL-2016]

Macros et VBA Excel

Discussions similaires

Partager

Partager