Bonjour,
je profite de votre connaissance du sujet pour vous
soumettre un nouveau probl=E8me
col A Date
Puis
Col b formation
Col c formateur
Col d Formation
Col e Formateur
Avec un formulaire je r=E9cup=E8re le nom d'un formateur=20
(cformateur), et je souhaite r=E9cup=E9rer le nom du ou des=20
formateurs qui paraissent sur deux formation diff=E9rentes.
Nb Il est possible qu'une formation apparaisse plusieurs=20
fois dans les colonnes.
l'id=E9al =E9tant que le r=E9sultat soit dans un listbox, mais=20
bon !!!
Merci =E0 ceux qui auront le courage de se pencher sur mon=20
probl=E8me.
La procédure suivante recherche pour une plage de formateurs à partir de G1, les formations effectuées. Si nb de formations différentes >=2 alors on place les noms à partir de J2 en colonne. Il ne restera qu'à nommer J2 à Jx pour utiliser cette plage comme source d'un Combobox par exemple :
Sub titi() Range("Form").Select For cpt = 1 To Range([G1], [G1].End(xlDown)).Rows.Count For cpt2 = 1 To Application.CountIf(Range("Form"), Range("g1") _ .Offset(cpt - 1)) Selection.Find(What:=Range("g1") _ .Offset(cpt - 1), After:¬tiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:úlse).Activate c = ActiveCell.Offset(0, 1).Value If cpt2 = 1 Then w = c If w <> c Then Range("j65536").End(xlUp).Offset(1, 0) = Range ("g1").Offset(cpt - 1) Exit For End If Next Next ActiveWorkbook.Names.Add Name:="ListeNoms", RefersToR1C1:= _ Range(Range("J2"),Range("J2").End(XlDown) End Sub
Camille
-----Message d'origine----- Bonjour, je profite de votre connaissance du sujet pour vous soumettre un nouveau problème col A Date Puis Col b formation Col c formateur
Col d Formation Col e Formateur
Avec un formulaire je récupère le nom d'un formateur (cformateur), et je souhaite récupérer le nom du ou des formateurs qui paraissent sur deux formation différentes. Nb Il est possible qu'une formation apparaisse plusieurs fois dans les colonnes. l'idéal étant que le résultat soit dans un listbox, mais bon !!! Merci à ceux qui auront le courage de se pencher sur mon problème. .
Bonjour,
La procédure suivante recherche pour une plage de
formateurs à partir de G1, les formations effectuées. Si
nb de formations différentes >=2 alors on place les noms à
partir de J2 en colonne.
Il ne restera qu'à nommer J2 à Jx pour utiliser cette
plage comme source d'un Combobox par exemple :
Sub titi()
Range("Form").Select
For cpt = 1 To Range([G1], [G1].End(xlDown)).Rows.Count
For cpt2 = 1 To Application.CountIf(Range("Form"),
Range("g1") _
.Offset(cpt - 1))
Selection.Find(What:=Range("g1") _
.Offset(cpt - 1), After:=ActiveCell,
LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:=False).Activate
c = ActiveCell.Offset(0, 1).Value
If cpt2 = 1 Then w = c
If w <> c Then
Range("j65536").End(xlUp).Offset(1, 0) = Range
("g1").Offset(cpt - 1)
Exit For
End If
Next
Next
ActiveWorkbook.Names.Add Name:="ListeNoms",
RefersToR1C1:= _
Range(Range("J2"),Range("J2").End(XlDown)
End Sub
Camille
-----Message d'origine-----
Bonjour,
je profite de votre connaissance du sujet pour vous
soumettre un nouveau problème
col A Date
Puis
Col b formation
Col c formateur
Col d Formation
Col e Formateur
Avec un formulaire je récupère le nom d'un formateur
(cformateur), et je souhaite récupérer le nom du ou des
formateurs qui paraissent sur deux formation différentes.
Nb Il est possible qu'une formation apparaisse plusieurs
fois dans les colonnes.
l'idéal étant que le résultat soit dans un listbox, mais
bon !!!
Merci à ceux qui auront le courage de se pencher sur mon
problème.
.
La procédure suivante recherche pour une plage de formateurs à partir de G1, les formations effectuées. Si nb de formations différentes >=2 alors on place les noms à partir de J2 en colonne. Il ne restera qu'à nommer J2 à Jx pour utiliser cette plage comme source d'un Combobox par exemple :
Sub titi() Range("Form").Select For cpt = 1 To Range([G1], [G1].End(xlDown)).Rows.Count For cpt2 = 1 To Application.CountIf(Range("Form"), Range("g1") _ .Offset(cpt - 1)) Selection.Find(What:=Range("g1") _ .Offset(cpt - 1), After:¬tiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:úlse).Activate c = ActiveCell.Offset(0, 1).Value If cpt2 = 1 Then w = c If w <> c Then Range("j65536").End(xlUp).Offset(1, 0) = Range ("g1").Offset(cpt - 1) Exit For End If Next Next ActiveWorkbook.Names.Add Name:="ListeNoms", RefersToR1C1:= _ Range(Range("J2"),Range("J2").End(XlDown) End Sub
Camille
-----Message d'origine----- Bonjour, je profite de votre connaissance du sujet pour vous soumettre un nouveau problème col A Date Puis Col b formation Col c formateur
Col d Formation Col e Formateur
Avec un formulaire je récupère le nom d'un formateur (cformateur), et je souhaite récupérer le nom du ou des formateurs qui paraissent sur deux formation différentes. Nb Il est possible qu'une formation apparaisse plusieurs fois dans les colonnes. l'idéal étant que le résultat soit dans un listbox, mais bon !!! Merci à ceux qui auront le courage de se pencher sur mon problème. .
