XL 2010 Ajouter automatiquement un libellé sans un combobox

TheProdigy

TheProdigy

XLDnaute Impliqué
Bonjour tout le monde,

J'ai trouvé un fichier exemple sur Internet et je voudrais savoir comment ajouter automatiquement le libellé sur la feuille Pays et qu'il soit automatiquement intégré sur la liste déroulante Pays

Cordialement.
 

Pièces jointes

  • controles_exercice2.xls
    64.5 KB · Affichages: 29
Trier par date Trier par votes
J

JM27

XLDnaute Barbatruc
Bonjour

Comme cela ?
Code: 
Private Sub CommandButton_Ajouter_Click()
    'Coloration des Labels en noir
    Label_Nom.ForeColor = RGB(0, 0, 0)
    Label_Prenom.ForeColor = RGB(0, 0, 0)
    Label_Adresse.ForeColor = RGB(0, 0, 0)
    Label_Lieu.ForeColor = RGB(0, 0, 0)
    Label_Pays.ForeColor = RGB(0, 0, 0)

    'Contrôles de contenu
    If TextBox_Nom.Value = "" Then 'SI pas de "nom" ...
        Label_Nom.ForeColor = RGB(255, 0, 0) 'Label "nom" en rouge
    ElseIf TextBox_Prenom.Value = "" Then
        Label_Prenom.ForeColor = RGB(255, 0, 0)
    ElseIf TextBox_Adresse.Value = "" Then
        Label_Adresse.ForeColor = RGB(255, 0, 0)
    ElseIf TextBox_Lieu.Value = "" Then
        Label_Lieu.ForeColor = RGB(255, 0, 0)
    ElseIf ComboBox_Pays.Value = "" Then
        Label_Pays.ForeColor = RGB(255, 0, 0)
    Else
        'Si le formulaire est complet, on insère les valeurs sur la feuille
        Dim no_ligne As Integer, civilite As String
    
        'Choix de civilité
        For Each bouton_civilite In Frame_Civilite.Controls
            If bouton_civilite.Value Then
                civilite = bouton_civilite.Caption
            End If
        Next

        'no_ligne = N° de ligne de la dernière cellule non vide de la colonne +1
        no_ligne = Range("A65536").End(xlUp).Row + 1

        'Insertion des valeurs sur la feuille
        Cells(no_ligne, 1) = civilite
        Cells(no_ligne, 2) = TextBox_Nom.Value
        Cells(no_ligne, 3) = TextBox_Prenom.Value
        Cells(no_ligne, 4) = TextBox_Adresse.Value
        Cells(no_ligne, 5) = TextBox_Lieu.Value
        Cells(no_ligne, 6) = ComboBox_Pays.Value
    
        If ComboBox_Pays.ListIndex = -1 Then
          Sheets("Pays").Range("A" & Sheets("Pays").Range("A65536").End(xlUp).Row + 1) = Me.ComboBox_Pays
          Me.ComboBox_Pays.AddItem Me.ComboBox_Pays
        End If
    
    
        'Après insertion, on remet les valeurs initiales
        OptionButton1.Value = True
        TextBox_Nom.Value = ""
        TextBox_Prenom.Value = ""
        TextBox_Adresse.Value = ""
        TextBox_Lieu.Value = ""
        ComboBox_Pays.ListIndex = -1
    End If
End Sub

et dans l'initialize
Code: 
Private Sub UserForm_Initialize() 'Liste des 231 pays de la feuille "Pays"
    For i = 1 To Sheets("Pays").Range("A65536").End(xlUp).Row
       ComboBox_Pays.AddItem Sheets("Pays").Cells(i, 1)
   Next
End Sub
 

Pièces jointes

  • controles_exercice2 (6).xls
    53.5 KB · Affichages: 27
Dernière édition:
Vote positif 0 Vote négatif
Lone-wolf

Lone-wolf

XLDnaute Barbatruc
Re

Je ne comprend pas ce que tu veux dire?! :rolleyes:

Edit: met ce code à la place de l'ancien dans le formulaire pays.

