Discussion :

[Baptiste V]

Bonjour à tous,

Je souhaite faire une macro qui "décale" les lignes d'une feuilles.
Voilà ce que j'ai fait

Code :

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

1
2
3
4
5
6
7
 
m = 17
While m > 15
                    Rows(m) = Rows(m - 1)
                    m = m - 1
 
Wend

Le problème ici est que, plutôt que le recopier la ligne m-1 sur la ligne m, la ligne m devient vide.

Si quelqu'un a une piste sur la cause du problème ou encore une solution.

Merci.

[Thautheme]

Bonjour Baptiste, bonjour le forum,

Il me semble qu'en insérant une ligne vide avant la ligne 17 tu obtiendrais le résultat voulu non ?

[Baptiste V]

Bonjour Thautheme,

Je ne peux malheureusement pas modifier la structure de la feuille.
Inserer des lignes m'est donc impossible.

Je ne peux pas non plus utiliser les fonctions ClearContents, ni Cut/Copy/Paste car sur les lignes sont présentes des cases fusionnées.

[Menhir]

Je souhaite faire une macro qui "décale" les lignes d'une feuilles.

Inserer des lignes m'est donc impossible.

Comment veux-tu "décaler" une ligne sans en insérer une autre ???

A moins que ton besoin soit de copier la colonne (m-1) en m et de vider (m-1).
Dans ce cas :

Code :

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

1
2
3
Rows(m - 1).Copy
Rows(m).PasteSpecial 
Rows(m - 1).ClearContents

Je ne peux pas non plus utiliser les fonctions ClearContents, ni Cut/Copy/Paste car sur les lignes sont présentes des cases fusionnées.

Les cellules fusionnées, c'est une véritable plaie dans Excel et encore plus en VBA.
Si ce sont des fusions horizontales, il est possible de s'en passer en utilisant le centrage sur plusieurs colonnes, bien plus simple à gérer.

[unparia]

Bonjour
voilà une étrange gymnastique dont le résultat ne serait en rien différent de celui que l'on obtiendrait par la simple insertion d'une ligne tout en haut de la plage à traiter !

[Menhir]

voilà une étrange gymnastique dont le résultat ne serait en rien différent de celui que l'on obtiendrait par la simple insertion d'une ligne tout en haut de la plage à traiter !

La différence, c'est qu'avec ce code, la ligne (m+1) ne bouge pas, contrairement à une insertion.

Cela dit, la demande n'étant pas claire, difficile de comprendre ce que le demandeur souhaite réellement.

[Baptiste V]

Cela dit, la demande n'étant pas claire, difficile de comprendre ce que le demandeur souhaite réellement.

Je conçois que cela n'est pas très clair.

Voyez plutôt :

Je souhaite alors obtenir

[Menhir]

Je conçois que cela n'est pas très clair.

Et ces deux images sans commentaires, ça te semble clair ?

Bin, en supposant que "Indice" est la colonne B :

Code :

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

1
2
Range("B16:G16").Copy Range("B17")
Range("B15:G15").Copy Range("B16")

Si c'est pas ça, c'est que ça n'est toujours pas clair.

[Pierre Fauconnier]

Salut.

[...]
Je souhaite faire une macro qui "décale" les lignes d'une feuilles.[...]

[...]
Je ne peux malheureusement pas modifier la structure de la feuille.[...]

===>>> MISSION IMPOSSIBLE!