Insérer dans le code feuille VBA

[Vinvinsylvain]

Bonjour
Je voudrais savoir comme faire pour saisir dans le code ci-dessou directement sans pacer par VBA mais en passant par un UserForm
Se code se trouve dans la feuille 'Listing personnel'

Private Sub UserForm_Initialize()
ComboBox2.AddItem 'titi'
ComboBox2.AddItem 'tutu'
ComboBox2.AddItem 'Bic'
ComboBox2.AddItem 'BAILLET'
ComboBox2.AddItem 'BARD'
ComboBox2.AddItem 'BER'
ComboBox2.AddItem 'BLETTE'
ComboBox2.AddItem 'BLANCHAURD '
ComboBox2.AddItem 'BLACHARD'
ComboBox2.AddItem 'BRAND'
End Sub

 

[Hellboy]

RE

Je suis content que ça fait ce que tu souhaitais.

Et non je ne suis pas informaticien. C'est juste que dans le cadre de mon travail, je suis appelé à en faire plus depuis un certain moment. Mais ça commencé voilà 6 ans comme une curiosité qui s'est transformé comme une passion.

a+

 

[Vinvinsylvain]

S'est encore moi!!!!!
Peut tu me dire comment faire pour que dans usfNewEmploye, un message s'affiche automatiquement si on clique sur insérer quand on n'a pas remplis les deux txtNom et txtPrenom
exemple de message: 'Veuilliez entrer un Nom et Prénom '

 

[Hellboy]

Bonsoir Vinvinsylvain

Je te montre une façon de faire basé sur l'exemple du fichier que je t'ai founis un peu pus tôt cette semaine.

Private Sub CommandButton1_Click()
    Dim strNom                As String
   
    With Me
        '    Je suppose que tu met Prénom et Nom ds la même cellule
       
        '    Si un ou l'autre des champs n'est pas remplit alors
        If .txbPrenom.Value = Empty Or .txbNom.Value = Empty Then
       
        '    Message sur un au l'autre ou les deux sera envoyé a l'utilisateur en cas d'omission
        '    Le caractère '_'    sert a signaler au code qu'il y a continuité de la ligne de commande
        '    La commande vbLf sert a ajouter un retour de ligne
        '    La commande Space sert a insérer un nombre d'espace souhaité
                If .txbNom.Value = Empty Then MsgBox 'Vous devez complèter le Champs d'information du' _
                                                                                        & vbLf & vbLf & Space(30) & 'Prénom'
                If .txbNom.Value = Empty Then MsgBox 'Vous devez complèter le Champs d'information du' _
                                                                                        & vbLf & vbLf & Space(30) & 'Nom'
                        Exit Sub
        Else
                strNom = .txbPrenom.Value & Chr(32) & .txbNom.Value
        End If
    End With
   
    ThisWorkbook.Sheets('Listing personnel').Cells(Cells(65536, 2).End(xlUp).Row + 1, 2).Value = strNom
   
End Sub

a+

 

[Vinvinsylvain]

Ok merci, s'a fonctionne comme je voulais, je te remercie encore et a bientôt