Crée colonne en fonction d'un mot ; Exel2016

Bonjour,

J'ai un fichier exel avec des données présenté comme sur la première image mais cette disposition ne me permets pas d'analyser correctement mes données. Je voudrais savoir si est possible de crée des colonnes en fonctions d'un mot se répétant sur plusieurs lignes (ici Nom Prenom pour mon exemple) afin d'obtenir la même chose que la seconde image.

Cordialement.

Posté le 18 novembre 2017, 21:49
par Invité055685

signaler

Répondre

Ajouter un commentaire

Bonsoir Invité055685,

Je te propose ce fichier Excel 2007 :

https://mon-partage.fr/f/lAWTXcC0/

Ctrl e ➯ travail effectué

Alt F11 pour voir la macro, puis revenir sur Excel

---------------------------------------------

Voici le code VBA :

Option Explicit

Sub Essai()
Dim lig&, lig2&, lig3&
Application.ScreenUpdating = False
Columns("A").ClearContents: [A1] = "Nom"
lig2 = Cells(Rows.Count, 2).End(xlUp).Row - 1
lig3 = 2
For lig = 1 To lig2 Step 2
Cells(lig3, 1) = Cells(lig, 2): lig3 = lig3 + 1
Next lig
For lig = lig2 To 1 Step -2
Cells(lig, 2).Delete Shift:=xlUp
Next lig
[B1].Insert xlDown, 0
[B1] = "Prénom"
End Sub

---------------------------------------------

Si besoin, tu peux demander une adaptation.
Merci de me dire si ça te convient.

Cordialement