Est-ce qu'une =E2me charitable pourrait me donner un exemple pour cr=E9er u=
ne liste d=E9roulante?
La combobox est en feuil, les donn=E9es sont en feuil2 sur la premi=E8re l=
igne =E0 partir de la colonne B. Les valeurs sont alphanum=E9riques.
Désolé mais je n'y arrive pas. Voyez le fichier en lien. http://cjoint.com/?3KDwTEet2os Dites moi ce qui cloche.
Merci
JP
Jacky
Re... Je te propose une solution avec une liste de validation en L3 Ce code à mettre dans le Thisworkbook Il sera valable pour toutes les feuilles contenues dans "LesFeuilles"(a compléter si besoin) '--------------------- Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim LesFeuilles(), Col As Integer LesFeuilles = Array("Nov-Fev", "Mars", "Avril", "Mai") If IsError(Application.Match(Sh.Name, LesFeuilles, 0)) Then Exit Sub Application.ScreenUpdating = False If Not Intersect(Target, [L3]) Is Nothing Then Col = Application.Match([L3], [classes], 0) + 1 With Sheets("Eqpeda") Range(.Cells(2, Col), .Cells(8, Col)).Copy Sh.[F1].PasteSpecial Paste:=xlPasteValues Range(.Cells(9, Col), .Cells(15, Col)).Copy Sh.[I1].PasteSpecial Paste:=xlPasteValues End With End If [l1].Activate Application.ScreenUpdating = True End Sub '---------------------------- Ton classeur http://cjoint.com/?BKEcqdTfNLI
-- Salutations JJ
"JP" a écrit dans le message de news:
Isabelle et Jacky (priorité aux filles)
Désolé mais je n'y arrive pas. Voyez le fichier en lien. http://cjoint.com/?3KDwTEet2os Dites moi ce qui cloche.
Merci
JP
Re...
Je te propose une solution avec une liste de validation en L3
Ce code à mettre dans le Thisworkbook
Il sera valable pour toutes les feuilles contenues dans "LesFeuilles"(a compléter si besoin)
'---------------------
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim LesFeuilles(), Col As Integer
LesFeuilles = Array("Nov-Fev", "Mars", "Avril", "Mai")
If IsError(Application.Match(Sh.Name, LesFeuilles, 0)) Then Exit Sub
Application.ScreenUpdating = False
If Not Intersect(Target, [L3]) Is Nothing Then
Col = Application.Match([L3], [classes], 0) + 1
With Sheets("Eqpeda")
Range(.Cells(2, Col), .Cells(8, Col)).Copy
Sh.[F1].PasteSpecial Paste:=xlPasteValues
Range(.Cells(9, Col), .Cells(15, Col)).Copy
Sh.[I1].PasteSpecial Paste:=xlPasteValues
End With
End If
[l1].Activate
Application.ScreenUpdating = True
End Sub
'----------------------------
Ton classeur
http://cjoint.com/?BKEcqdTfNLI
--
Salutations
JJ
"JP" <jthillard@gmail.com> a écrit dans le message de news:
f81cde9e-3919-4664-92bb-bef270594ba1@googlegroups.com...
Isabelle et Jacky (priorité aux filles)
Désolé mais je n'y arrive pas.
Voyez le fichier en lien.
http://cjoint.com/?3KDwTEet2os
Dites moi ce qui cloche.
Re... Je te propose une solution avec une liste de validation en L3 Ce code à mettre dans le Thisworkbook Il sera valable pour toutes les feuilles contenues dans "LesFeuilles"(a compléter si besoin) '--------------------- Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim LesFeuilles(), Col As Integer LesFeuilles = Array("Nov-Fev", "Mars", "Avril", "Mai") If IsError(Application.Match(Sh.Name, LesFeuilles, 0)) Then Exit Sub Application.ScreenUpdating = False If Not Intersect(Target, [L3]) Is Nothing Then Col = Application.Match([L3], [classes], 0) + 1 With Sheets("Eqpeda") Range(.Cells(2, Col), .Cells(8, Col)).Copy Sh.[F1].PasteSpecial Paste:=xlPasteValues Range(.Cells(9, Col), .Cells(15, Col)).Copy Sh.[I1].PasteSpecial Paste:=xlPasteValues End With End If [l1].Activate Application.ScreenUpdating = True End Sub '---------------------------- Ton classeur http://cjoint.com/?BKEcqdTfNLI
-- Salutations JJ
"JP" a écrit dans le message de news:
Isabelle et Jacky (priorité aux filles)
Désolé mais je n'y arrive pas. Voyez le fichier en lien. http://cjoint.com/?3KDwTEet2os Dites moi ce qui cloche.
Merci
JP
isabelle
j'ai modifié le code pour le combobox de la feuille "Nov-Fev" mais je n'ai pas fais le tour du classeur
http://cjoint.com/?BKEdljpBWC4
-- isabelle
Le 2012-11-29 16:47, JP a écrit :
Isabelle et Jacky (priorité aux filles)
Désolé mais je n'y arrive pas. Voyez le fichier en lien. http://cjoint.com/?3KDwTEet2os Dites moi ce qui cloche.
Merci
JP
j'ai modifié le code pour le combobox de la feuille "Nov-Fev" mais je
n'ai pas fais le tour du classeur
http://cjoint.com/?BKEdljpBWC4
--
isabelle
Le 2012-11-29 16:47, JP a écrit :
Isabelle et Jacky (priorité aux filles)
Désolé mais je n'y arrive pas.
Voyez le fichier en lien.
http://cjoint.com/?3KDwTEet2os
Dites moi ce qui cloche.
Dès potron minet vous êtes actifs ou alors vraiment du soir, quel coura ge!
Je viens de regarder vite fait mais je pense que la solution d'Isabelle con vient très bien à ce que je souhaite. Un combobox pour les 4 calendriers. Les équipes étant les mêmes sur l es 4 feuilles.
Merci à vous deux
JPierre
Bonjour Isabelle et Jacky,
Dès potron minet vous êtes actifs ou alors vraiment du soir, quel coura ge!
Je viens de regarder vite fait mais je pense que la solution d'Isabelle con vient très bien à ce que je souhaite.
Un combobox pour les 4 calendriers. Les équipes étant les mêmes sur l es 4 feuilles.
Dès potron minet vous êtes actifs ou alors vraiment du soir, quel coura ge!
Je viens de regarder vite fait mais je pense que la solution d'Isabelle con vient très bien à ce que je souhaite. Un combobox pour les 4 calendriers. Les équipes étant les mêmes sur l es 4 feuilles.
Merci à vous deux
JPierre
JP
Juste une precision encore.
Pour les feuilles mars, avril et mai, je voudrais recupérer la donnée s electionnees dans le combobox1 de la feuille Nov-Fev.
Faut-il le faire dans la macro ou peut on le faire avec une formule?
Merci
JP
Juste une precision encore.
Pour les feuilles mars, avril et mai, je voudrais recupérer la donnée s electionnees dans le combobox1 de la feuille Nov-Fev.
Faut-il le faire dans la macro ou peut on le faire avec une formule?
