Scribd Logo
Importer

Bienvenue sur Scribd !

  • 8 vues

    Formulaire D'inscription VBA Excel Format

    Transféré par

    Louis Réné Dubois
    Ce document décrit le code VBA pour créer un formulaire permettant de gérer une liste de contacts dans Excel. Le code crée des contrôles, gère les événements des boutons et des listes déroulantes pour insérer, modifier et supprimer des contacts.

    Droits d'auteur :

    © All Rights Reserved
    Téléchargez comme DOCX, PDF, TXT ou lisez en ligne sur Scribd

    Formulaire D'inscription VBA Excel Format

    Transféré par

    Louis Réné Dubois
    8 vues3 pages
    Ce document décrit le code VBA pour créer un formulaire permettant de gérer une liste de contacts dans Excel. Le code crée des contrôles, gère les événements des boutons et des listes déroulantes pour insérer, modifier et supprimer des contacts.

    Description originale:

    Titre original

    Formulaire d'inscription VBA Excel format TXT

    Copyright

    © © All Rights Reserved

    Formats disponibles

    DOCX, PDF, TXT ou lisez en ligne sur Scribd

    Avez-vous trouvé ce document utile ?

    Ce contenu est-il inapproprié ?

    Ce document décrit le code VBA pour créer un formulaire permettant de gérer une liste de contacts dans Excel. Le code crée des contrôles, gère les événements des boutons et des listes déroulantes pour insérer, modifier et supprimer des contacts.

    Droits d'auteur :

    © All Rights Reserved
    Téléchargez comme DOCX, PDF, TXT ou lisez en ligne sur Scribd
    Télécharger au format docx, pdf ou txt
    8 vues3 pages

    Formulaire D'inscription VBA Excel Format

    Transféré par

    Louis Réné Dubois
    Ce document décrit le code VBA pour créer un formulaire permettant de gérer une liste de contacts dans Excel. Le code crée des contrôles, gère les événements des boutons et des listes déroulantes pour insérer, modifier et supprimer des contacts.

    Droits d'auteur :

    © All Rights Reserved
    Téléchargez comme DOCX, PDF, TXT ou lisez en ligne sur Scribd
    Télécharger au format docx, pdf ou txt
    sur 3

    Option Explicit

    Dim Ws As Worksheet

    ‘Pour le formulaire

    Private Sub UserForm_Initialize()

    Dim J As Long

    Dim I As Integer

    ComboBox2.ColumnCount = 1 ‘Pour la liste déroulante Civilité

    ComboBox2.List() = Array(« « , « M. », « Mme », « Mlle »)

    Set Ws = Sheets(« Clients ») ‘Correspond au nom de votre onglet dans le fichier Excel

    With Me.ComboBox1

    For J = 2 To Ws.Range(« A » & Rows.Count).End(xlUp).Row

    .AddItem Ws.Range(« A » & J)

    Next J

    End With

    For I = 1 To 7

    Me.Controls(« TextBox » & I).Visible = True

    Next I

    End Sub

    ‘Pour la liste déroulante Code client

    Private Sub ComboBox1_Change()

    Dim Ligne As Long

    Dim I As Integer

    If Me.ComboBox1.ListIndex = -1 Then Exit Sub

    Ligne = Me.ComboBox1.ListIndex + 2

    ComboBox2 = Ws.Cells(Ligne, « B »)

    For I = 1 To 7

    Me.Controls(« TextBox » & I) = Ws.Cells(Ligne, I + 2)


    Next I

    End Sub

    ‘Pour le bouton Nouveau contact

    Private Sub CommandButton1_Click()

    Dim L As Integer

    If MsgBox(« Confirmez-vous l’insertion de ce nouveau contact ? », vbYesNo, « Demande de


    confirmation d’ajout ») = vbYes Then

    L = Sheets(« Clients »).Range(« a65536 »).End(xlUp).Row + 1 ‘Pour placer le nouvel


    enregistrement à la première ligne de tableau non vide

    Range(« A » & L).Value = ComboBox1

    Range(« B » & L).Value = ComboBox2

    Range(« C » & L).Value = TextBox1

    Range(« D » & L).Value = TextBox2

    Range(« E » & L).Value = TextBox3

    Range(« F » & L).Value = TextBox4

    Range(« G » & L).Value = TextBox5

    Range(« H » & L).Value = TextBox6

    Range(« I » & L).Value = TextBox7

    End If

    End Sub

    ‘Pour le bouton Modifier

    Private Sub CommandButton2_Click()

    Dim Ligne As Long

    Dim I As Integer

    If MsgBox(« Confirmez-vous la modification de ce contact ? », vbYesNo, « Demande de


    confirmation de modification ») = vbYes Then

    If Me.ComboBox1.ListIndex = -1 Then Exit Sub

    Ligne = Me.ComboBox1.ListIndex + 2

    Ws.Cells(Ligne, « B ») = ComboBox2
    For I = 1 To 7

    If Me.Controls(« TextBox » & I).Visible = True Then

    Ws.Cells(Ligne, I + 2) = Me.Controls(« TextBox » & I)

    End If

    Next I

    End If

    End Sub

    ‘Pour le bouton Quitter

    Private Sub CommandButton3_Click()

    Unload Me

    End Sub

    Vous aimerez peut-être aussi