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

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

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

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 ?

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

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 ?

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

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 ?