Bonjour,
Apres bon nombre de cherche je n'ai pas trouvé de réponse alors j' men retourne vers vous.
j'ai un tableau qui reprends des noms, des grades, et d'autres information confidentielle. J'aimerais pourvoir regroupé dans un autres tableau toutes les personnes qui ont le même grade, dans la même colonnes.
Je vous mets en annexe un fichier Excel "test".
J'ai d'abord recopié les données du tableau en pensant pouvoir les filtrées et retirer les blancs, mais le résultat n'est pas correct. impossible de mettre toutes les valeurs copiée au dessus des cases vides.
PIM | SDT | 1SD | CPL | CPC | 1CC | SGT | 1SG | 1SC | 1SM | ADJ | ADC | ADM | 1LT | LT | CPN | CDT | MAJ |
| | | | | | | | | | | | | | | | GOBYN | |
| | | | | | | | | | | | | | | | GILLET | |
| | | | | | | | | | GASPART | | | | | | | |
| | | | | WATRISSE | | | | | | | | | | | | |
| | | TECHY | | | | | | | | | | | | | | |
| | | | | | | | | | | | | BODSON | | | | |
| | | | | | | | | | TOUSSAINT | | | | | | | |
| | | | | | | | | JACQUART | | | | | | | | |
| | | | | | | BURNIAUX | | | | | | | | | | |
| | | | | | DONIN | | | | | | | | | | | |
| | | | | CABAL | | | | | | | | | | | | |
| | | | | IGNACIO MENDOZA | | | | | | | | | | | | |
| | | DE SAINT MOULIN | | | | | | | | | | | | | | |
| | | | | | | | | | | | | FRANCOIS | | | | |
| | | | | | | | | | GREGOIRE | | | | | | | |
| | | | | | | | | | FAUVART | | | | | | | |
| | | | | | | | | | BAYENET | | | | | | | |
| | | | | MICHEL | | | | | | | | | | | | |
Je me suis ensuite tourné vers le vba avec ce code mais il ne fonctionne pas non plus...
Private Sub CommandButton1_Click()
Dim i As Integer
i = 2
ligne = Sheets("test2").Range("a1").End(xlDown).Row + 1
Do While Sheets("Nom").Cells(1, i) <> ""
If Sheets("Nom").Cells(2, i).Value = ("pim") Then
Sheets("test2").Range("A" & ligne).Value = Sheets("nom").Cells(1, i)
End If
i = i + 1
Loop
End Sub
J'avoue être à court d'idées, j'espères pouvoir trouver la réponse parmi vous !
Bien à vous, Devoriis.