Discussion :

[vicky_3003]

Bonjour,

Je m'excuse de reposter la question sur une nouvelle discussion ( je l'avais déjà posté sous un sujet de 2015 mais visiblement ce n'était pas la meilleure chose à faire )

Le sujet en question : http://www.developpez.net/forums/d15...s-range-donne/


J'ai voulu utilisé le code présent dans le sujet ci-dessus mais le problème est qu'il supprime la ligne entière. Or, j'ai des donnés supplémentaires ( tcd ou autres tableaux dans des colonnes voisines mais sur ces mêmes lignes) que je souhaite garder.

J'ai crée ce code :

Code :

Code :

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

1
2
3
4
5
6
7
8
9
Sub supprimer()
 
Dim cell As Range
 
For Each cell In Range(Cells(7, 6), Cells(7, 6).End(xlDown)).Cells
    If cell.Value = "" Then Range(cell, cell.End(xlToRight)).Delete
Next cell
 
End Sub

La limite étant qu'il ne s'applique pas à l'ensemble des lignes de mon "tableau" et en cliquant sur exécuter plusieurs fois la macro, celle-ci ne marche plus dès qu'il y a deux cellules "pleines" qui se suivent.

Un petit extrait :



Si quelqu'un peut m'aiguiller, ce serait super sympa

Merci !

[Menhir]

Le End(xlDown) pose souvent problème, en particulier quand on risque d'avoir une ligne vide juste après celle du début de la recherche.
C'est pourquoi on préconise plutôt de chercher les fin de liste en partant du bas avec un End(xlUp).

De même, ton End(xlToRight) me semble étrange puisque la cellule sur laquelle tu fais débuter la recherche est supposée vide.

Peux-tu expliquer plus précisément ce que tu souhaites faire ?
Est-ce que tu souhaites éliminer toutes les lignes vides mêlées aux ligne pleines dans une zone données ?

[vicky_3003]

J'utilise, sûrement à tort, le xL right pour que la macro supprime également les cellules à droite de celle qui est vide.

Ce que j'aimerais faire, c'est ceci :

Après 2 exécutions de la macro actuelle,




Plus deux autres,




Et deux autres ( là où je suis actuellement bloquée),




J'ai encore une flopée de lignes vides en dessous, mêlées à des lignes non vides. J'aimerais automatiser la suppression de l'ensemble de ces lignes sans pour autant supprimer la ligne entière.

J'espère que les images donnent plus de sens à tout ça

Merci

[Patrice740]

Bonjour,

Essaies :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub supprimer()
Dim tableau As Range
Dim lignesvides As Range
  Set tableau = Cells(7, 6).CurrentRegion
  Set lignesvides = tableau.Rows(1).Offset(tableau.Rows.Count)
  With lignesvides
    Set lignesvides = .Resize(.Cells(1, 1).End(xlDown).Row - .Row)
  End With
  lignesvides.Delete shift:=xlShiftUp
End Sub

[vicky_3003]

Merci Patrice, ça marche super bien !

[Menhir]

Toutes les lignes vides d'un coup :

Code :

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

1
2
3
4
5
6
Sub supprimer()
Dim Ligne As Long
For Ligne = 7 to Cells(Rows.Count, 6).End(xlUp).Row
    If Cells(Ligne, 6) = "" Then Range("F" & Ligne & ":I" & Ligne).Delete shift:=xlShiftUp
Next Ligne
End Sub