Discussion :

[kookah]

Bonjour à tous,

J'utilise un code pour décaler mes cellules vides sur chaque ligne de ma feuille.
Le problème c'est que l'exécution est très longue car j'ai environ 6000 lignes.

J'aurais besoin d'aide pour rendre la démarche plus rapide

je vous soumets le code :

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
For i = 2 To lig
 
                'si ast1(col7) vide, décale les autres (répete 3x  si juste ast4(col10) remplie)
                hit = 1
                Do
                    If Cells(i, 7).Value = "" Then
                        'décalage des 2 premières
                        Range(Cells(i, 8), Cells(i, 9)).Cut
                        ActiveSheet.Paste Destination:=Range(Cells(i, 8), Cells(i, 9)).Offset(0, -1)
                        'décalage de la dernière
                        Cells(i, 10).Cut
                        ActiveSheet.Paste Destination:=Cells(i, 10).Offset(0, -1)
                        hit = hit + 1
                    End If
                Loop While hit < 4
 
                'si ast2(col8) tjr vide, décale les suivantes (répète 2x)
                hit = 1
                Do
                    If Cells(i, 8).Value = "" Then
                        Range(Cells(i, 9), Cells(i, 10)).Cut
                        ActiveSheet.Paste Destination:=Range(Cells(i, 9), Cells(i, 10)).Offset(0, -1)
                        hit = hit + 1
                    End If
                Loop While hit < 3
 
                'si ast3(col9) tjr vide, décale les suivantes pas besoin de répétition.
                If Cells(i, 9).Value = "" Then
                    Cells(i, 10).Cut
                    ActiveSheet.Paste Destination:=Cells(i, 10).Offset(0, -1)
                End If
 
            Next i

Je vous remercie déjà de votre lecture.

[Menhir]

Il faudrait que tu décrives plus précisément ce que doit faire ton code.
Par exemple, pourquoi les boucles Do Until sur les "hit" ?

[kookah]

En fait je cherche à supprimer les cellules vides sur chaque ligne pour les colonnes 7 à 10.

Pour cela, j'ai pensé à tester la première cellule i,7 si elle est vide, je décale les trois suivante d'un rang vers la gauche.

les Do me servent à répéter l'opération tant que la première cellule est vide.

actuellement, j'ai ceci :

x| x| x| x|
x| | | x|
| x| x| x|
| | x| x|

et je voudrais cela :

x| x| x| x|
x| x| | |
x| x| x| |
x| x| | |

mais je ne sais pas trop gérer les boucles, et je n'ai pas d'autres idées pour arriver à ce résultat.

[Philippe Tulliez]

Bonjour,

Pour cela, j'ai pensé à tester la première cellule i,7 si elle est vide, je décale les trois suivante d'un rang vers la gauche.

Pourquoi les décaler ?
Si tu dois supprimer une ligne si une ou plusieurs cellules sont vides, la codification sera différente. Une simple boucle partant de la dernière ligne en direction de la première avec un test est suffisant.

[Menhir]

Je crois que j'ai compris (mais pas trop sûr).

Pour chaque ligne, tu souhaites supprimer les cellules vides. Si tu trouves dans la ligne une cellule vide, tu l'écrases en décalant ce qui est à sa droite d'un cran.

C'est ça ?

Déjà, dans ton code, je ne comprends pas pourquoi tu as utilisé des Do While et non pas des For to, beaucoup plus simples à utiliser.

Mais tu te compliques la vie.

Ceci devrais suffire :

Code :

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

1
2
3
4
5
For i = 2 To lig
   For hit = 9 To 7 Step -1
      If Cells(i, hit) = "" Then Cells(i, hit).Delete Shift:=xlToLeft
   Next hit
Next i

[kookah]

Oui je me suis compliqué la vie mais je ne voyais pas comment faire.

A vrai dire je n'ai pas pensé à partir de la fin pour revenir au début.

je vais essayé ça et je reviens vous dire...

... On ne peut pas mieux faire ! c'est exactement ce que je cherchais depuis ce matin !

Merci infiniment.

[mercatog]

Ou peut être directement

Code :

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

Worksheets("Feuil1").Range("G2").Resize(Lig, 4).SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft

[Philippe Tulliez]

Bonjour,
Deux syntaxes possibles
S'il faut contrôler une seule colonne, avec la propriété SpecialCells(xlCellTypeBlanks)

Code :

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

1
2
3
4
5
Sub t()
 Dim rng As Range
 Set rng = ActiveSheet.Range("A1:A75")
 rng.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

Avec le contrôle de plusieurs colonnes sur la même ligne

Code :

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

1
2
3
4
5
6
7
8
9
Sub t2()
 Dim rng As Range, r As Long
 Set rng = ActiveSheet.Range("A1").CurrentRegion
 With rng
  For r = .Rows.Count To 2 Step -1
   If Len(.Cells(r, 1)) = 0 And Len(.Cells(r, 4)) = 0 Then .Cells(r, 1).EntireRow.Delete
  Next
 End With
End Sub