Bonjours à tous
J'ai ce qui suit pour avoir la liste de mes onglets ds un cbx
je voudrai exclure certains onglets de cette liste comment puis je fair e?
Dim f As Worksheet, x As Integer
For Each f In Worksheets
If f.Name = ActiveSheet.Name Then x = ComboBox4.ListCount
ComboBox4.AddItem f.Name
Next
ComboBox4.ListIndex = x
Par ailleur si un nouveau nom d'onglet est saisie je voudrai le creer
Merci
--
IMER09
Bonjours à tous
J'ai ce qui suit pour avoir la liste de mes onglets ds un cbx
je voudrai exclure certains onglets de cette liste comment puis je fair e?
Dim f As Worksheet, x As Integer
For Each f In Worksheets
If f.Name = ActiveSheet.Name Then x = ComboBox4.ListCount
ComboBox4.AddItem f.Name
Next
ComboBox4.ListIndex = x
Par ailleur si un nouveau nom d'onglet est saisie je voudrai le creer
Merci
--
IMER09
Bonjours à tous
J'ai ce qui suit pour avoir la liste de mes onglets ds un cbx
je voudrai exclure certains onglets de cette liste comment puis je fair e?
Dim f As Worksheet, x As Integer
For Each f In Worksheets
If f.Name = ActiveSheet.Name Then x = ComboBox4.ListCount
ComboBox4.AddItem f.Name
Next
ComboBox4.ListIndex = x
Par ailleur si un nouveau nom d'onglet est saisie je voudrai le creer
Merci
--
IMER09
Bonjour,
Private Sub UserForm_Initialize()
exclu = Array("Feuil3", "Feuil4")
Dim autorise()
For Each s In ActiveWorkbook.Sheets
temp = s.Name
If IsError(Application.Match(temp, exclu, 0)) Then
k = k + 1
ReDim Preserve autorise(1 To k)
autorise(k) = s.Name
End If
Next s
Me.ComboBox1.List = autorise
End Sub
JB
http://boisgontierjacques.free.fr/
On 25 mar, 17:08, IMER09 wrote:Bonjours à tous
J'ai ce qui suit pour avoir la liste de mes onglets ds un cbx
je voudrai exclure certains onglets de cette liste comment puis je faire?
Dim f As Worksheet, x As Integer
For Each f In Worksheets
If f.Name = ActiveSheet.Name Then x = ComboBox4.ListCount
ComboBox4.AddItem f.Name
Next
ComboBox4.ListIndex = x
Par ailleur si un nouveau nom d'onglet est saisie je voudrai le creer
Merci
--
IMER09
Bonjour,
Private Sub UserForm_Initialize()
exclu = Array("Feuil3", "Feuil4")
Dim autorise()
For Each s In ActiveWorkbook.Sheets
temp = s.Name
If IsError(Application.Match(temp, exclu, 0)) Then
k = k + 1
ReDim Preserve autorise(1 To k)
autorise(k) = s.Name
End If
Next s
Me.ComboBox1.List = autorise
End Sub
JB
http://boisgontierjacques.free.fr/
On 25 mar, 17:08, IMER09 <t...@discussions.microso.com> wrote:
Bonjours à tous
J'ai ce qui suit pour avoir la liste de mes onglets ds un cbx
je voudrai exclure certains onglets de cette liste comment puis je faire?
Dim f As Worksheet, x As Integer
For Each f In Worksheets
If f.Name = ActiveSheet.Name Then x = ComboBox4.ListCount
ComboBox4.AddItem f.Name
Next
ComboBox4.ListIndex = x
Par ailleur si un nouveau nom d'onglet est saisie je voudrai le creer
Merci
--
IMER09
Bonjour,
Private Sub UserForm_Initialize()
exclu = Array("Feuil3", "Feuil4")
Dim autorise()
For Each s In ActiveWorkbook.Sheets
temp = s.Name
If IsError(Application.Match(temp, exclu, 0)) Then
k = k + 1
ReDim Preserve autorise(1 To k)
autorise(k) = s.Name
End If
Next s
Me.ComboBox1.List = autorise
End Sub
JB
http://boisgontierjacques.free.fr/
On 25 mar, 17:08, IMER09 wrote:Bonjours à tous
J'ai ce qui suit pour avoir la liste de mes onglets ds un cbx
je voudrai exclure certains onglets de cette liste comment puis je faire?
Dim f As Worksheet, x As Integer
For Each f In Worksheets
If f.Name = ActiveSheet.Name Then x = ComboBox4.ListCount
ComboBox4.AddItem f.Name
Next
ComboBox4.ListIndex = x
Par ailleur si un nouveau nom d'onglet est saisie je voudrai le creer
Merci
--
IMER09
Merci JB c'est parfait
mais je butte encore sur la suite de ce que je veux faire !!
Je voudrai faire un remplissage en cascade d'une seconde cbx en fonction d e
la premiere
j'ai essayer ceci ss grd succe
Private Sub ComboBox4_Click()
ComboBox2.RowSource = Worksheets(ComboBox4.Value).Range("A1:A" &
_[A65536].End(3).Row)
End Sub
Merci pour vos lumiere chez moi c'est tout noir!!!
--
IMER09
"JB" wrote:Bonjour,
Private Sub UserForm_Initialize()
exclu = Array("Feuil3", "Feuil4")
Dim autorise()
For Each s In ActiveWorkbook.Sheets
temp = s.Name
If IsError(Application.Match(temp, exclu, 0)) Then
k = k + 1
ReDim Preserve autorise(1 To k)
autorise(k) = s.Name
End If
Next s
Me.ComboBox1.List = autorise
End Sub
JB
http://boisgontierjacques.free.fr/
On 25 mar, 17:08, IMER09 wrote:Bonjours à tous
J'ai ce qui suit pour avoir la liste de mes onglets ds un cbx
je voudrai exclure certains onglets de cette liste comment puis je faire?
Dim f As Worksheet, x As Integer
For Each f In Worksheets
If f.Name = ActiveSheet.Name Then x = ComboBox4.ListCount
ComboBox4.AddItem f.Name
Next
ComboBox4.ListIndex = x
Par ailleur si un nouveau nom d'onglet est saisie je voudrai le creer
Merci
--
IMER09- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Merci JB c'est parfait
mais je butte encore sur la suite de ce que je veux faire !!
Je voudrai faire un remplissage en cascade d'une seconde cbx en fonction d e
la premiere
j'ai essayer ceci ss grd succe
Private Sub ComboBox4_Click()
ComboBox2.RowSource = Worksheets(ComboBox4.Value).Range("A1:A" &
_[A65536].End(3).Row)
End Sub
Merci pour vos lumiere chez moi c'est tout noir!!!
--
IMER09
"JB" wrote:
Bonjour,
Private Sub UserForm_Initialize()
exclu = Array("Feuil3", "Feuil4")
Dim autorise()
For Each s In ActiveWorkbook.Sheets
temp = s.Name
If IsError(Application.Match(temp, exclu, 0)) Then
k = k + 1
ReDim Preserve autorise(1 To k)
autorise(k) = s.Name
End If
Next s
Me.ComboBox1.List = autorise
End Sub
JB
http://boisgontierjacques.free.fr/
On 25 mar, 17:08, IMER09 <t...@discussions.microso.com> wrote:
Bonjours à tous
J'ai ce qui suit pour avoir la liste de mes onglets ds un cbx
je voudrai exclure certains onglets de cette liste comment puis je faire?
Dim f As Worksheet, x As Integer
For Each f In Worksheets
If f.Name = ActiveSheet.Name Then x = ComboBox4.ListCount
ComboBox4.AddItem f.Name
Next
ComboBox4.ListIndex = x
Par ailleur si un nouveau nom d'onglet est saisie je voudrai le creer
Merci
--
IMER09- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Merci JB c'est parfait
mais je butte encore sur la suite de ce que je veux faire !!
Je voudrai faire un remplissage en cascade d'une seconde cbx en fonction d e
la premiere
j'ai essayer ceci ss grd succe
Private Sub ComboBox4_Click()
ComboBox2.RowSource = Worksheets(ComboBox4.Value).Range("A1:A" &
_[A65536].End(3).Row)
End Sub
Merci pour vos lumiere chez moi c'est tout noir!!!
--
IMER09
"JB" wrote:Bonjour,
Private Sub UserForm_Initialize()
exclu = Array("Feuil3", "Feuil4")
Dim autorise()
For Each s In ActiveWorkbook.Sheets
temp = s.Name
If IsError(Application.Match(temp, exclu, 0)) Then
k = k + 1
ReDim Preserve autorise(1 To k)
autorise(k) = s.Name
End If
Next s
Me.ComboBox1.List = autorise
End Sub
JB
http://boisgontierjacques.free.fr/
On 25 mar, 17:08, IMER09 wrote:Bonjours à tous
J'ai ce qui suit pour avoir la liste de mes onglets ds un cbx
je voudrai exclure certains onglets de cette liste comment puis je faire?
Dim f As Worksheet, x As Integer
For Each f In Worksheets
If f.Name = ActiveSheet.Name Then x = ComboBox4.ListCount
ComboBox4.AddItem f.Name
Next
ComboBox4.ListIndex = x
Par ailleur si un nouveau nom d'onglet est saisie je voudrai le creer
Merci
--
IMER09- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Merci JB c'est parfait
mais je butte encore sur la suite de ce que je veux faire !!
Je voudrai faire un remplissage en cascade d'une seconde cbx en fonction de
la premiere
j'ai essayer ceci ss grd succe
Private Sub ComboBox4_Click()
ComboBox2.RowSource = Worksheets(ComboBox4.Value).Range("A1:A" &
_[A65536].End(3).Row)
End Sub
Merci pour vos lumiere chez moi c'est tout noir!!!
--
IMER09
"JB" wrote:Bonjour,
Private Sub UserForm_Initialize()
exclu = Array("Feuil3", "Feuil4")
Dim autorise()
For Each s In ActiveWorkbook.Sheets
temp = s.Name
If IsError(Application.Match(temp, exclu, 0)) Then
k = k + 1
ReDim Preserve autorise(1 To k)
autorise(k) = s.Name
End If
Next s
Me.ComboBox1.List = autorise
End Sub
JB
http://boisgontierjacques.free.fr/
On 25 mar, 17:08, IMER09 wrote:Bonjours à tous
J'ai ce qui suit pour avoir la liste de mes onglets ds un cbx
je voudrai exclure certains onglets de cette liste comment puis je faire?
Dim f As Worksheet, x As Integer
For Each f In Worksheets
If f.Name = ActiveSheet.Name Then x = ComboBox4.ListCount
ComboBox4.AddItem f.Name
Next
ComboBox4.ListIndex = x
Par ailleur si un nouveau nom d'onglet est saisie je voudrai le creer
Merci
--
IMER09
Merci JB c'est parfait
mais je butte encore sur la suite de ce que je veux faire !!
Je voudrai faire un remplissage en cascade d'une seconde cbx en fonction de
la premiere
j'ai essayer ceci ss grd succe
Private Sub ComboBox4_Click()
ComboBox2.RowSource = Worksheets(ComboBox4.Value).Range("A1:A" &
_[A65536].End(3).Row)
End Sub
Merci pour vos lumiere chez moi c'est tout noir!!!
--
IMER09
"JB" wrote:
Bonjour,
Private Sub UserForm_Initialize()
exclu = Array("Feuil3", "Feuil4")
Dim autorise()
For Each s In ActiveWorkbook.Sheets
temp = s.Name
If IsError(Application.Match(temp, exclu, 0)) Then
k = k + 1
ReDim Preserve autorise(1 To k)
autorise(k) = s.Name
End If
Next s
Me.ComboBox1.List = autorise
End Sub
JB
http://boisgontierjacques.free.fr/
On 25 mar, 17:08, IMER09 <t...@discussions.microso.com> wrote:
Bonjours à tous
J'ai ce qui suit pour avoir la liste de mes onglets ds un cbx
je voudrai exclure certains onglets de cette liste comment puis je faire?
Dim f As Worksheet, x As Integer
For Each f In Worksheets
If f.Name = ActiveSheet.Name Then x = ComboBox4.ListCount
ComboBox4.AddItem f.Name
Next
ComboBox4.ListIndex = x
Par ailleur si un nouveau nom d'onglet est saisie je voudrai le creer
Merci
--
IMER09
Merci JB c'est parfait
mais je butte encore sur la suite de ce que je veux faire !!
Je voudrai faire un remplissage en cascade d'une seconde cbx en fonction de
la premiere
j'ai essayer ceci ss grd succe
Private Sub ComboBox4_Click()
ComboBox2.RowSource = Worksheets(ComboBox4.Value).Range("A1:A" &
_[A65536].End(3).Row)
End Sub
Merci pour vos lumiere chez moi c'est tout noir!!!
--
IMER09
"JB" wrote:Bonjour,
Private Sub UserForm_Initialize()
exclu = Array("Feuil3", "Feuil4")
Dim autorise()
For Each s In ActiveWorkbook.Sheets
temp = s.Name
If IsError(Application.Match(temp, exclu, 0)) Then
k = k + 1
ReDim Preserve autorise(1 To k)
autorise(k) = s.Name
End If
Next s
Me.ComboBox1.List = autorise
End Sub
JB
http://boisgontierjacques.free.fr/
On 25 mar, 17:08, IMER09 wrote:Bonjours à tous
J'ai ce qui suit pour avoir la liste de mes onglets ds un cbx
je voudrai exclure certains onglets de cette liste comment puis je faire?
Dim f As Worksheet, x As Integer
For Each f In Worksheets
If f.Name = ActiveSheet.Name Then x = ComboBox4.ListCount
ComboBox4.AddItem f.Name
Next
ComboBox4.ListIndex = x
Par ailleur si un nouveau nom d'onglet est saisie je voudrai le creer
Merci
--
IMER09
Qq exemples:
http://boisgontierjacques.free.fr/pages_site/formulairecascade.htm
JB
On 25 mar, 19:52, IMER09 wrote:Merci JB c'est parfait
mais je butte encore sur la suite de ce que je veux faire !!
Je voudrai faire un remplissage en cascade d'une seconde cbx en fonction de
la premiere
j'ai essayer ceci ss grd succe
Private Sub ComboBox4_Click()
ComboBox2.RowSource = Worksheets(ComboBox4.Value).Range("A1:A" &
_[A65536].End(3).Row)
End Sub
Merci pour vos lumiere chez moi c'est tout noir!!!
--
IMER09
"JB" wrote:Bonjour,
Private Sub UserForm_Initialize()
exclu = Array("Feuil3", "Feuil4")
Dim autorise()
For Each s In ActiveWorkbook.Sheets
temp = s.Name
If IsError(Application.Match(temp, exclu, 0)) Then
k = k + 1
ReDim Preserve autorise(1 To k)
autorise(k) = s.Name
End If
Next s
Me.ComboBox1.List = autorise
End Sub
JB
http://boisgontierjacques.free.fr/
On 25 mar, 17:08, IMER09 wrote:Bonjours à tous
J'ai ce qui suit pour avoir la liste de mes onglets ds un cbx
je voudrai exclure certains onglets de cette liste comment puis je faire?
Dim f As Worksheet, x As Integer
For Each f In Worksheets
If f.Name = ActiveSheet.Name Then x = ComboBox4.ListCount
ComboBox4.AddItem f.Name
Next
ComboBox4.ListIndex = x
Par ailleur si un nouveau nom d'onglet est saisie je voudrai le creer
Merci
--
IMER09- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Qq exemples:
http://boisgontierjacques.free.fr/pages_site/formulairecascade.htm
JB
On 25 mar, 19:52, IMER09 <t...@discussions.microso.com> wrote:
Merci JB c'est parfait
mais je butte encore sur la suite de ce que je veux faire !!
Je voudrai faire un remplissage en cascade d'une seconde cbx en fonction de
la premiere
j'ai essayer ceci ss grd succe
Private Sub ComboBox4_Click()
ComboBox2.RowSource = Worksheets(ComboBox4.Value).Range("A1:A" &
_[A65536].End(3).Row)
End Sub
Merci pour vos lumiere chez moi c'est tout noir!!!
--
IMER09
"JB" wrote:
Bonjour,
Private Sub UserForm_Initialize()
exclu = Array("Feuil3", "Feuil4")
Dim autorise()
For Each s In ActiveWorkbook.Sheets
temp = s.Name
If IsError(Application.Match(temp, exclu, 0)) Then
k = k + 1
ReDim Preserve autorise(1 To k)
autorise(k) = s.Name
End If
Next s
Me.ComboBox1.List = autorise
End Sub
JB
http://boisgontierjacques.free.fr/
On 25 mar, 17:08, IMER09 <t...@discussions.microso.com> wrote:
Bonjours à tous
J'ai ce qui suit pour avoir la liste de mes onglets ds un cbx
je voudrai exclure certains onglets de cette liste comment puis je faire?
Dim f As Worksheet, x As Integer
For Each f In Worksheets
If f.Name = ActiveSheet.Name Then x = ComboBox4.ListCount
ComboBox4.AddItem f.Name
Next
ComboBox4.ListIndex = x
Par ailleur si un nouveau nom d'onglet est saisie je voudrai le creer
Merci
--
IMER09- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Qq exemples:
http://boisgontierjacques.free.fr/pages_site/formulairecascade.htm
JB
On 25 mar, 19:52, IMER09 wrote:Merci JB c'est parfait
mais je butte encore sur la suite de ce que je veux faire !!
Je voudrai faire un remplissage en cascade d'une seconde cbx en fonction de
la premiere
j'ai essayer ceci ss grd succe
Private Sub ComboBox4_Click()
ComboBox2.RowSource = Worksheets(ComboBox4.Value).Range("A1:A" &
_[A65536].End(3).Row)
End Sub
Merci pour vos lumiere chez moi c'est tout noir!!!
--
IMER09
"JB" wrote:Bonjour,
Private Sub UserForm_Initialize()
exclu = Array("Feuil3", "Feuil4")
Dim autorise()
For Each s In ActiveWorkbook.Sheets
temp = s.Name
If IsError(Application.Match(temp, exclu, 0)) Then
k = k + 1
ReDim Preserve autorise(1 To k)
autorise(k) = s.Name
End If
Next s
Me.ComboBox1.List = autorise
End Sub
JB
http://boisgontierjacques.free.fr/
On 25 mar, 17:08, IMER09 wrote:Bonjours à tous
J'ai ce qui suit pour avoir la liste de mes onglets ds un cbx
je voudrai exclure certains onglets de cette liste comment puis je faire?
Dim f As Worksheet, x As Integer
For Each f In Worksheets
If f.Name = ActiveSheet.Name Then x = ComboBox4.ListCount
ComboBox4.AddItem f.Name
Next
ComboBox4.ListIndex = x
Par ailleur si un nouveau nom d'onglet est saisie je voudrai le creer
Merci
--
IMER09- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Encore moi
je voudrai aussi creer un new feuille quand un nouveau non est entrée ds la
cbx1 et la c'est le noir total
merci
--
IMER09
"IMER09" wrote:Merci JB c'est parfait
mais je butte encore sur la suite de ce que je veux faire !!
Je voudrai faire un remplissage en cascade d'une seconde cbx en fonction de
la premiere
j'ai essayer ceci ss grd succe
Private Sub ComboBox4_Click()
ComboBox2.RowSource = Worksheets(ComboBox4.Value).Range("A1:A" &
_[A65536].End(3).Row)
End Sub
Merci pour vos lumiere chez moi c'est tout noir!!!
--
IMER09
"JB" wrote:Bonjour,
Private Sub UserForm_Initialize()
exclu = Array("Feuil3", "Feuil4")
Dim autorise()
For Each s In ActiveWorkbook.Sheets
temp = s.Name
If IsError(Application.Match(temp, exclu, 0)) Then
k = k + 1
ReDim Preserve autorise(1 To k)
autorise(k) = s.Name
End If
Next s
Me.ComboBox1.List = autorise
End Sub
JB
http://boisgontierjacques.free.fr/
On 25 mar, 17:08, IMER09 wrote:Bonjours à tous
J'ai ce qui suit pour avoir la liste de mes onglets ds un cbx
je voudrai exclure certains onglets de cette liste comment puis j e faire?
Dim f As Worksheet, x As Integer
For Each f In Worksheets
If f.Name = ActiveSheet.Name Then x = ComboBox4.ListCount
ComboBox4.AddItem f.Name
Next
ComboBox4.ListIndex = x
Par ailleur si un nouveau nom d'onglet est saisie je voudrai le cree r
Merci
--
IMER09- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Encore moi
je voudrai aussi creer un new feuille quand un nouveau non est entrée ds la
cbx1 et la c'est le noir total
merci
--
IMER09
"IMER09" wrote:
Merci JB c'est parfait
mais je butte encore sur la suite de ce que je veux faire !!
Je voudrai faire un remplissage en cascade d'une seconde cbx en fonction de
la premiere
j'ai essayer ceci ss grd succe
Private Sub ComboBox4_Click()
ComboBox2.RowSource = Worksheets(ComboBox4.Value).Range("A1:A" &
_[A65536].End(3).Row)
End Sub
Merci pour vos lumiere chez moi c'est tout noir!!!
--
IMER09
"JB" wrote:
Bonjour,
Private Sub UserForm_Initialize()
exclu = Array("Feuil3", "Feuil4")
Dim autorise()
For Each s In ActiveWorkbook.Sheets
temp = s.Name
If IsError(Application.Match(temp, exclu, 0)) Then
k = k + 1
ReDim Preserve autorise(1 To k)
autorise(k) = s.Name
End If
Next s
Me.ComboBox1.List = autorise
End Sub
JB
http://boisgontierjacques.free.fr/
On 25 mar, 17:08, IMER09 <t...@discussions.microso.com> wrote:
Bonjours à tous
J'ai ce qui suit pour avoir la liste de mes onglets ds un cbx
je voudrai exclure certains onglets de cette liste comment puis j e faire?
Dim f As Worksheet, x As Integer
For Each f In Worksheets
If f.Name = ActiveSheet.Name Then x = ComboBox4.ListCount
ComboBox4.AddItem f.Name
Next
ComboBox4.ListIndex = x
Par ailleur si un nouveau nom d'onglet est saisie je voudrai le cree r
Merci
--
IMER09- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Encore moi
je voudrai aussi creer un new feuille quand un nouveau non est entrée ds la
cbx1 et la c'est le noir total
merci
--
IMER09
"IMER09" wrote:Merci JB c'est parfait
mais je butte encore sur la suite de ce que je veux faire !!
Je voudrai faire un remplissage en cascade d'une seconde cbx en fonction de
la premiere
j'ai essayer ceci ss grd succe
Private Sub ComboBox4_Click()
ComboBox2.RowSource = Worksheets(ComboBox4.Value).Range("A1:A" &
_[A65536].End(3).Row)
End Sub
Merci pour vos lumiere chez moi c'est tout noir!!!
--
IMER09
"JB" wrote:Bonjour,
Private Sub UserForm_Initialize()
exclu = Array("Feuil3", "Feuil4")
Dim autorise()
For Each s In ActiveWorkbook.Sheets
temp = s.Name
If IsError(Application.Match(temp, exclu, 0)) Then
k = k + 1
ReDim Preserve autorise(1 To k)
autorise(k) = s.Name
End If
Next s
Me.ComboBox1.List = autorise
End Sub
JB
http://boisgontierjacques.free.fr/
On 25 mar, 17:08, IMER09 wrote:Bonjours à tous
J'ai ce qui suit pour avoir la liste de mes onglets ds un cbx
je voudrai exclure certains onglets de cette liste comment puis j e faire?
Dim f As Worksheet, x As Integer
For Each f In Worksheets
If f.Name = ActiveSheet.Name Then x = ComboBox4.ListCount
ComboBox4.AddItem f.Name
Next
ComboBox4.ListIndex = x
Par ailleur si un nouveau nom d'onglet est saisie je voudrai le cree r
Merci
--
IMER09- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
http://cjoint.com/?dzveLCSf2W
JB
On 25 mar, 20:04, IMER09 wrote:Encore moi
je voudrai aussi creer un new feuille quand un nouveau non est entrée ds la
cbx1 et la c'est le noir total
merci
--
IMER09
"IMER09" wrote:Merci JB c'est parfait
mais je butte encore sur la suite de ce que je veux faire !!
Je voudrai faire un remplissage en cascade d'une seconde cbx en fonction de
la premiere
j'ai essayer ceci ss grd succe
Private Sub ComboBox4_Click()
ComboBox2.RowSource = Worksheets(ComboBox4.Value).Range("A1:A" &
_[A65536].End(3).Row)
End Sub
Merci pour vos lumiere chez moi c'est tout noir!!!
--
IMER09
"JB" wrote:Bonjour,
Private Sub UserForm_Initialize()
exclu = Array("Feuil3", "Feuil4")
Dim autorise()
For Each s In ActiveWorkbook.Sheets
temp = s.Name
If IsError(Application.Match(temp, exclu, 0)) Then
k = k + 1
ReDim Preserve autorise(1 To k)
autorise(k) = s.Name
End If
Next s
Me.ComboBox1.List = autorise
End Sub
JB
http://boisgontierjacques.free.fr/
On 25 mar, 17:08, IMER09 wrote:Bonjours à tous
J'ai ce qui suit pour avoir la liste de mes onglets ds un cbx
je voudrai exclure certains onglets de cette liste comment puis je faire?
Dim f As Worksheet, x As Integer
For Each f In Worksheets
If f.Name = ActiveSheet.Name Then x = ComboBox4.ListCount
ComboBox4.AddItem f.Name
Next
ComboBox4.ListIndex = x
Par ailleur si un nouveau nom d'onglet est saisie je voudrai le creer
Merci
--
IMER09- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
http://cjoint.com/?dzveLCSf2W
JB
On 25 mar, 20:04, IMER09 <t...@discussions.microso.com> wrote:
Encore moi
je voudrai aussi creer un new feuille quand un nouveau non est entrée ds la
cbx1 et la c'est le noir total
merci
--
IMER09
"IMER09" wrote:
Merci JB c'est parfait
mais je butte encore sur la suite de ce que je veux faire !!
Je voudrai faire un remplissage en cascade d'une seconde cbx en fonction de
la premiere
j'ai essayer ceci ss grd succe
Private Sub ComboBox4_Click()
ComboBox2.RowSource = Worksheets(ComboBox4.Value).Range("A1:A" &
_[A65536].End(3).Row)
End Sub
Merci pour vos lumiere chez moi c'est tout noir!!!
--
IMER09
"JB" wrote:
Bonjour,
Private Sub UserForm_Initialize()
exclu = Array("Feuil3", "Feuil4")
Dim autorise()
For Each s In ActiveWorkbook.Sheets
temp = s.Name
If IsError(Application.Match(temp, exclu, 0)) Then
k = k + 1
ReDim Preserve autorise(1 To k)
autorise(k) = s.Name
End If
Next s
Me.ComboBox1.List = autorise
End Sub
JB
http://boisgontierjacques.free.fr/
On 25 mar, 17:08, IMER09 <t...@discussions.microso.com> wrote:
Bonjours à tous
J'ai ce qui suit pour avoir la liste de mes onglets ds un cbx
je voudrai exclure certains onglets de cette liste comment puis je faire?
Dim f As Worksheet, x As Integer
For Each f In Worksheets
If f.Name = ActiveSheet.Name Then x = ComboBox4.ListCount
ComboBox4.AddItem f.Name
Next
ComboBox4.ListIndex = x
Par ailleur si un nouveau nom d'onglet est saisie je voudrai le creer
Merci
--
IMER09- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
http://cjoint.com/?dzveLCSf2W
JB
On 25 mar, 20:04, IMER09 wrote:Encore moi
je voudrai aussi creer un new feuille quand un nouveau non est entrée ds la
cbx1 et la c'est le noir total
merci
--
IMER09
"IMER09" wrote:Merci JB c'est parfait
mais je butte encore sur la suite de ce que je veux faire !!
Je voudrai faire un remplissage en cascade d'une seconde cbx en fonction de
la premiere
j'ai essayer ceci ss grd succe
Private Sub ComboBox4_Click()
ComboBox2.RowSource = Worksheets(ComboBox4.Value).Range("A1:A" &
_[A65536].End(3).Row)
End Sub
Merci pour vos lumiere chez moi c'est tout noir!!!
--
IMER09
"JB" wrote:Bonjour,
Private Sub UserForm_Initialize()
exclu = Array("Feuil3", "Feuil4")
Dim autorise()
For Each s In ActiveWorkbook.Sheets
temp = s.Name
If IsError(Application.Match(temp, exclu, 0)) Then
k = k + 1
ReDim Preserve autorise(1 To k)
autorise(k) = s.Name
End If
Next s
Me.ComboBox1.List = autorise
End Sub
JB
http://boisgontierjacques.free.fr/
On 25 mar, 17:08, IMER09 wrote:Bonjours à tous
J'ai ce qui suit pour avoir la liste de mes onglets ds un cbx
je voudrai exclure certains onglets de cette liste comment puis je faire?
Dim f As Worksheet, x As Integer
For Each f In Worksheets
If f.Name = ActiveSheet.Name Then x = ComboBox4.ListCount
ComboBox4.AddItem f.Name
Next
ComboBox4.ListIndex = x
Par ailleur si un nouveau nom d'onglet est saisie je voudrai le creer
Merci
--
IMER09- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Qq exemples:
http://boisgontierjacques.free.fr/pages_site/formulairecascade.htm
JB
On 25 mar, 19:52, IMER09 wrote:Merci JB c'est parfait
mais je butte encore sur la suite de ce que je veux faire !!
Je voudrai faire un remplissage en cascade d'une seconde cbx en fonction de
la premiere
j'ai essayer ceci ss grd succe
Private Sub ComboBox4_Click()
ComboBox2.RowSource = Worksheets(ComboBox4.Value).Range("A1:A" &
_[A65536].End(3).Row)
End Sub
Merci pour vos lumiere chez moi c'est tout noir!!!
--
IMER09
"JB" wrote:Bonjour,
Private Sub UserForm_Initialize()
exclu = Array("Feuil3", "Feuil4")
Dim autorise()
For Each s In ActiveWorkbook.Sheets
temp = s.Name
If IsError(Application.Match(temp, exclu, 0)) Then
k = k + 1
ReDim Preserve autorise(1 To k)
autorise(k) = s.Name
End If
Next s
Me.ComboBox1.List = autorise
End Sub
JB
http://boisgontierjacques.free.fr/
On 25 mar, 17:08, IMER09 wrote:Bonjours à tous
J'ai ce qui suit pour avoir la liste de mes onglets ds un cbx
je voudrai exclure certains onglets de cette liste comment puis je faire?
Dim f As Worksheet, x As Integer
For Each f In Worksheets
If f.Name = ActiveSheet.Name Then x = ComboBox4.ListCount
ComboBox4.AddItem f.Name
Next
ComboBox4.ListIndex = x
Par ailleur si un nouveau nom d'onglet est saisie je voudrai le creer
Merci
--
IMER09- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Qq exemples:
http://boisgontierjacques.free.fr/pages_site/formulairecascade.htm
JB
On 25 mar, 19:52, IMER09 <t...@discussions.microso.com> wrote:
Merci JB c'est parfait
mais je butte encore sur la suite de ce que je veux faire !!
Je voudrai faire un remplissage en cascade d'une seconde cbx en fonction de
la premiere
j'ai essayer ceci ss grd succe
Private Sub ComboBox4_Click()
ComboBox2.RowSource = Worksheets(ComboBox4.Value).Range("A1:A" &
_[A65536].End(3).Row)
End Sub
Merci pour vos lumiere chez moi c'est tout noir!!!
--
IMER09
"JB" wrote:
Bonjour,
Private Sub UserForm_Initialize()
exclu = Array("Feuil3", "Feuil4")
Dim autorise()
For Each s In ActiveWorkbook.Sheets
temp = s.Name
If IsError(Application.Match(temp, exclu, 0)) Then
k = k + 1
ReDim Preserve autorise(1 To k)
autorise(k) = s.Name
End If
Next s
Me.ComboBox1.List = autorise
End Sub
JB
http://boisgontierjacques.free.fr/
On 25 mar, 17:08, IMER09 <t...@discussions.microso.com> wrote:
Bonjours à tous
J'ai ce qui suit pour avoir la liste de mes onglets ds un cbx
je voudrai exclure certains onglets de cette liste comment puis je faire?
Dim f As Worksheet, x As Integer
For Each f In Worksheets
If f.Name = ActiveSheet.Name Then x = ComboBox4.ListCount
ComboBox4.AddItem f.Name
Next
ComboBox4.ListIndex = x
Par ailleur si un nouveau nom d'onglet est saisie je voudrai le creer
Merci
--
IMER09- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Qq exemples:
http://boisgontierjacques.free.fr/pages_site/formulairecascade.htm
JB
On 25 mar, 19:52, IMER09 wrote:Merci JB c'est parfait
mais je butte encore sur la suite de ce que je veux faire !!
Je voudrai faire un remplissage en cascade d'une seconde cbx en fonction de
la premiere
j'ai essayer ceci ss grd succe
Private Sub ComboBox4_Click()
ComboBox2.RowSource = Worksheets(ComboBox4.Value).Range("A1:A" &
_[A65536].End(3).Row)
End Sub
Merci pour vos lumiere chez moi c'est tout noir!!!
--
IMER09
"JB" wrote:Bonjour,
Private Sub UserForm_Initialize()
exclu = Array("Feuil3", "Feuil4")
Dim autorise()
For Each s In ActiveWorkbook.Sheets
temp = s.Name
If IsError(Application.Match(temp, exclu, 0)) Then
k = k + 1
ReDim Preserve autorise(1 To k)
autorise(k) = s.Name
End If
Next s
Me.ComboBox1.List = autorise
End Sub
JB
http://boisgontierjacques.free.fr/
On 25 mar, 17:08, IMER09 wrote:Bonjours à tous
J'ai ce qui suit pour avoir la liste de mes onglets ds un cbx
je voudrai exclure certains onglets de cette liste comment puis je faire?
Dim f As Worksheet, x As Integer
For Each f In Worksheets
If f.Name = ActiveSheet.Name Then x = ComboBox4.ListCount
ComboBox4.AddItem f.Name
Next
ComboBox4.ListIndex = x
Par ailleur si un nouveau nom d'onglet est saisie je voudrai le creer
Merci
--
IMER09- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjours à tous
J'ai ce qui suit pour avoir la liste de mes onglets ds un cbx
je voudrai exclure certains onglets de cette liste comment puis je faire?
Dim f As Worksheet, x As Integer
For Each f In Worksheets
If f.Name = ActiveSheet.Name Then x = ComboBox4.ListCount
ComboBox4.AddItem f.Name
Next
ComboBox4.ListIndex = x
Par ailleur si un nouveau nom d'onglet est saisie je voudrai le creer
Merci
--
IMER09
Bonjours à tous
J'ai ce qui suit pour avoir la liste de mes onglets ds un cbx
je voudrai exclure certains onglets de cette liste comment puis je faire?
Dim f As Worksheet, x As Integer
For Each f In Worksheets
If f.Name = ActiveSheet.Name Then x = ComboBox4.ListCount
ComboBox4.AddItem f.Name
Next
ComboBox4.ListIndex = x
Par ailleur si un nouveau nom d'onglet est saisie je voudrai le creer
Merci
--
IMER09
Bonjours à tous
J'ai ce qui suit pour avoir la liste de mes onglets ds un cbx
je voudrai exclure certains onglets de cette liste comment puis je faire?
Dim f As Worksheet, x As Integer
For Each f In Worksheets
If f.Name = ActiveSheet.Name Then x = ComboBox4.ListCount
ComboBox4.AddItem f.Name
Next
ComboBox4.ListIndex = x
Par ailleur si un nouveau nom d'onglet est saisie je voudrai le creer
Merci
--
IMER09
Une derniere question et je ne vous embete plus
Est il possible avec 2cbx de choisir ds la premiere cbx la feuil sur
laquelle se trouve la liste
et ds la seconde avoir cette liste comme deroulant ?
desole d'insister mais je n'y arrive pas !!!
Merci merciiiii
--
IMER09
"JB" wrote:Qq exemples:
http://boisgontierjacques.free.fr/pages_site/formulairecascade.htm
JB
On 25 mar, 19:52, IMER09 wrote:Merci JB c'est parfait
mais je butte encore sur la suite de ce que je veux faire !!
Je voudrai faire un remplissage en cascade d'une seconde cbx en foncti on de
la premiere
j'ai essayer ceci ss grd succe
Private Sub ComboBox4_Click()
ComboBox2.RowSource = Worksheets(ComboBox4.Value).Range("A1:A" &
_[A65536].End(3).Row)
End Sub
Merci pour vos lumiere chez moi c'est tout noir!!!
--
IMER09
"JB" wrote:Bonjour,
Private Sub UserForm_Initialize()
exclu = Array("Feuil3", "Feuil4")
Dim autorise()
For Each s In ActiveWorkbook.Sheets
temp = s.Name
If IsError(Application.Match(temp, exclu, 0)) Then
k = k + 1
ReDim Preserve autorise(1 To k)
autorise(k) = s.Name
End If
Next s
Me.ComboBox1.List = autorise
End Sub
JB
http://boisgontierjacques.free.fr/
On 25 mar, 17:08, IMER09 wrote:Bonjours à tous
J'ai ce qui suit pour avoir la liste de mes onglets ds un cbx
je voudrai exclure certains onglets de cette liste comment puis je faire?
Dim f As Worksheet, x As Integer
For Each f In Worksheets
If f.Name = ActiveSheet.Name Then x = ComboBox4.ListCount
ComboBox4.AddItem f.Name
Next
ComboBox4.ListIndex = x
Par ailleur si un nouveau nom d'onglet est saisie je voudrai le cr eer
Merci
--
IMER09- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte de s messages précédents -
- Afficher le texte des messages précédents -
Une derniere question et je ne vous embete plus
Est il possible avec 2cbx de choisir ds la premiere cbx la feuil sur
laquelle se trouve la liste
et ds la seconde avoir cette liste comme deroulant ?
desole d'insister mais je n'y arrive pas !!!
Merci merciiiii
--
IMER09
"JB" wrote:
Qq exemples:
http://boisgontierjacques.free.fr/pages_site/formulairecascade.htm
JB
On 25 mar, 19:52, IMER09 <t...@discussions.microso.com> wrote:
Merci JB c'est parfait
mais je butte encore sur la suite de ce que je veux faire !!
Je voudrai faire un remplissage en cascade d'une seconde cbx en foncti on de
la premiere
j'ai essayer ceci ss grd succe
Private Sub ComboBox4_Click()
ComboBox2.RowSource = Worksheets(ComboBox4.Value).Range("A1:A" &
_[A65536].End(3).Row)
End Sub
Merci pour vos lumiere chez moi c'est tout noir!!!
--
IMER09
"JB" wrote:
Bonjour,
Private Sub UserForm_Initialize()
exclu = Array("Feuil3", "Feuil4")
Dim autorise()
For Each s In ActiveWorkbook.Sheets
temp = s.Name
If IsError(Application.Match(temp, exclu, 0)) Then
k = k + 1
ReDim Preserve autorise(1 To k)
autorise(k) = s.Name
End If
Next s
Me.ComboBox1.List = autorise
End Sub
JB
http://boisgontierjacques.free.fr/
On 25 mar, 17:08, IMER09 <t...@discussions.microso.com> wrote:
Bonjours à tous
J'ai ce qui suit pour avoir la liste de mes onglets ds un cbx
je voudrai exclure certains onglets de cette liste comment puis je faire?
Dim f As Worksheet, x As Integer
For Each f In Worksheets
If f.Name = ActiveSheet.Name Then x = ComboBox4.ListCount
ComboBox4.AddItem f.Name
Next
ComboBox4.ListIndex = x
Par ailleur si un nouveau nom d'onglet est saisie je voudrai le cr eer
Merci
--
IMER09- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte de s messages précédents -
- Afficher le texte des messages précédents -
Une derniere question et je ne vous embete plus
Est il possible avec 2cbx de choisir ds la premiere cbx la feuil sur
laquelle se trouve la liste
et ds la seconde avoir cette liste comme deroulant ?
desole d'insister mais je n'y arrive pas !!!
Merci merciiiii
--
IMER09
"JB" wrote:Qq exemples:
http://boisgontierjacques.free.fr/pages_site/formulairecascade.htm
JB
On 25 mar, 19:52, IMER09 wrote:Merci JB c'est parfait
mais je butte encore sur la suite de ce que je veux faire !!
Je voudrai faire un remplissage en cascade d'une seconde cbx en foncti on de
la premiere
j'ai essayer ceci ss grd succe
Private Sub ComboBox4_Click()
ComboBox2.RowSource = Worksheets(ComboBox4.Value).Range("A1:A" &
_[A65536].End(3).Row)
End Sub
Merci pour vos lumiere chez moi c'est tout noir!!!
--
IMER09
"JB" wrote:Bonjour,
Private Sub UserForm_Initialize()
exclu = Array("Feuil3", "Feuil4")
Dim autorise()
For Each s In ActiveWorkbook.Sheets
temp = s.Name
If IsError(Application.Match(temp, exclu, 0)) Then
k = k + 1
ReDim Preserve autorise(1 To k)
autorise(k) = s.Name
End If
Next s
Me.ComboBox1.List = autorise
End Sub
JB
http://boisgontierjacques.free.fr/
On 25 mar, 17:08, IMER09 wrote:Bonjours à tous
J'ai ce qui suit pour avoir la liste de mes onglets ds un cbx
je voudrai exclure certains onglets de cette liste comment puis je faire?
Dim f As Worksheet, x As Integer
For Each f In Worksheets
If f.Name = ActiveSheet.Name Then x = ComboBox4.ListCount
ComboBox4.AddItem f.Name
Next
ComboBox4.ListIndex = x
Par ailleur si un nouveau nom d'onglet est saisie je voudrai le cr eer
Merci
--
IMER09- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte de s messages précédents -
- Afficher le texte des messages précédents -