Discussion :

[wabo67]

Bonjour à tous,

Je cherche à copier une cellule (exemple B1) de la déplacer en X de la valeur de A1 pour qu'elle se retrouve en C(X). Par contre j'ai 3500 lignes.

Quelqu'un aurait il une idée?

Merci

[Fvandermeulen]

Salut,

Voici un petit code rapide qui répond à ton besoin, par contre, je pense qu'il y a une petite erreur dans ton exemple, sinon j'ai pas bien compris ton problème.

Comme je ne connais pas ton niveau en VBA j'ai mis des commentaires qui risquent de te sembler idiot si tu maitrise un peu.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
Dim Ws As Worksheet
Dim Derlig As Long, R As Long
 
Set Ws = Sheets("LeNomDeTaFeuille")
Derlig = Ws.Cells(Ws.Columns(1).Cells.Count, 1).End(xlUp).Row 'Compte le Nb de ligne remplie sur base de la colonne A
 
For R = 1 To Derlig 'Boucle sur les lignes remplie
   Ws.Cells(R + Ws.Cells(R, 2).Value, 3) = Ws.Cells(R, 1)
   'Sur la ligne du dessus, R prend la valeur successive selon la boucle, donc le numéro de ligne de la cellule à "copier"
   'On ajoute à R la valeur de la cellule de la deuxième colonne ce qui donne la cellule de destination, le 3 renseigne la colonne
Next R
 
End Sub

A+