TRANSPOSITION DE DONNEES [Résolu]
VINCEADONF62
Contributeur Dernière intervention
16 décembre 2018
- 25 sept. 2017 à 15:19
- Messages postés
- 6
- Date d'inscription
- mardi 10 septembre 2013
- Dernière intervention
- 25 septembre 2017
- Messages postés
- 1730
- Date d'inscription
- samedi 11 janvier 2014
- Statut
A voir également:
- Transposition de donnees
- Base de donnees de gestion de scolarité - Forum - SQL
- Base de données + jtable + java - Forum - Java
- Rendre le javascript dynamique par apport à une base de données - Conseils pratiques - Javascript
- Connecter une application Android à une base de données - Conseils pratiques - Java
- Affichage en tableau : afficher des données dans un tableau - Conseils pratiques - PHP
1 réponse
- Messages postés
- 3877
- Date d'inscription
- mardi 19 mars 2002
- Dernière intervention
- 23 août 2018
Bonjour,
Essaie comme ceci
Essaie comme ceci
Sub Transposer()
Dim I As Long, nbLignes As Long, Dest As Long
With Sheets("Feuil1") 'Changer le nom de la feuille au besoin
nbLignes = .Cells(.Rows.Count, "A").End(xlUp).Row 'nombre de lignes en A
Dest = 1 'Ligne de destination
For I = 1 To nbLignes Step 3 'boucle en groupe de 3
Range(Cells(I, 1), Cells(I + 2, 1)).Copy
Range("D" & Dest).PasteSpecial Transpose:=True
Dest = Dest + 1
Next
End With
End Sub
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.
- Messages postés
- 6
- Date d'inscription
- mardi 10 septembre 2013
- Dernière intervention
- 25 septembre 2017
-Merci cà fonctionne à merveille !
Un grand merci à toi
Vincent
- Messages postés
- 6
- Date d'inscription
- mardi 10 septembre 2013
- Dernière intervention
- 25 septembre 2017
-Reste alors à marquer ce post comme résolu ( voir au début du post "Marquer comme Résolu"
Merci