sélectionner avec un pas

[FRED]

bonjour, je cherche à retrier une liste verticale du type :

nom
prénom
adresse
nom
prénom
adresse
nom
prénom
adresse

pour la réorganiser selon le modèle horizontal : nom, prénom, adresse

bref, passer d'une vision en lignes à une vision par colonnes, cela pour importer dans une base de données.

j'ai écrit une macro pour 3 sélections de "nom" (voir ci-dessous), ça marche mais comment faire pour trier 25000 lignes ??? sachant que le pas de sélection pour les lignes "nom" est de 3

Range("A1,A4,A7").Select
Selection.Copy
Range("B1").Select
ActiveSheet.Paste
End Sub


merci à vous

 

[Lord Nelson]

Salut Fred,

Tu peux essayer ceci :

Private Sub CommandButton1_Click()
Dim I As Long, DerLigne As Long
DerLigne = Range("A65536").End(xlUp).Row - 2
For I = 1 To DerLigne Step 3
Range("B" & CStr(((I - 1) \ 3) + 1)) = Range("A" & CStr(I))
Range("C" & CStr(((I - 1) \ 3) + 1)) = Range("A" & CStr(I + 1))
Range("D" & CStr(((I - 1) \ 3) + 1)) = Range("A" & CStr(I + 2))
Next

End Sub

A+
LN