A voir également:
- TRANSPOSITION DE DONNEES
- Base de données gestion de scolarité - Forum - SQL
- Script php de recherche dans une base de données - Guide
- Enregistrer les données d'un formulaire dans une base mysql ✓ - Forum - PHP
- Afficher des données mysql en php dans un tableau html - Conseils pratiques - PHP
- Ebp impossible de se connecter à la base de données ✓ - Forum - SQL
1 réponse
cs_MPi
- Messages postés
- 3877
- Date d'inscription
- mardi 19 mars 2002
- Statut
- Membre
- 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
Merci cà fonctionne à merveille !
Un grand merci à toi
Vincent
- Messages postés
-
2166
- Date d'inscription
- samedi 11 janvier 2014
- Statut
- Contributeur
- Dernière intervention
- 1 juillet 2020
109 > VINCEADONF62Reste alors à marquer ce post comme résolu ( voir au début du post "Marquer comme Résolu"
Merci