selection feuilles d'aprés combobox

nrdz83 · 17 Avril 2009

Bonjour à tous, voila j'utilise ce code qui fonctionne trés bien.

Je voudrais ranger la saisie des données dans la feuille qui serait sélectionnée d'aprés la combobox2.
Comment je dois modifier ce code existant ?
d'avance merci à tous et bon week end

Code:

Private Sub CommandButton1_Click()
    ' On teste la saisie du gisement
    If Me.ComboBox1.Text = "" Then
        MsgBox "Vous devez selectionner un opérateur."
        Me.ComboBox1.SetFocus
        Exit Sub
    End If
    ' On teste la saisie du matériel
    If Me.ComboBox2.Text = "" Then
        MsgBox "Vous devez saisir un matériel ou gisement."
        Me.ComboBox2.SetFocus
        Exit Sub
    End If
    
    ' On teste la saisie de la dernière visite
    If Me.DTPicker1 = "" Then
        MsgBox "Vous devez saisir une date du graissage."
        Me.DTPicker1.SetFocus
        Exit Sub
    End If
    
    
  
    ' Mise en place des valeurs saisies
   [COLOR="Red"] Sheets("Feuil1").Select[/COLOR]   
 DerLig = [A65000].End(xlUp).Row + 1
    Cells(DerLig, 1).Value = DTPicker1
    Cells(DerLig, 2).FormulaR1C1 = "=DATE(YEAR(RC[-1]),MONTH(RC[-1])+1,DAY(RC[-1]))"
    Cells(DerLig, 4).Value = ComboBox1
    Cells(DerLig, 5).Value = TxtObs
    ' On décharge le formulaire
    Call mfc
End Sub

vbacrumble · 18 Avril 2009

Re : selection feuilles d'aprés combobox

Re

De quelles couleurs parles-tu ???

nrdz83 · 18 Avril 2009

Re : selection feuilles d'aprés combobox

je veux dire si je mets mes onglets de feuilles d'une couleur bleu par exemple. Y a t'il moyen de ne selectionné que les onglets bleu dans la combobox2

JNP · 19 Avril 2009

Re : selection feuilles d'aprés combobox

Bonjour le forum 🙂,
VBACrumble : Approche interressante, mais peut-être plus lente en cas de feuilles bien chargées, vu que tu les charges en variables. Mais j'essayerai de m'en souvenir, ça peux toujours servir 😛.
Nrdz83 : Pour ton test sur le nom :

Code:

Private Sub UserForm_Initialize()
Dim WS As Worksheet
For Each WS In ThisWorkbook.Worksheets
    If WS.Name <> "Toto" And WS.Name <> "Tata" Then
        ComboBox2.AddItem WS.Name
    End If
Next
End Sub

ne mettra pas Toto et Tata dans la liste. Si tu veux en ôter plus, soit tu continu avec des And, soit :

Code:

Private Sub UserForm_Initialize()
Dim WS As Worksheet
For Each WS In ThisWorkbook.Worksheets
    Select Case WS.Name
        Case "Toto", "Tata", "Tutu"
        Case Else
        ComboBox2.AddItem WS.Name
    End Select
Next
End Sub

qui sera plus simple. Maintenant, si tu veux tester la couleur de l'onglet :

Code:

Private Sub UserForm_Initialize()
Dim WS As Worksheet
For Each WS In ThisWorkbook.Worksheets
    If WS.Name.Tab.ColorIndex = 13 Then
        ComboBox2.AddItem WS.Name
    End If
Next
End Sub

qui ne va prendre que les onglets jaunes. Pour déterminer la couleur des onglets :

Code:

Sub test()
Dim WS As Worksheet
For Each WS In ThisWorkbook.Worksheets
    MsgBox WS.Name & " : " & WS.Tab.ColorIndex
Next
End Sub

Bonne journée 😎

nrdz83 · 19 Avril 2009

Re : selection feuilles d'aprés combobox

SUPER JNP un grand merci tu m'as bien dépatouillé.
Toutes mes amitiés bon dimanche 😎

vbacrumble · 19 Avril 2009

Re : selection feuilles d'aprés combobox

Bonjour tous

Désolé nrdz83, mais un p'tit gars comme moi sous Excel 2000 ne pouvait t'aider avec des onglets en couleurs (car ca n'existe pas chez Excel 2000 - sauf en bidouillant gravement)

JNP: je vois que ta curiosité de vbéiste fut aiguisé, c'était le but recherché
comme je le disais précédemment à nrdz83.

nrdz83 · 19 Avril 2009

Re : selection feuilles d'aprés combobox

pas de souci vbacrumble je posais une question au sujet de la couleur et j'avoue que vous êtes trop fort, merci encore pour votre aide, amitiés et bon week end 😉

selection feuilles d'aprés combobox

nrdz83

XLDnaute Impliqué

vbacrumble

XLDnaute Accro

nrdz83

XLDnaute Impliqué

JNP

XLDnaute Barbatruc

nrdz83

XLDnaute Impliqué

vbacrumble

XLDnaute Accro

nrdz83

XLDnaute Impliqué

Discussions similaires

selection feuilles d'aprés combobox

nrdz83

XLDnaute Impliqué

vbacrumble

XLDnaute Accro

nrdz83

XLDnaute Impliqué

JNP

XLDnaute Barbatruc

nrdz83

XLDnaute Impliqué

vbacrumble

XLDnaute Accro

nrdz83

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency