Discussion :

[La Zélie]

Bonjour, j'ai encore besoin de vos lumières.

J'ai un tableau de 500 lignes , dans une colonne, j'ai besoin de prendre une valeur toute les 2 lignes et de la copier sur la colonne à côté mais sur la ligne supérieur et ensuite de supprimer la ligne vide.Pour ça il faut que je passe par du code et je ne sais pas faire

Comme je ne suis pas sûre d'avoir bien exposer mon problème, j'ai fait un exemple de ce que je veux obtenir.

Je remercie d'avance toute personne qui peut m'aider

La Zélie

[Invité]

Bonjour,

Il n'est pas obligatoire de passer par une macro (mais bien sûr ça peut se faire facilement), dans votre exemple :

-en C3 vous tapez =B4

Vous sélectionnez C3 jusque C4 puis copier.

Vous collez de la ligne C5 jusqu'à la dernière.


En D3 vous tapez 1 puis clic droit sur le coin en bas à gauche de de D3 et en maintenant le bouton vous descendez jusqu'à à la dernière ligne puis "Incrémenter une série".

Sélectionner la colonne C puis "Copier" puis sélectionner C3 et "Collage spécial", "Valeur".
Il ne reste plus qu'à trier sur la colonne C puis supprimer les lignes vides puis trier sur la colonne D puis supprimer cette dernière.

Précaution : faire une copie du fichier avant.

[Invité]

Sinon, copier ce code dans votre feuille dans la fenêtre VBA:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Mise_en_forme()
dl = Range("A65536").End(xlUp).Row
'1ère ligne de données
pl = 3
'1ère colonne de données
c1 = 1
'2ème colonne de données
c2 = 2
 
For i = pl + 1 To dl
t2 = Cells(i, c1)
Cells(i - 1, c2) = t2
Rows(i).Delete
dl = dl - 1
Next i
 
End Sub

Modifiez éventuellement la valeur de "pl", "c1", "c2"

[La Zélie]

merci jacques_jean

je vais tester le code; j'ai oublié de préciser que les données du tableau peuvent changer entre 3 à 25 fois par jour et que je dois réorganiser les données à chaque fois pour pouvoir les envoyer dans une base de données.

A+