Bonjour à tous,
je me permets de venir vers vous car je rencontre actuellement un problème avec un code vba.
Je vous remercie d'avance de consacrer du temps à mon problème
voici ma problématique :
J'ai actuellement un tableau avec des valeurs "Texte" de ce type :
Nom Matière Note
Paul Math Bien
Paul Français Moyen
Paul Sport Très bien
Arthur Math Mauvais
Arthur Sport très bien
Ce que je souhaiterai c'est ce type de tableau :
Sachant qu'il n'y pas de note pour toutes les matières
Nom Math Français Sport ....
Paul Bien Moyen très bien
Arthur Mauvais ____ très bien
pour le moment j'ai réussi à obtenir tous les noms sans doublon avec ce code :
Sub FiltreDoublons()
Dim Plage As Range
Dim BDD As Worksheet
Dim nbl As Long
Set BDD = Worksheets("BDD")
nbl = BDD.Cells(2, 1).End(xlDown).Row
Range(BDD.Cells(2, 1), BDD.Cells(nbl, 1)).ClearContents
nbl = Cells(2, 5).End(xlDown).Row
Set Plage = Range(Cells(2, 5), Cells(nbl, 5))
'La plage filtrée sans doublons va s'afficher
'dans la cellule A1.
Plage.AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=BDD.Range("A1"), Unique:=True
End Sub
Voici un petit fichier excel pour mieux comprendre
Auriez-vous une petite idée ?
Merci d'avance
Bonne journée à vous
Adrien
je me permets de venir vers vous car je rencontre actuellement un problème avec un code vba.
Je vous remercie d'avance de consacrer du temps à mon problème
voici ma problématique :
J'ai actuellement un tableau avec des valeurs "Texte" de ce type :
Nom Matière Note
Paul Math Bien
Paul Français Moyen
Paul Sport Très bien
Arthur Math Mauvais
Arthur Sport très bien
Ce que je souhaiterai c'est ce type de tableau :
Sachant qu'il n'y pas de note pour toutes les matières
Nom Math Français Sport ....
Paul Bien Moyen très bien
Arthur Mauvais ____ très bien
pour le moment j'ai réussi à obtenir tous les noms sans doublon avec ce code :
Sub FiltreDoublons()
Dim Plage As Range
Dim BDD As Worksheet
Dim nbl As Long
Set BDD = Worksheets("BDD")
nbl = BDD.Cells(2, 1).End(xlDown).Row
Range(BDD.Cells(2, 1), BDD.Cells(nbl, 1)).ClearContents
nbl = Cells(2, 5).End(xlDown).Row
Set Plage = Range(Cells(2, 5), Cells(nbl, 5))
'La plage filtrée sans doublons va s'afficher
'dans la cellule A1.
Plage.AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=BDD.Range("A1"), Unique:=True
End Sub
Voici un petit fichier excel pour mieux comprendre
Auriez-vous une petite idée ?
Merci d'avance
Bonne journée à vous
Adrien