VB: 
Private Sub CommandButton1_Click()
Dim lig As Long, rw

    With Sheets("Pays")
        lig = .Cells(Rows.Count, 1).End(xlUp).Row + 1
        rw = Application.Match(TextBox1.Value, .Columns(1), 0)
        .Cells(lig, 1) = TextBox1.Value
        If IsError(rw) Then Exit Sub
        'Dans le cas où le pays est déjà inscrit
        If .Cells(rw, 1) = TextBox1.Value Then
            MsgBox "Ce pays est déjà inscrit.", , "ERREUR"
            TextBox1 = ""
        End If
    End With
    TextBox1 = ""
    Ajout_contact.ComboBox_Pays.Clear
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
TheProdigy

TheProdigy

XLDnaute Impliqué
JM27 à dit:
Bonjour

Comme cela ?
Code: 
Private Sub CommandButton_Ajouter_Click()
    'Coloration des Labels en noir
    Label_Nom.ForeColor = RGB(0, 0, 0)
    Label_Prenom.ForeColor = RGB(0, 0, 0)
    Label_Adresse.ForeColor = RGB(0, 0, 0)
    Label_Lieu.ForeColor = RGB(0, 0, 0)
    Label_Pays.ForeColor = RGB(0, 0, 0)

    'Contrôles de contenu
    If TextBox_Nom.Value = "" Then 'SI pas de "nom" ...
        Label_Nom.ForeColor = RGB(255, 0, 0) 'Label "nom" en rouge
    ElseIf TextBox_Prenom.Value = "" Then
        Label_Prenom.ForeColor = RGB(255, 0, 0)
    ElseIf TextBox_Adresse.Value = "" Then
        Label_Adresse.ForeColor = RGB(255, 0, 0)
    ElseIf TextBox_Lieu.Value = "" Then
        Label_Lieu.ForeColor = RGB(255, 0, 0)
    ElseIf ComboBox_Pays.Value = "" Then
        Label_Pays.ForeColor = RGB(255, 0, 0)
    Else
        'Si le formulaire est complet, on insère les valeurs sur la feuille
        Dim no_ligne As Integer, civilite As String
   
        'Choix de civilité
        For Each bouton_civilite In Frame_Civilite.Controls
            If bouton_civilite.Value Then
                civilite = bouton_civilite.Caption
            End If
        Next

        'no_ligne = N° de ligne de la dernière cellule non vide de la colonne +1
        no_ligne = Range("A65536").End(xlUp).Row + 1

        'Insertion des valeurs sur la feuille
        Cells(no_ligne, 1) = civilite
        Cells(no_ligne, 2) = TextBox_Nom.Value
        Cells(no_ligne, 3) = TextBox_Prenom.Value
        Cells(no_ligne, 4) = TextBox_Adresse.Value
        Cells(no_ligne, 5) = TextBox_Lieu.Value
        Cells(no_ligne, 6) = ComboBox_Pays.Value
   
        If ComboBox_Pays.ListIndex = -1 Then
          Sheets("Pays").Range("A" & Sheets("Pays").Range("A65536").End(xlUp).Row + 1) = Me.ComboBox_Pays
          Me.ComboBox_Pays.AddItem Me.ComboBox_Pays
        End If
   
   
        'Après insertion, on remet les valeurs initiales
        OptionButton1.Value = True
        TextBox_Nom.Value = ""
        TextBox_Prenom.Value = ""
        TextBox_Adresse.Value = ""
        TextBox_Lieu.Value = ""
        ComboBox_Pays.ListIndex = -1
    End If
End Sub

et dans l'initialize
Code: 
Private Sub UserForm_Initialize() 'Liste des 231 pays de la feuille "Pays"
    For i = 1 To Sheets("Pays").Range("A65536").End(xlUp).Row
       ComboBox_Pays.AddItem Sheets("Pays").Cells(i, 1)
   Next
End Sub
Cliquez pour agrandir...

Merci beaucoup ça a marché y a t il une solution pour saisir dans un formulaire l'ajout d'un nouveau pays directement dans la dernière ligne en bas du tableau? Merci d'avance
 
Vote positif 0 Vote négatif
TheProdigy

TheProdigy

XLDnaute Impliqué
Lone-wolf à dit:
Re

Je ne comprend pas ce que tu veux dire?! :rolleyes:

Edit: met ce code à la place de l'ancien dans le formulaire pays.

