J'ai un petit avec ce code que j'ai bricolé. Ce code répond à un bouton dans
une Liste Déroulante.
Private Sub Selectionner_Click()
'
With Worksheets("Accueil").Range("a8:a59")
Set c = .Find([g7], LookIn:=xlValues)
c.Cells.Activate
End With
ListeDeroulante.Hide
End Sub
Quand je clique sur le bouton LISTE DEROULANTE j'accède à une liste
déroulante à partir de laquelle je peux sélectionner ( en cliquant sur le
bouton " SELECTIONNER UNE SEMAINE " ) une semaine par son nom dans une liste
se trouvant sur la feuille "Accueil". La liste des semaines se trouvant dans
la liste déroulante est une ListBox ayant comme "RowSource" un nom "ListSem"
qui couvre la liste se trouvant sur la page "Accueil".
Le fait de Sélectionner une semaine dans la liste affiche sur la cellule
"ControlSource" ( cellule F7) le numéro de la semaine. Dans la cellule juste
à droite il y a une petite formule qui CONCATENE le texte "S" avec le numéro
donnant ainsi un nom de semaine en cellule G7.
Et c'est précisément ce nom de semaine ( donc en cellule G7 ) que mon code
est sensé rechercher dans la liste de la page "Accueil" et sélectionner la
cellule où se trouve ce nom.
Cela fonctionne très bien pour toute les semaines sauf pour la semaine n°1
ou malgré que le nom en G4 soit bien S1 mon code sélectionne "
desespéremment " la semaine S10 ! ! !
Ou est ce qu'il y aurait " gourance " dans mon code ?
Merci de votre aide.
Cordialement.
Excel...lent
N'oubliez pas votre lampe à huile et votre casque et descendez dans ces
mines d'or
pour des explorations fructueuses :
http://www.excelabo.net/
http://frederic.sigonneau.free.fr
http://dj.joss.free.fr/
http://jacxl.free.fr
http://www.cathyastuce.com/excel.htm
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Excel...lent
Re
Au fait pour une meilleure compréhension voir le fichier en Cjoint ici :
http://cjoint.com/?lxws6QJCj8
Cordialement.
Excel...lent
N'oubliez pas votre lampe à huile et votre casque et descendez dans ces mines d'or pour des explorations fructueuses : http://www.excelabo.net/ http://frederic.sigonneau.free.fr http://dj.joss.free.fr/ http://jacxl.free.fr http://www.cathyastuce.com/excel.htm
Re
Au fait pour une meilleure compréhension voir le fichier en Cjoint ici :
http://cjoint.com/?lxws6QJCj8
Cordialement.
Excel...lent
N'oubliez pas votre lampe à huile et votre casque et descendez dans ces
mines d'or
pour des explorations fructueuses :
http://www.excelabo.net/
http://frederic.sigonneau.free.fr
http://dj.joss.free.fr/
http://jacxl.free.fr
http://www.cathyastuce.com/excel.htm
Au fait pour une meilleure compréhension voir le fichier en Cjoint ici :
http://cjoint.com/?lxws6QJCj8
Cordialement.
Excel...lent
N'oubliez pas votre lampe à huile et votre casque et descendez dans ces mines d'or pour des explorations fructueuses : http://www.excelabo.net/ http://frederic.sigonneau.free.fr http://dj.joss.free.fr/ http://jacxl.free.fr http://www.cathyastuce.com/excel.htm
michdenis
Bonjour Excel...lent,
Essaie ceci :
Dans ton formulaire, '--------------------------- Private Sub Selectionner_Click()
Dim Mot As String With Worksheets("Accueil") Mot = .Range("G7").Text With .Range("a8:a59") Set c = .Find(Mot, LookIn:=xlValues, Lookat:=xlWhole) c.Cells.Activate End With End With ListeDeroulante.Hide End Sub '---------------------------
Salutations!
"Excel...lent" a écrit dans le message de news: Bonsoir la communauté,
J'ai un petit avec ce code que j'ai bricolé. Ce code répond à un bouton dans une Liste Déroulante.
Private Sub Selectionner_Click() ' With Worksheets("Accueil").Range("a8:a59") Set c = .Find([g7], LookIn:=xlValues) c.Cells.Activate End With ListeDeroulante.Hide End Sub
Quand je clique sur le bouton LISTE DEROULANTE j'accède à une liste déroulante à partir de laquelle je peux sélectionner ( en cliquant sur le bouton " SELECTIONNER UNE SEMAINE " ) une semaine par son nom dans une liste se trouvant sur la feuille "Accueil". La liste des semaines se trouvant dans la liste déroulante est une ListBox ayant comme "RowSource" un nom "ListSem" qui couvre la liste se trouvant sur la page "Accueil".
Le fait de Sélectionner une semaine dans la liste affiche sur la cellule "ControlSource" ( cellule F7) le numéro de la semaine. Dans la cellule juste à droite il y a une petite formule qui CONCATENE le texte "S" avec le numéro donnant ainsi un nom de semaine en cellule G7.
Et c'est précisément ce nom de semaine ( donc en cellule G7 ) que mon code est sensé rechercher dans la liste de la page "Accueil" et sélectionner la cellule où se trouve ce nom.
Cela fonctionne très bien pour toute les semaines sauf pour la semaine n°1 ou malgré que le nom en G4 soit bien S1 mon code sélectionne " desespéremment " la semaine S10 ! ! !
Ou est ce qu'il y aurait " gourance " dans mon code ?
Merci de votre aide.
Cordialement.
Excel...lent
N'oubliez pas votre lampe à huile et votre casque et descendez dans ces mines d'or pour des explorations fructueuses : http://www.excelabo.net/ http://frederic.sigonneau.free.fr http://dj.joss.free.fr/ http://jacxl.free.fr http://www.cathyastuce.com/excel.htm
Bonjour Excel...lent,
Essaie ceci :
Dans ton formulaire,
'---------------------------
Private Sub Selectionner_Click()
Dim Mot As String
With Worksheets("Accueil")
Mot = .Range("G7").Text
With .Range("a8:a59")
Set c = .Find(Mot, LookIn:=xlValues, Lookat:=xlWhole)
c.Cells.Activate
End With
End With
ListeDeroulante.Hide
End Sub
'---------------------------
Salutations!
"Excel...lent" <vpco@free.fr> a écrit dans le message de news: uGVwxNH8FHA.740@TK2MSFTNGP11.phx.gbl...
Bonsoir la communauté,
J'ai un petit avec ce code que j'ai bricolé. Ce code répond à un bouton dans
une Liste Déroulante.
Private Sub Selectionner_Click()
'
With Worksheets("Accueil").Range("a8:a59")
Set c = .Find([g7], LookIn:=xlValues)
c.Cells.Activate
End With
ListeDeroulante.Hide
End Sub
Quand je clique sur le bouton LISTE DEROULANTE j'accède à une liste
déroulante à partir de laquelle je peux sélectionner ( en cliquant sur le
bouton " SELECTIONNER UNE SEMAINE " ) une semaine par son nom dans une liste
se trouvant sur la feuille "Accueil". La liste des semaines se trouvant dans
la liste déroulante est une ListBox ayant comme "RowSource" un nom "ListSem"
qui couvre la liste se trouvant sur la page "Accueil".
Le fait de Sélectionner une semaine dans la liste affiche sur la cellule
"ControlSource" ( cellule F7) le numéro de la semaine. Dans la cellule juste
à droite il y a une petite formule qui CONCATENE le texte "S" avec le numéro
donnant ainsi un nom de semaine en cellule G7.
Et c'est précisément ce nom de semaine ( donc en cellule G7 ) que mon code
est sensé rechercher dans la liste de la page "Accueil" et sélectionner la
cellule où se trouve ce nom.
Cela fonctionne très bien pour toute les semaines sauf pour la semaine n°1
ou malgré que le nom en G4 soit bien S1 mon code sélectionne "
desespéremment " la semaine S10 ! ! !
Ou est ce qu'il y aurait " gourance " dans mon code ?
Merci de votre aide.
Cordialement.
Excel...lent
N'oubliez pas votre lampe à huile et votre casque et descendez dans ces
mines d'or
pour des explorations fructueuses :
http://www.excelabo.net/
http://frederic.sigonneau.free.fr
http://dj.joss.free.fr/
http://jacxl.free.fr
http://www.cathyastuce.com/excel.htm
Dans ton formulaire, '--------------------------- Private Sub Selectionner_Click()
Dim Mot As String With Worksheets("Accueil") Mot = .Range("G7").Text With .Range("a8:a59") Set c = .Find(Mot, LookIn:=xlValues, Lookat:=xlWhole) c.Cells.Activate End With End With ListeDeroulante.Hide End Sub '---------------------------
Salutations!
"Excel...lent" a écrit dans le message de news: Bonsoir la communauté,
J'ai un petit avec ce code que j'ai bricolé. Ce code répond à un bouton dans une Liste Déroulante.
Private Sub Selectionner_Click() ' With Worksheets("Accueil").Range("a8:a59") Set c = .Find([g7], LookIn:=xlValues) c.Cells.Activate End With ListeDeroulante.Hide End Sub
Quand je clique sur le bouton LISTE DEROULANTE j'accède à une liste déroulante à partir de laquelle je peux sélectionner ( en cliquant sur le bouton " SELECTIONNER UNE SEMAINE " ) une semaine par son nom dans une liste se trouvant sur la feuille "Accueil". La liste des semaines se trouvant dans la liste déroulante est une ListBox ayant comme "RowSource" un nom "ListSem" qui couvre la liste se trouvant sur la page "Accueil".
Le fait de Sélectionner une semaine dans la liste affiche sur la cellule "ControlSource" ( cellule F7) le numéro de la semaine. Dans la cellule juste à droite il y a une petite formule qui CONCATENE le texte "S" avec le numéro donnant ainsi un nom de semaine en cellule G7.
Et c'est précisément ce nom de semaine ( donc en cellule G7 ) que mon code est sensé rechercher dans la liste de la page "Accueil" et sélectionner la cellule où se trouve ce nom.
Cela fonctionne très bien pour toute les semaines sauf pour la semaine n°1 ou malgré que le nom en G4 soit bien S1 mon code sélectionne " desespéremment " la semaine S10 ! ! !
Ou est ce qu'il y aurait " gourance " dans mon code ?
Merci de votre aide.
Cordialement.
Excel...lent
N'oubliez pas votre lampe à huile et votre casque et descendez dans ces mines d'or pour des explorations fructueuses : http://www.excelabo.net/ http://frederic.sigonneau.free.fr http://dj.joss.free.fr/ http://jacxl.free.fr http://www.cathyastuce.com/excel.htm
Excel...lent
Bonsoir michdenis,
Je me doutais un peu que ça tournait autour d'une formatage en texte mais je ne n'arrivais pas à le transformer en VBA.
C'est chose faite grâce à toi.
Bien sur ta correction de mon code fonctionne à la perfection !
Comme toujours tu tapes juste et en plus tu le fais vite et bien. Merci beaucoup à toi.
Cordialement.
Excel...lent
N'oubliez pas votre lampe à huile et votre casque et descendez dans ces mines d'or pour des explorations fructueuses : http://www.excelabo.net/ http://frederic.sigonneau.free.fr http://dj.joss.free.fr/ http://jacxl.free.fr http://www.cathyastuce.com/excel.htm
Bonsoir michdenis,
Je me doutais un peu que ça tournait autour d'une formatage en texte mais je
ne n'arrivais pas à le transformer en VBA.
C'est chose faite grâce à toi.
Bien sur ta correction de mon code fonctionne à la perfection !
Comme toujours tu tapes juste et en plus tu le fais vite et bien. Merci
beaucoup à toi.
Cordialement.
Excel...lent
N'oubliez pas votre lampe à huile et votre casque et descendez dans ces
mines d'or
pour des explorations fructueuses :
http://www.excelabo.net/
http://frederic.sigonneau.free.fr
http://dj.joss.free.fr/
http://jacxl.free.fr
http://www.cathyastuce.com/excel.htm
Je me doutais un peu que ça tournait autour d'une formatage en texte mais je ne n'arrivais pas à le transformer en VBA.
C'est chose faite grâce à toi.
Bien sur ta correction de mon code fonctionne à la perfection !
Comme toujours tu tapes juste et en plus tu le fais vite et bien. Merci beaucoup à toi.
Cordialement.
Excel...lent
N'oubliez pas votre lampe à huile et votre casque et descendez dans ces mines d'or pour des explorations fructueuses : http://www.excelabo.net/ http://frederic.sigonneau.free.fr http://dj.joss.free.fr/ http://jacxl.free.fr http://www.cathyastuce.com/excel.htm
