Recherche multicriteres avec copier/coller de la ligne

Question

Bonjour au Forum,

Débutant en Excel je dois concevoir une macro qui va me permettre de rechercher des individus remplissant plusieurs critères et s'ils remplissent bien ces critères,je copie certaines informations de leurs ligne et la colle dans une feuille("résultats") ligne après ligne.
Je répète l’opération jusqu’à la dernière ligne du classeur.

Pour l'instant j'arrive a retrouver les individus remplissant mes critères et je stock les infos que je désire dans des variable (listePlus,listeMoins) mais je n'arrive pas a copier leurs informations et les coller vers la feuille résultat
Vous trouvverez ci dessous mon algo.

Merci pour votre aide

PS: Je suis conscient qu'il doit avoir une question du genre sur le forum mais celle trouvez ne me conviennent pas.

Sub Janvier()

Dim Ligne As Integer
Dim ws_1 As Worksheet
Dim Année As Integer
Dim Statutaire As String
Dim CompteurMoins As Integer
Dim CompteurPlus As Integer
Dim SensPlus As String
Dim SensMoins As String
Dim listeMoins As String
Dim listePlus As String
Dim mois As String

Worksheets("GPEC Automatisée").Activate
mois = "1"
Ligne = 0
Set ws_1 = Worksheets("GPEC Automatisée")
CompteurPlus = 0
CompteurMoins = 0
Année = Traj.ComboBox1.Value
Statutaire = "DANS EFFECTIF STATUTAIRE"
SensPlus = "+"
SensMoins = "-"
listeMoins = ""
listePlus = ""

If Année = Traj.ComboBox1.Value = "" Then
MsgBox ("Veuillez saisir une année !!!! ")
End If

For I = 3 To detecterNumDerniereLigne() Step 1

If Statutaire = ws_1.Cells(I, 19).Value And _
mois = ws_1.Cells(I, 90).Value And _
SensPlus = ws_1.Cells(I, 95).Value And _
Année = ws_1.Cells(I, 91).Value Then
Ligne = I
CompteurPlus = CompteurPlus + 1
listePlus = listePlus & Cells(I, 2).Value & " " & Cells(I, 4).Value & " " & vbLf

Else
If Statutaire = ws_1.Cells(I, 19).Value And _
mois = ws_1.Cells(I, 90).Value And _
SensMoins = ws_1.Cells(I, 95).Value And _
Année = ws_1.Cells(I, 91).Value Then
Ligne = I
CompteurMoins = CompteurMoins + 1
listeMoins = listeMoins & Cells(I, 2).Value & " " & Cells(I, 4).Value & " " & vbLf
End If
End If

Next I

MsgBox ("Janvier Entré" & vbLf & listePlus)
MsgBox ("Janvier Sortie" & vbLf & listeMoins)

End Sub

papyg · Accepted Answer

Etant débutant si tu arrive déjà à récupérer les valeurs cherchées dans des variables c'est très bien. voila comment écrire le contenu de variable sur une feuille si telle est ta question. si tu as des questions n’hésite pas à demander mais joint un fichier avec tes demandes c'est plus facile de te répondre. CompteurPlus = 0 CompteurMoins = 0 Année = 2020 Statutaire = "DANS EFFECTIF STATUTAIRE" SensPlus = "+" SensMoins = "-" listeMoins = "oui" listePlus = "pas de liste" Worksheets("resultat").Cells(1, 1) = CompteurPlus Worksheets("resultat").Cells(1, 2) = CompteurMoins Worksheets("resultat").Cells(1, 3) = Année Worksheets("resultat").Cells(1, 4) = Statutaire Worksheets("resultat").Cells(1, 5) = SensPlus Worksheets("resultat").Cells(1, 6) = SensMoins Worksheets("resultat").Cells(1, 7) = listeMoins Worksheets("resultat").Cells(1, 8) = listePlus A plus sur le forum PAPYG...