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 !