Recherche multicriteres avec copier/coller de la ligne
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
bonjour MrCerritulus
Étant 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
Re PapyG,
Merci pour votre aide.
Mon Algo fonctionne correctement grâce a vous.
Cordialement