Je voudrais savoir comment je peut faire pour selectionner=20
a l'aide d'un UserForm des plages de cellules nomm=E9es en=20
vue de appliquer un macro qui me calcule des cellules de=20
couleurs ?
ps : la creation d'un UserForm ne me poser pas de pb -=20
malgre mon bas niveau en VBA
...donc c'est a l'aide d'une liste deroulante que je veut=20
faire cette delection
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
Joël GARBE
quelle deselectation !!!
range(me.maliste.text).select
--
Bien cordialement,
Joël GARBE www.joelgarbe.fr "paul" a écrit dans le message de news: 62c901c4c8be$6c33c4d0$ Bonjour a tous,
Je voudrais savoir comment je peut faire pour selectionner a l'aide d'un UserForm des plages de cellules nommées en vue de appliquer un macro qui me calcule des cellules de couleurs ?
ps : la creation d'un UserForm ne me poser pas de pb - malgre mon bas niveau en VBA
...donc c'est a l'aide d'une liste deroulante que je veut faire cette delection
merci d'avance pour votre aide
Paul
quelle deselectation !!!
range(me.maliste.text).select
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
"paul" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 62c901c4c8be$6c33c4d0$a301280a@phx.gbl...
Bonjour a tous,
Je voudrais savoir comment je peut faire pour selectionner
a l'aide d'un UserForm des plages de cellules nommées en
vue de appliquer un macro qui me calcule des cellules de
couleurs ?
ps : la creation d'un UserForm ne me poser pas de pb -
malgre mon bas niveau en VBA
...donc c'est a l'aide d'une liste deroulante que je veut
faire cette delection
Joël GARBE www.joelgarbe.fr "paul" a écrit dans le message de news: 62c901c4c8be$6c33c4d0$ Bonjour a tous,
Je voudrais savoir comment je peut faire pour selectionner a l'aide d'un UserForm des plages de cellules nommées en vue de appliquer un macro qui me calcule des cellules de couleurs ?
ps : la creation d'un UserForm ne me poser pas de pb - malgre mon bas niveau en VBA
...donc c'est a l'aide d'une liste deroulante que je veut faire cette delection
merci d'avance pour votre aide
Paul
paul
hehe - merci beaucoup je vais tester de suite
paul
-----Message d'origine----- quelle deselectation !!!
range(me.maliste.text).select
--
Bien cordialement,
Joël GARBE www.joelgarbe.fr "paul" a écrit dans le message de
news: 62c901c4c8be$6c33c4d0$ Bonjour a tous,
Je voudrais savoir comment je peut faire pour selectionner a l'aide d'un UserForm des plages de cellules nommées en vue de appliquer un macro qui me calcule des cellules de couleurs ?
ps : la creation d'un UserForm ne me poser pas de pb - malgre mon bas niveau en VBA
....donc c'est a l'aide d'une liste deroulante que je veut faire cette delection
merci d'avance pour votre aide
Paul
.
hehe - merci beaucoup je vais tester de suite
paul
-----Message d'origine-----
quelle deselectation !!!
range(me.maliste.text).select
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
"paul" <anonymous@discussions.microsoft.com> a écrit dans
le message de
news: 62c901c4c8be$6c33c4d0$a301280a@phx.gbl...
Bonjour a tous,
Je voudrais savoir comment je peut faire pour selectionner
a l'aide d'un UserForm des plages de cellules nommées en
vue de appliquer un macro qui me calcule des cellules de
couleurs ?
ps : la creation d'un UserForm ne me poser pas de pb -
malgre mon bas niveau en VBA
....donc c'est a l'aide d'une liste deroulante que je veut
faire cette delection
-----Message d'origine----- quelle deselectation !!!
range(me.maliste.text).select
--
Bien cordialement,
Joël GARBE www.joelgarbe.fr "paul" a écrit dans le message de
news: 62c901c4c8be$6c33c4d0$ Bonjour a tous,
Je voudrais savoir comment je peut faire pour selectionner a l'aide d'un UserForm des plages de cellules nommées en vue de appliquer un macro qui me calcule des cellules de couleurs ?
ps : la creation d'un UserForm ne me poser pas de pb - malgre mon bas niveau en VBA
....donc c'est a l'aide d'une liste deroulante que je veut faire cette delection
merci d'avance pour votre aide
Paul
.
excuse-moi je crois m'avoir mal exprime :
enfait je veut lister dans une liste deroulante d'un UserForm les differentes plages nommées existentes dans la feuille active pour en choisir une en vue d'un traitement par macro
merci d'avance pour votre aide
paul
-----Message d'origine----- quelle deselectation !!!
range(me.maliste.text).select
--
Bien cordialement,
Joël GARBE www.joelgarbe.fr "paul" a écrit dans le message de
news: 62c901c4c8be$6c33c4d0$ Bonjour a tous,
Je voudrais savoir comment je peut faire pour selectionner a l'aide d'un UserForm des plages de cellules nommées en vue de appliquer un macro qui me calcule des cellules de couleurs ?
ps : la creation d'un UserForm ne me poser pas de pb - malgre mon bas niveau en VBA
....donc c'est a l'aide d'une liste deroulante que je veut faire cette delection
merci d'avance pour votre aide
Paul
.
excuse-moi je crois m'avoir mal exprime :
enfait je veut lister dans une liste deroulante d'un
UserForm les differentes plages nommées existentes dans la
feuille active pour en choisir une en vue d'un traitement
par macro
merci d'avance pour votre aide
paul
-----Message d'origine-----
quelle deselectation !!!
range(me.maliste.text).select
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
"paul" <anonymous@discussions.microsoft.com> a écrit dans
le message de
news: 62c901c4c8be$6c33c4d0$a301280a@phx.gbl...
Bonjour a tous,
Je voudrais savoir comment je peut faire pour selectionner
a l'aide d'un UserForm des plages de cellules nommées en
vue de appliquer un macro qui me calcule des cellules de
couleurs ?
ps : la creation d'un UserForm ne me poser pas de pb -
malgre mon bas niveau en VBA
....donc c'est a l'aide d'une liste deroulante que je veut
faire cette delection
enfait je veut lister dans une liste deroulante d'un UserForm les differentes plages nommées existentes dans la feuille active pour en choisir une en vue d'un traitement par macro
merci d'avance pour votre aide
paul
-----Message d'origine----- quelle deselectation !!!
range(me.maliste.text).select
--
Bien cordialement,
Joël GARBE www.joelgarbe.fr "paul" a écrit dans le message de
news: 62c901c4c8be$6c33c4d0$ Bonjour a tous,
Je voudrais savoir comment je peut faire pour selectionner a l'aide d'un UserForm des plages de cellules nommées en vue de appliquer un macro qui me calcule des cellules de couleurs ?
ps : la creation d'un UserForm ne me poser pas de pb - malgre mon bas niveau en VBA
....donc c'est a l'aide d'une liste deroulante que je veut faire cette delection
merci d'avance pour votre aide
Paul
.
Corona
Bonjour Paul Private Sub ListBox1_Click() Application.Goto Reference:=Me.ListBox1.Value End Sub
Private Sub UserForm_Initialize() Dim nPlage As Name For Each nPlage In ActiveWorkbook.Names Me.ListBox1.AddItem nPlage.Name Next End Sub
Philippe
"paul" a écrit dans le message de news:62c901c4c8be$6c33c4d0$ Bonjour a tous,
Je voudrais savoir comment je peut faire pour selectionner a l'aide d'un UserForm des plages de cellules nommées en vue de appliquer un macro qui me calcule des cellules de couleurs ?
ps : la creation d'un UserForm ne me poser pas de pb - malgre mon bas niveau en VBA
...donc c'est a l'aide d'une liste deroulante que je veut faire cette delection
merci d'avance pour votre aide
Paul
Bonjour Paul
Private Sub ListBox1_Click()
Application.Goto Reference:=Me.ListBox1.Value
End Sub
Private Sub UserForm_Initialize()
Dim nPlage As Name
For Each nPlage In ActiveWorkbook.Names
Me.ListBox1.AddItem nPlage.Name
Next
End Sub
Philippe
"paul" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:62c901c4c8be$6c33c4d0$a301280a@phx.gbl...
Bonjour a tous,
Je voudrais savoir comment je peut faire pour selectionner
a l'aide d'un UserForm des plages de cellules nommées en
vue de appliquer un macro qui me calcule des cellules de
couleurs ?
ps : la creation d'un UserForm ne me poser pas de pb -
malgre mon bas niveau en VBA
...donc c'est a l'aide d'une liste deroulante que je veut
faire cette delection
Bonjour Paul Private Sub ListBox1_Click() Application.Goto Reference:=Me.ListBox1.Value End Sub
Private Sub UserForm_Initialize() Dim nPlage As Name For Each nPlage In ActiveWorkbook.Names Me.ListBox1.AddItem nPlage.Name Next End Sub
Philippe
"paul" a écrit dans le message de news:62c901c4c8be$6c33c4d0$ Bonjour a tous,
Je voudrais savoir comment je peut faire pour selectionner a l'aide d'un UserForm des plages de cellules nommées en vue de appliquer un macro qui me calcule des cellules de couleurs ?
ps : la creation d'un UserForm ne me poser pas de pb - malgre mon bas niveau en VBA
...donc c'est a l'aide d'une liste deroulante que je veut faire cette delection
merci d'avance pour votre aide
Paul
isabelle
bonjour Paul,
Private Sub UserForm_Initialize() Set nms = ActiveWorkbook.Names For r = 1 To nms.Count ComboBox1.AddItem nms(r).Name Next End Sub
isabelle
excuse-moi je crois m'avoir mal exprime :
enfait je veut lister dans une liste deroulante d'un UserForm les differentes plages nommées existentes dans la feuille active pour en choisir une en vue d'un traitement par macro
merci d'avance pour votre aide
paul
-----Message d'origine----- quelle deselectation !!!
range(me.maliste.text).select
--
Bien cordialement,
Joël GARBE www.joelgarbe.fr "paul" a écrit dans le message de
news: 62c901c4c8be$6c33c4d0$ Bonjour a tous,
Je voudrais savoir comment je peut faire pour selectionner a l'aide d'un UserForm des plages de cellules nommées en vue de appliquer un macro qui me calcule des cellules de couleurs ?
ps : la creation d'un UserForm ne me poser pas de pb - malgre mon bas niveau en VBA
....donc c'est a l'aide d'une liste deroulante que je veut faire cette delection
merci d'avance pour votre aide
Paul
.
bonjour Paul,
Private Sub UserForm_Initialize()
Set nms = ActiveWorkbook.Names
For r = 1 To nms.Count
ComboBox1.AddItem nms(r).Name
Next
End Sub
isabelle
excuse-moi je crois m'avoir mal exprime :
enfait je veut lister dans une liste deroulante d'un
UserForm les differentes plages nommées existentes dans la
feuille active pour en choisir une en vue d'un traitement
par macro
merci d'avance pour votre aide
paul
-----Message d'origine-----
quelle deselectation !!!
range(me.maliste.text).select
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
"paul" <anonymous@discussions.microsoft.com> a écrit dans
le message de
news: 62c901c4c8be$6c33c4d0$a301280a@phx.gbl...
Bonjour a tous,
Je voudrais savoir comment je peut faire pour selectionner
a l'aide d'un UserForm des plages de cellules nommées en
vue de appliquer un macro qui me calcule des cellules de
couleurs ?
ps : la creation d'un UserForm ne me poser pas de pb -
malgre mon bas niveau en VBA
....donc c'est a l'aide d'une liste deroulante que je veut
faire cette delection
Private Sub UserForm_Initialize() Set nms = ActiveWorkbook.Names For r = 1 To nms.Count ComboBox1.AddItem nms(r).Name Next End Sub
isabelle
excuse-moi je crois m'avoir mal exprime :
enfait je veut lister dans une liste deroulante d'un UserForm les differentes plages nommées existentes dans la feuille active pour en choisir une en vue d'un traitement par macro
merci d'avance pour votre aide
paul
-----Message d'origine----- quelle deselectation !!!
range(me.maliste.text).select
--
Bien cordialement,
Joël GARBE www.joelgarbe.fr "paul" a écrit dans le message de
news: 62c901c4c8be$6c33c4d0$ Bonjour a tous,
Je voudrais savoir comment je peut faire pour selectionner a l'aide d'un UserForm des plages de cellules nommées en vue de appliquer un macro qui me calcule des cellules de couleurs ?
ps : la creation d'un UserForm ne me poser pas de pb - malgre mon bas niveau en VBA
....donc c'est a l'aide d'une liste deroulante que je veut faire cette delection
merci d'avance pour votre aide
Paul
.
Joël GARBE
Ah OK OK !!! ;-)
1 dans formulaire :
Private Sub UserForm_Activate() ListeNom Me.ComboBox1.RowSource = Range("LesNoms").Address End Sub
Sub ListeNom() Dim LeNom As Name Dim i As Integer i = 0 Range("AD1:AD65536").ClearContents For Each LeNom In ActiveWorkbook.Names i = i + 1 Range("AD" & i).Value = LeNom.Name Next Range(Range("AD1"), Range("AD65536")).Name = "LesNoms" End Sub
évidemmnet, la plage de réception des noms est à adapter ;-)
--
Bien cordialement,
Joël GARBE www.joelgarbe.fr a écrit dans le message de news: 03d101c4c8c2$fa5f59a0$ excuse-moi je crois m'avoir mal exprime :
enfait je veut lister dans une liste deroulante d'un UserForm les differentes plages nommées existentes dans la feuille active pour en choisir une en vue d'un traitement par macro
merci d'avance pour votre aide
paul
-----Message d'origine----- quelle deselectation !!!
range(me.maliste.text).select
--
Bien cordialement,
Joël GARBE www.joelgarbe.fr "paul" a écrit dans le message de
news: 62c901c4c8be$6c33c4d0$ Bonjour a tous,
Je voudrais savoir comment je peut faire pour selectionner a l'aide d'un UserForm des plages de cellules nommées en vue de appliquer un macro qui me calcule des cellules de couleurs ?
ps : la creation d'un UserForm ne me poser pas de pb - malgre mon bas niveau en VBA
....donc c'est a l'aide d'une liste deroulante que je veut faire cette delection
merci d'avance pour votre aide
Paul
.
Ah OK OK !!! ;-)
1 dans formulaire :
Private Sub UserForm_Activate()
ListeNom
Me.ComboBox1.RowSource = Range("LesNoms").Address
End Sub
Sub ListeNom()
Dim LeNom As Name
Dim i As Integer
i = 0
Range("AD1:AD65536").ClearContents
For Each LeNom In ActiveWorkbook.Names
i = i + 1
Range("AD" & i).Value = LeNom.Name
Next
Range(Range("AD1"), Range("AD65536")).Name = "LesNoms"
End Sub
évidemmnet, la plage de réception des noms est à adapter ;-)
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
<anonymous@discussions.microsoft.com> a écrit dans le message de news:
03d101c4c8c2$fa5f59a0$a501280a@phx.gbl...
excuse-moi je crois m'avoir mal exprime :
enfait je veut lister dans une liste deroulante d'un
UserForm les differentes plages nommées existentes dans la
feuille active pour en choisir une en vue d'un traitement
par macro
merci d'avance pour votre aide
paul
-----Message d'origine-----
quelle deselectation !!!
range(me.maliste.text).select
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
"paul" <anonymous@discussions.microsoft.com> a écrit dans
le message de
news: 62c901c4c8be$6c33c4d0$a301280a@phx.gbl...
Bonjour a tous,
Je voudrais savoir comment je peut faire pour selectionner
a l'aide d'un UserForm des plages de cellules nommées en
vue de appliquer un macro qui me calcule des cellules de
couleurs ?
ps : la creation d'un UserForm ne me poser pas de pb -
malgre mon bas niveau en VBA
....donc c'est a l'aide d'une liste deroulante que je veut
faire cette delection
Private Sub UserForm_Activate() ListeNom Me.ComboBox1.RowSource = Range("LesNoms").Address End Sub
Sub ListeNom() Dim LeNom As Name Dim i As Integer i = 0 Range("AD1:AD65536").ClearContents For Each LeNom In ActiveWorkbook.Names i = i + 1 Range("AD" & i).Value = LeNom.Name Next Range(Range("AD1"), Range("AD65536")).Name = "LesNoms" End Sub
évidemmnet, la plage de réception des noms est à adapter ;-)
--
Bien cordialement,
Joël GARBE www.joelgarbe.fr a écrit dans le message de news: 03d101c4c8c2$fa5f59a0$ excuse-moi je crois m'avoir mal exprime :
enfait je veut lister dans une liste deroulante d'un UserForm les differentes plages nommées existentes dans la feuille active pour en choisir une en vue d'un traitement par macro
merci d'avance pour votre aide
paul
-----Message d'origine----- quelle deselectation !!!
range(me.maliste.text).select
--
Bien cordialement,
Joël GARBE www.joelgarbe.fr "paul" a écrit dans le message de
news: 62c901c4c8be$6c33c4d0$ Bonjour a tous,
Je voudrais savoir comment je peut faire pour selectionner a l'aide d'un UserForm des plages de cellules nommées en vue de appliquer un macro qui me calcule des cellules de couleurs ?
ps : la creation d'un UserForm ne me poser pas de pb - malgre mon bas niveau en VBA
....donc c'est a l'aide d'une liste deroulante que je veut faire cette delection
merci d'avance pour votre aide
Paul
.
isabelle
correction pour les nom de feuille active seulement :
Private Sub UserForm_Initialize() Set nms = ActiveWorkbook.Names For r = 1 To nms.Count If Range(nms(r).RefersTo).Parent.Name = ActiveSheet.Name Then ComboBox1.AddItem nms(r).Name End If Next End Sub
isabelle
bonjour Paul,
Private Sub UserForm_Initialize() Set nms = ActiveWorkbook.Names For r = 1 To nms.Count ComboBox1.AddItem nms(r).Name Next End Sub
isabelle
excuse-moi je crois m'avoir mal exprime :
enfait je veut lister dans une liste deroulante d'un UserForm les differentes plages nommées existentes dans la feuille active pour en choisir une en vue d'un traitement par macro
merci d'avance pour votre aide
paul
-----Message d'origine----- quelle deselectation !!!
range(me.maliste.text).select
--
Bien cordialement,
Joël GARBE www.joelgarbe.fr "paul" a écrit dans le message de
news: 62c901c4c8be$6c33c4d0$ Bonjour a tous,
Je voudrais savoir comment je peut faire pour selectionner a l'aide d'un UserForm des plages de cellules nommées en vue de appliquer un macro qui me calcule des cellules de couleurs ?
ps : la creation d'un UserForm ne me poser pas de pb - malgre mon bas niveau en VBA
....donc c'est a l'aide d'une liste deroulante que je veut faire cette delection
merci d'avance pour votre aide
Paul
.
correction pour les nom de feuille active seulement :
Private Sub UserForm_Initialize()
Set nms = ActiveWorkbook.Names
For r = 1 To nms.Count
If Range(nms(r).RefersTo).Parent.Name = ActiveSheet.Name Then
ComboBox1.AddItem nms(r).Name
End If
Next
End Sub
isabelle
bonjour Paul,
Private Sub UserForm_Initialize()
Set nms = ActiveWorkbook.Names
For r = 1 To nms.Count
ComboBox1.AddItem nms(r).Name
Next
End Sub
isabelle
excuse-moi je crois m'avoir mal exprime :
enfait je veut lister dans une liste deroulante d'un
UserForm les differentes plages nommées existentes dans la
feuille active pour en choisir une en vue d'un traitement
par macro
merci d'avance pour votre aide
paul
-----Message d'origine-----
quelle deselectation !!!
range(me.maliste.text).select
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
"paul" <anonymous@discussions.microsoft.com> a écrit dans
le message de
news: 62c901c4c8be$6c33c4d0$a301280a@phx.gbl...
Bonjour a tous,
Je voudrais savoir comment je peut faire pour selectionner
a l'aide d'un UserForm des plages de cellules nommées en
vue de appliquer un macro qui me calcule des cellules de
couleurs ?
ps : la creation d'un UserForm ne me poser pas de pb -
malgre mon bas niveau en VBA
....donc c'est a l'aide d'une liste deroulante que je veut
faire cette delection
correction pour les nom de feuille active seulement :
Private Sub UserForm_Initialize() Set nms = ActiveWorkbook.Names For r = 1 To nms.Count If Range(nms(r).RefersTo).Parent.Name = ActiveSheet.Name Then ComboBox1.AddItem nms(r).Name End If Next End Sub
isabelle
bonjour Paul,
Private Sub UserForm_Initialize() Set nms = ActiveWorkbook.Names For r = 1 To nms.Count ComboBox1.AddItem nms(r).Name Next End Sub
isabelle
excuse-moi je crois m'avoir mal exprime :
enfait je veut lister dans une liste deroulante d'un UserForm les differentes plages nommées existentes dans la feuille active pour en choisir une en vue d'un traitement par macro
merci d'avance pour votre aide
paul
-----Message d'origine----- quelle deselectation !!!
range(me.maliste.text).select
--
Bien cordialement,
Joël GARBE www.joelgarbe.fr "paul" a écrit dans le message de
news: 62c901c4c8be$6c33c4d0$ Bonjour a tous,
Je voudrais savoir comment je peut faire pour selectionner a l'aide d'un UserForm des plages de cellules nommées en vue de appliquer un macro qui me calcule des cellules de couleurs ?
ps : la creation d'un UserForm ne me poser pas de pb - malgre mon bas niveau en VBA
....donc c'est a l'aide d'une liste deroulante que je veut faire cette delection