Discussion :

[Pierre1991]

Bonjour à tous,

Je voudrais savoir si vous avez une idée de code pour la macro "supprimer les lignes" que je vous ai fournis mais pour une plage de donnée variable.

C'est à dire que la plage de donnée pourrait varier de D1 : G100 à D1:G85 ...
La case "D1" et la colonne "G"ne changera jamais, juste le numéro de ligne de la colonne G.
Et évidemment, pourquoi faire simple quand on peut faire compliquée, les lignes vides ne seront jamais les mêmes et il ne faut pas supprimer la ligne entière car d'autres données sont sur cette ligne.

J'espère que j'ai été assez claires

J'ai une idée mais en littérale :

Si case = vide alors
Copier la colonne de donnée à partir de la case vide+1 jusqu'à cellule vide
Coller sur la case vide

[SfJ5Rpw8]

Bonjour,

utilise les balises de codes [code] [/code] pour mettre en forme ton code avant de le poster que l'on voit où tu en est ...

[Pierre1991]

Justement je n'ai pas encore de code

Je ne sais pas quelle fonction je dois utiliser, si c'est une boucle while ou un if

Pour l'instant le code de la macro se résume à ça :

Code :

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

1
2
3
4
5
6
7
8
 
    Range("A4:E5").Select
    Selection.Cut Destination:=Range("A3:E4")
    Range("A7:E9").Select
    Selection.Cut Destination:=Range("A5:E7")
    Range("A11:E12").Select
    Selection.Cut Destination:=Range("A8:E9")
    Range("A8:E9").Select

[patricktoulon]

Et évidemment, pourquoi faire simple quand on peut faire compliquée, les lignes vides ne seront jamais les mêmes et il ne faut pas supprimer la ligne entière car d'autres données sont sur cette ligne.

impossible de supprimer une cellule sans supprimer la ligne
maintenant une réorganisation du tableau est envisageable

[Pierre1991]

Mais si au lieu de supprimer la ligne, on fait un copier-coller, comme cela, il n'y a aucun impact sur les autres tableau.

En faite, il faudrait faire une lecture case par case, et dès que l'on trouve une case vide, on copie-colle la casse en dessous sur la case vide et ainsi de suite jusqu'à arrivé en bas du tableau.

Mais je sais pas comment commençer.

[SfJ5Rpw8]

Oui on peu supprimer un ensemble de cellule ...

utilise l'enregistreur de Macro qui t'aideras à trouver le code correspondant ... sélectionne les cellules à supprimer , puis après avoir lancer la commande supprimer ( menu contextuel par exemple) sélectionne la case d'option "Décaler les cellules vers le haut" si c'est bien cela que tu veux ... ..

[Pierre1991]

Ok merci je vais voir ça

[Pierre1991]

j'ai trouvé ça et ça me plait beaucoup

Code :

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

1
2
3
4
5
 
 
    Range("A1:E9").Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.Delete Shift:=xlUp

j'applique cela à mon fichier source et je vais voir après

[SfJ5Rpw8]

Pense que les Select Selection et autre activate sont inutile la plus par des cas .... mais qu'il faut préciser le classeur et la feuille de calcul concernée ton code devient :

Code :

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

ThisWorkBook.Sheets("Feuil1").Range("A1:E9").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp

[Pierre1991]

Oui, sur mon fichier source, j'ai mis cela :

Code :

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

1
2
3
4
5
6
7
 
 
    'Supprime toutes les cellules vide et les décale vers le haut
    Sheets("PLAN").Select
    Columns("D:G").Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.Delete Shift:=xlUp

Cela marche bien sauf, ça supprime trop de cellule ><, j'ai des cellules vide que je veux garder.

Par exemple :

1	2	3	4	5
1	2
1	2	3	4	5
1	2	3	4	5

Je veux supprimer la ligne du mileu mais garder les cases vides sur la ligne où il y a 1 2

[patricktoulon]

Je veux supprimer la ligne du mileu mais garder les cases vides sur la ligne où il y a 1 2

je t'ai dis pécédement que c'a n'etait pas possible au mieux c'est copier les elemennnnnnnnns manquants surla ligne supperieur ou inférieur

[Pierre1991]

je t'ai dis pécédement que c'a n'etait pas possible au mieux c'est copier les elemennnnnnnnns manquants surla ligne supperieur ou inférieur

Pas forcément, quand tu sélectionnes ta plage, tu appuies sur F5, tu sélectionnes cellule non vide et tu peux supprimer en décalant vers le haut, ça peut supprimer des lignes ( ex : G5:L5 ) sans impacter sur les autres tableaux.

[Pierre1991]

Du coup j'ai résolu mon problème

Mon fichier sur lequel je travaille fait des importations de fichier text, donc il arrive avec des séparateur point-virgules.Et ensuite le programme organise tout.

Du coup j'ai mis ce code là avant l'organisation des fichiers et cela enlève bien les lignes vides,car avant l'organisation ce sont des cases :

Code :

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

1
2
3
4
5
 
Sheets("PLAN").Select
    Columns("D:G").Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.Delete Shift:=xlUp

Je sais pas si c'est clair, mais en tout cas je vous remercie de votre aide