VB: 
Private Sub CommandButton1_Click()
Dim lig As Long, rw

    With Sheets("Pays")
        lig = .Cells(Rows.Count, 1).End(xlUp).Row + 1
        rw = Application.Match(TextBox1.Value, .Columns(1), 0)
        .Cells(lig, 1) = TextBox1.Value
        If IsError(rw) Then Exit Sub
        'Dans le cas où le pays est déjà inscrit
        If .Cells(rw, 1) = TextBox1.Value Then
            MsgBox "Ce pays est déjà inscrit.", , "ERREUR"
            TextBox1 = ""
        End If
    End With
    TextBox1 = ""
    Ajout_contact.ComboBox_Pays.Clear
End Sub
Cliquez pour agrandir...

Bonjour,

Merci, Tout simplement une saisi dans la feuille Pays. J'ai testé mais ça bug

Cordialement
 

Pièces jointes

  • controles_exercice3.xls
    58 KB · Affichages: 30
Vote positif 0 Vote négatif
Lone-wolf

Lone-wolf

XLDnaute Barbatruc
Re

Remplace le code avec ceci

VB: 
Private Sub CommandButton1_Click()
Dim lig As Long, rw

    With Sheets("Pays")
        lig = .Cells(Rows.Count, 1).End(xlUp).Row + 1
        rw = Application.Match(ComboBox_Pays.Value, .Columns(1), 0)
        .Cells(lig, 1) = ComboBox_Pays.Value
        'Dans le cas où le pays est déjà inscrit
        If IsError(rw) Then ComboBox_Pays = "": Exit Sub
        If .Cells(rw, 1) = ComboBox_Pays.Value Then
            MsgBox "Ce pays est déjà inscrit.", , "ERREUR"
            TextBox1 = ""
        End If
    End With
    Ajout_contact.ComboBox_Pays.Clear
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
ChTi160

ChTi160

XLDnaute Barbatruc
Bonjour
Bonjour le fil ,le Forum
Lone-wolf
tu as mis
VB: 
rw = Application.Match(ComboBox_Pays.Value, .Columns(1), 0)
        .Cells(lig, 1) = ComboBox_Pays.Value '<-------ICI
        'Dans le cas où le pays est déjà inscrit
        If IsError(rw) Then ComboBox_Pays = "": Exit Sub
ce qui a pour effet d'ajouter le pays même s'il existe déjà !
bonne continuation
jean marie
 
Vote positif 0 Vote négatif
J

JM27

XLDnaute Barbatruc
Bonjour
Mais si tu tapes un nouveau pays dans la combo box , il le transférera dans la feuille pays .
je ne comprends pas ta demande.
A moins que tu souhaites inscrire un nouveau pays sans passer par ajouter un nouveau contact ?
 
Dernière édition:
Vote positif 0 Vote négatif

Discussions similaires

Philippe17
  • Résolu(e)
Microsoft 365 Code VBA pour un Formulaire
2
Réponses
17
Affichages
592
patricktoulon
patricktoulon
F
  • Résolu(e)
Microsoft 365 Extraire le code pays d'une référence avec un code VBA
2 3
Réponses
40
Affichages
759
Faroyo
F
Cendrillon
  • Question
XL pour MAC Liste déroulante multiséléction
Réponses
5
Affichages
330
JHA
J
M
  • Question
XL 2013 Je voudrais que les colonnes f g et h se colorent automatiquement en fonction de la couleur de la colonne M
Réponses
2
Affichages
351
MARLIOT
M
P
  • Question
Microsoft 365 comment ajouter 1 élément dans un menue déroulant d'une colonne entière
2
Réponses
24
Affichages
853
patrick965
P
jgav
  • Résolu(e)
XL 2016 Incrémenter des formules dans une feuille, en la copiant et la renommant en même temps
Réponses
9
Affichages
177
jgav
jgav
Ric1966
  • Question
Microsoft 365 Formule excel demande aide svp?
Réponses
5
Affichages
117
Ric1966
Ric1966
B
  • Question
Microsoft 365 Alimenter combobox et ajouter la valeur si non inscrit dans la liste
Réponses
5
Affichages
286
sousou
sousou
chaelie2015
  • Résolu(e)
XL 2013 (RESOLU) Infobulle sur Images sans toucher leurs Macro
Réponses
9
Affichages
720
job75
job75
C
  • Résolu(e)
XL 2021 Modifier un annuaire
2
Réponses
20
Affichages
777
Oneida
Oneida

Membres actuellement en ligne

35 membres et 417 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 077
Messages
2 085 094
Membres
102 777
dernier inscrit
Fmichel14