Macro pour copier/coller des données avec critères Résolu/Fermé

Question

Bonjour, 

J'ai une liste de formateurs qui donnent par année plusieurs dizaines de formations.
Cette liste est présente dans une feuille avec d'autres informations sur les formations données.
Ce que je cherche à faire, c'est d'extraire la liste des formations données par un formateur, avec ou sans le choix d'une année, et coller cette liste sur la feuille ADMIN de mon doc...

J'ai regardé et testé plusieurs solutions, mais visiblement, il me manque de la connaissance vba. Non seulement je n'arrive pas èa sortir l'info de la feuille DATA, mais en plus, je n'arrive pas les coller è partir d'une certaine cellule, en descendant vers le bas..

Merci d'avance pour votre aide.

Voici le dossier : http://www.cjoint.com/data3/3BddHqivPAP.htm

Yvan

via55 · Answer

Bonjour Yvan

Macro à associer au bouton :

Sub Rectangle3_Clic()
' efface lignes
Range("I7:I50").ClearContents
'variable ligne d'inscription
ligne = 9
' récupère nom et année
nom = Range("B7")
annee = Range("B9")
' copie nom et année en I
Range("I7") = nom
Range("I8") = annee
' derniere ligne remplie de DATA en colonne 1
derlig = Sheets("DATA").Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row
' boucle sur les lignes d DATA
For n = 2 To derlig
' si le nom en DATA correspond et si pas d'année choisi ou si année en DATA correpond
If Sheets("DATA").Range("A" & n) = nom And (annee = "" Or Sheets("DATA").Range("C" & n) = annee) Then
' incremente la ligne où copier
ligne = ligne + 1
' copie la formation en I
Range("I" & ligne) = Sheets("DATA").Range("B" & n).Value
End If
Next
End Sub

Cdlmnt

freeycap · Answer

C'est tellement parfait...
Vraiment merci beaucoup.
Ca marche vraiment bien

Je ne comprends pas trop la ligne 13
derlig = Sheets("DATA").Columns(1).Find("*", , , , xlByColumns, xlPrevious)
plus particulièrement : Find("*", , , , xlByColumns, xlPrevious)
Je n'arrive pas lire, ou à la visualiser...

Merci beaucoup,

Yvan

freeycap · Answer

Autre question :

Dans la ligne 21 :
Range("I" & ligne) = Feuil4.Range("B" & n).Value
je comprend qu'on va chercher les valeurs dans la colonnes B de la feuille Data.

Imaginons que je recherche maintenand l'année et le mois d'une formation données par un formateur, alors j'écrirai le code comme tel :

Private Sub CommandButton24_Click()

' efface lignes
Range("K7:I100").ClearContents

'variable ligne d'inscription
ligne = 9

' récupère nom et année et mois
formateur = Range("B7")
formation = Range("B8")

' copie formateur et formation et mois en K
Range("K7") = formateur
Range("K8") = formation

' derniere ligne remplie de DATA en colonne 1
derlig = Feuil4.Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row

' boucle sur les lignes d DATA
For n = 2 To derlig

' si le nom en DATA correspond et si pas d'année choisie ou si année en DATA correpond
If Feuil4.Range("A" & n) = formateur And (formation = "" Or Feuil4.Range("B" & n) = formation) Then

' incremente la ligne où copier
ligne = ligne + 1
' copie la formation en K
Range("K" & ligne) = (Feuil4.Range(("C" & "D") & n).Value)
End If

Next

End Sub


Si je veux fusionner les valeurs présentes en colonne C et D de la feuil4 (data), dans la même cellule, est-ce que :
Range("K" & ligne) = (Feuil4.Range(("C" & "D") & n).Value)
est la bonne chose èa faire ?

freeycap · Answer

Excellent...
Y a t'il moyen d'ajouter un espace en l'année et le mois ?
Les 2 valeurs sont collées :
2014Décembre
Ou idéalement :
2014, Décembre

freeycap · Answer

Je m'excuse via55, je te pose beaucoup de questions, mais je débute vraiment...

si dans ton code, celui que tu m'as donné en premier, je veux aussi permettre la recherche des Formations (Feuil4 col B) par année, j'ai ajouté un morceau à la fin  pour faire comme ca :

' efface lignes
Range("I7:I100").ClearContents

'variable ligne d'inscription
ligne = 9

' récupère nom et année et mois
nom = Range("B7")
annee = Range("B9")
mois = Range("B10")

' copie nom et année et mois en I
Range("I7") = nom
Range("I8") = annee
Range("I9") = mois

' derniere ligne remplie de DATA en colonne 1
derlig = Feuil4.Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row

' boucle sur les lignes d DATA
For n = 2 To derlig

' si le nom en DATA correspond et si pas d'année choisie ou si année en DATA correpond
If Feuil4.Range("A" & n) = nom And (annee = "" Or Feuil4.Range("C" & n) = annee) And (mois = "" Or Feuil4.Range("D" & n) = mois) Then

' incremente la ligne où copier
ligne = ligne + 1
' copie la formation en I
Range("I" & ligne) = Feuil4.Range("B" & n).Value

End If

Next

Range("I7:I100").ClearContents

'variable ligne d'inscription
ligne = 9

' récupère nom et année et mois
nom = Range("B7")
annee = Range("B9")
mois = Range("B10")

' copie nom et année et mois en I
Range("I7") = nom
Range("I8") = annee
Range("I9") = mois

' derniere ligne remplie de DATA en colonne 1
derlig = Feuil4.Columns(3).Find("*", , , , xlByColumns, xlPrevious).Row

' boucle sur les lignes d DATA
For n = 2 To derlig

' si le nom en DATA correspond et si pas d'année choisie ou si année en DATA correpond
If Feuil4.Range("C" & n) = annee And (nom = "" Or Feuil4.Range("A" & n) = nom) And (mois = "" Or Feuil4.Range("D" & n) = mois) Then

' incremente la ligne où copier
ligne = ligne + 1

' copie la formation en I
Range("I" & ligne) = Feuil4.Range("B" & n).Value

End If

Next

End Sub



Le probleme, c'est qu'en faisant comme ca, le code de la premiere partie qui fonctionnait bien ne s'execute plus... J'ai l'impression que 
End If
Next
fait que la premiere partie ne s'execute plus...  Est-ce que le End If suivi de Next est la bonne chose à faire ?

freeycap · Answer

En fait , j'avais essayer comme ca, juste avec la seconde partie du code, mais une recherche sur le formateur uniquement ne fonctionne pas.

freeycap · Answer

Et dans le cas ou je veule extraire les formations (feuil4 col2) avec la conditions unique de l'année, sans prendre en compte la condition du nom du formateur ?

Macro pour copier/coller des données avec critères

7 réponses

Discussions similaires