Onglets

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #5329311
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
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


IMER09
Le #5329141
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
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






JB
Le #5329121
Qq exemples:

http://boisgontierjacques.free.fr/pages_site/formulairecascade.htm

JB

On 25 mar, 19:52, 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
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 -




IMER09
Le #5329111
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
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








IMER09
Le #5329101
Merci

c'est un cite que j'ai ds mes favori que je visionne regulierement
Mais j'ai un peu de difficulte a addapter
--
IMER09


"JB" wrote:

Qq exemples:

http://boisgontierjacques.free.fr/pages_site/formulairecascade.htm

JB

On 25 mar, 19:52, 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
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 -








JB
Le #5329051
http://cjoint.com/?dzveLCSf2W

JB

On 25 mar, 20:04, IMER09
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
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 -





IMER09
Le #5328921
Merci JB
je viens de voir le fichier joint
je ne connaissais pas cette procedure qui se realise qd on clic ds le textbox
c'est superb cool--
je venais de trouver une idee similaire ds le forum que j'ai placer ds la
procedure de mon bouton valider


IMER09


"JB" wrote:

http://cjoint.com/?dzveLCSf2W

JB

On 25 mar, 20:04, IMER09
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
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 -









IMER09
Le #5328881
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
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
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 -








IMER09
Le #5328861
Encore mille excuse pour le derangement
je viens de trouver : c'etait devant mon nez
c'est cha q'1 on a du brun dans les yeux !! comme dirai l'ote
--
IMER09


"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


JB
Le #5328801
Bonjour,

http://cjoint.com/?dAhXY6xfhv

Private Sub UserForm_Initialize()
exclu = Array("Feuil1", "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

Private Sub ComboBox1_Change()
If Me.ComboBox1.ListIndex <> -1 Then
FeuilleChoisie = Me.ComboBox1
Me.ComboBox2.List = Sheets(FeuilleChoisie).Range("A2:A" & _
Sheets(FeuilleChoisie).[A65000].End(xlUp).Row).Value
End If
End Sub

JB


On 25 mar, 22:50, 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
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
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 -






Publicité
Poster une réponse
Anonyme