Discussion :

[skorpio]

Bonjour à tous

sur le lien présent, et représenter un liste...

En fait je souhaiterai avoir un code qui me permette lorsque je supprime une ligne d'avoir quand même le même de ligne. Je m'explique.

si je supprime la ligne 5 qui est 4-mal
et bien je souhaiterai que la ligne d'en dessous remonte mais attention non pas avec 5-cool, mé que ça devienne 4-cool
5-super
6-chouette
...

please

[mordrhim]

pour supprimer la cellule de la colonne en remontant les cellules de cette colone, il faut faire un

Code :

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

TonRange.Delete Shift:=xlUp

avec TonRange etant la cellule que tu veux supprimer.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
A         B
1    Mediocre
2    Mauvais
3    Plutot mauvais
4    Moyen
5    Plutot bon
6    bon
7    Tres bon
8    excellent

donnera, sur la suppression de B4

Code :

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

1
2
3
4
5
6
7
8
9
10
 
A         B
1    Mediocre
2    Mauvais
3    Plutot mauvais
4    Plutot bon
5    bon
6    Tres bon
7    excellent
8

il faudra juste que tu supprime la cellule A8 ^^

[skorpio]

Je suis d'accord sur le fait que c'est

Code :

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

Shift:=xlUp

qui permet de remonter la ligne de dessus, mais ce que je demande est plus complexe

si je supprime n'importe quel ligne et que je remonte la ligne du dessus, il va y avoir un ecart entre les chiffres de 1 (voir plus si je supprime plusieurs ligne) je sais pas si j'ai été understood??

l'exemple que je site auparant est parfaitement clair, ce que je ne sais pas faire c'est initialiser toute les lignes d'en dessous la suppression...

[SilkyRoad]

bonjour

Tu peux par exemple insérer cette formule dans les cellules de la colonne A, afin de renuméroter automatiquement les lignes:

Code :

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

=LIGNE()-1

michel

[skorpio]

Donc en gros il est impossible de créer un boucle, ou quelque chose comme ça?

[ilcocodrillo]

en voilà une boucle qui te permet de renuméroter tes lignes

Code :

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

1
2
3
4
5
6
7
8
 
Sub essai()
    I = 2
    Do While Sheets("feuil1").Cells(I, 2) <> ""
    Sheets("feuil1").Cells(I, 1).Value = I - 1
    I = I + 1
    Loop
End Sub

[skorpio]

parfait, je te remercie, ça marche à merveille