Réorganisation d'une feuille d'identifiants Excel

Bonjour,

Je sèche devant une réorganisation d'une feuille excel depuis un long moment. J'ai bien tenté à l'aveuglette quelques essais mais sans résultats.

Je souhaite obtenir l'ensemble des données concernant les parents et l'élève sur une seule ligne dans le but de publiposter identifiants et mot de passe sur une seule feuille (exemple dans le fichier joint).

En vous remerciant.

bonjour,

une proposition avec une macro

Sub unelignepareleve()
Set wsi = Sheets("feuil1")
Set wso = Sheets("feuil2")
i = 2
While wsi.Cells(i, 1) <> ""
 If wsi.Cells(i, 3) = "Eleve" Then
  k = k + 1
  wsi.Range("A" & i & ":G" & i).Copy wso.Range("A" & k)
  Set rp = wsi.Range("a:a").Find(wsi.Range("H" & i))
  If Not (rp Is Nothing) Then
   wso.Range("H" & k) = wsi.Range("A" & i)
   wsi.Range("D" & rp.Row & ":G" & rp.Row).Copy wso.Range("I" & k)
  Else
   wso.Range("L" & k) = "Non trouvé"
  End If
  Set rp = wsi.Range("a:a").Find(wsi.Range("I" & i))

  If Not (rp Is Nothing) Then
   wso.Range("M" & k) = wsi.Range("A" & i)
   wsi.Range("D" & rp.Row & ":G" & rp.Row).Copy wso.Range("N" & k)
  Else
   wso.Range("M" & k) = "Non trouvée"
  End If
 End If
 i = i + 1
Wend
Set wsi = Nothing
Set wso = Nothing
End Sub

Merci beaucoup H2so4, la macro fonctionne parfaitement.