IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Boutons de commande [Toutes versions]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Nouveau membre du Club
    Homme Profil pro
    Inscrit en
    Mai 2011
    Messages
    7
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations forums :
    Inscription : Mai 2011
    Messages : 7
    Par défaut Boutons de commande
    Bonjour à tous,

    Nous sommes des étudiants et devons réaliser un projet sur excel en VBA. N'étant pas informaticien, nous nous débrouillons avec le peu appris en cours et les tutoriaux sur internet. Mais nous sommes bloqué depuis peu et n'arrivons pas à comprendre d'où viennent nos erreurs.

    Il nous a fallu créer des boutons de commande "créer", "modifier", "rechercher", "supprimer"

    Lorsque nous rentrons nos données dans les champs que nous avons établi dans nos différents userforms, le bouton "créer" focntionne à merveille et insère les valeurs dans nos feuilles excels. Cependant, lorsqu'il s'agit d'utiliser les autres commandes, nous rencontrons différents problèmes:
    soit cela supprime nos en-têtes, soit cela rajoute une ligne, etc..

    J'espère que vous pourrez nous mettre sur une piste

    Merci d'avance



    Voici ce que nous avons codés pour un de nos formulaires nommé "Employés":


    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    Private Sub CB_Créer_Click()
    Dim ws As Worksheet
    Dim i As Long
    Set ws = Worksheets("Employés")
     
    'Trouver la première cellule disponible
    i = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
     
    'Vérifier si le nom existe
    If Trim(Me.nom_TB.Value) = "" Then
        Me.nom_TB.SetFocus
        MsgBox "Entrez un nom"
        Exit Sub
    End If
     
    'Entrer les données dans le ws
    ws.Cells(i, 1).Value = Me.nom_TB.Value
    ws.Cells(i, 2).Value = Me.Prénom_TB.Value
    ws.Cells(i, 3).Value = Me.Fonction_TB.Value
    ws.Cells(i, 4).Value = Me.Matricule_TB.Value
    ws.Cells(i, 5).Value = Me.Date_Naissance_TB.Value
    ws.Cells(i, 6).Value = Me.Adresse_TB.Value
    ws.Cells(i, 7).Value = Me.Code_postal_TB.Value
    ws.Cells(i, 8).Value = Me.Ville_TB.Value
    ws.Cells(i, 9).Value = Me.Pays_TB.Value
    ws.Cells(i, 10).Value = Me.TB_Salaire.Value
    ws.Cells(i, 11).Value = Me.Téléphone_TB.Value
    ws.Cells(i, 12).Value = Me.GSM_TB.Value
    ws.Cells(i, 13).Value = Me.Email_TB.Value
     
    'Initialiser les données
    Me.nom_TB.Value = ""
    Me.Prénom_TB.Value = ""
    Me.Fonction_TB.Value = ""
    Me.Matricule_TB.Value = ""
    Me.Date_Naissance_TB.Value = ""
    Me.Adresse_TB.Value = ""
    Me.Code_postal_TB.Value = ""
    Me.Ville_TB.Value = ""
    Me.Pays_TB.Value = ""
    Me.TB_Salaire = ""
    Me.Téléphone_TB.Value = ""
    Me.GSM_TB.Value = ""
    Me.Email_TB.Value = ""
     
    Me.nom_TB.SetFocus
     
    End Sub
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    Private Sub CB_Modifier_Click()
    Dim ws As Worksheet
    Dim i As Long
    Set ws = Worksheets("Employés")
     
    'Sélectionner la ligne à modifier
    i = Me.SpinButton1.Value
     
    'Vérifier si le nom existe
    If Trim(Me.nom_TB.Value) = "" Then
        Me.nom_TB.SetFocus
        MsgBox "Entrez un nom"
        Exit Sub
    End If
     
    'Entrer les données dans le ws
    ws.Cells(i, 1).Value = Me.nom_TB.Value
    ws.Cells(i, 2).Value = Me.Prénom_TB.Value
    ws.Cells(i, 3).Value = Me.Fonction_TB.Value
    ws.Cells(i, 4).Value = Me.Matricule_TB.Value
    ws.Cells(i, 5).Value = Me.Date_Naissance_TB.Value
    ws.Cells(i, 6).Value = Me.Adresse_TB.Value
    ws.Cells(i, 7).Value = Me.Code_postal_TB.Value
    ws.Cells(i, 8).Value = Me.Ville_TB.Value
    ws.Cells(i, 9).Value = Me.Pays_TB.Value
    ws.Cells(i, 10).Value = Me.TB_Salaire.Value
    ws.Cells(i, 11).Value = Me.Téléphone_TB.Value
    ws.Cells(i, 12).Value = Me.GSM_TB.Value
    ws.Cells(i, 13).Value = Me.Email_TB.Value
     
    Me.nom_TB.SetFocus
     
    End Sub
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Private Sub CB_Quitter_Click()
     
    Unload Me
     
    End Sub
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    Private Sub CB_Rechercher_Click()
     
    Dim ws As Worksheet
    Dim i As Long
    Set ws = Worksheets("Employés")
     
     
    'Recherche Nom
    For i = 1 To ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row Step 1
    If InStr(1, ws.Cells(i, 1).Value, Me.nom_TB.Value, 1) Then
    Exit For
    End If
     
    Next i
     
    'Retrouver la fiche
    ws.Cells(i, 1).Value = Me.nom_TB.Value
    ws.Cells(i, 2).Value = Me.Prénom_TB.Value
    ws.Cells(i, 3).Value = Me.Fonction_TB.Value
    ws.Cells(i, 4).Value = Me.Matricule_TB.Value
    ws.Cells(i, 5).Value = Me.Date_Naissance_TB.Value
    ws.Cells(i, 6).Value = Me.Adresse_TB.Value
    ws.Cells(i, 7).Value = Me.Code_postal_TB.Value
    ws.Cells(i, 8).Value = Me.Ville_TB.Value
    ws.Cells(i, 9).Value = Me.Pays_TB.Value
    ws.Cells(i, 10).Value = Me.TB_Salaire.Value
    ws.Cells(i, 11).Value = Me.Téléphone_TB.Value
    ws.Cells(i, 12).Value = Me.GSM_TB.Value
    ws.Cells(i, 13).Value = Me.Email_TB.Value
     
    Me.nom_TB.SetFocus
     
    End Sub
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    Private Sub CB_Supprimer_Click()
    Dim ws As Worksheet
    Dim i As Long
    Set ws = Worksheets("Employés")
     
    'Trouver la première cellule disponible
    i = Me.SpinButton.Value
     
    'Supprimer une donnée
    ws.Rows(i).EntireRow.Delete
     
    'Initialiser les données
    Me.nom_TB.Value = ""
    Me.Prénom_TB.Value = ""
    Me.Fonction_TB.Value = ""
    Me.Matricule_TB.Value = ""
    Me.Date_Naissance_TB.Value = ""
    Me.Adresse_TB.Value = ""
    Me.Code_postal_TB.Value = ""
    Me.Ville_TB.Value = ""
    Me.Pays_TB.Value = ""
    Me.TB_Salaire = ""
    Me.Téléphone_TB.Value = ""
    Me.GSM_TB.Value = ""
    Me.Email_TB.Value = ""
     
    Me.nom_TB.SetFocus
     
     
    End Sub

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    Private Sub SpinButton_1Change()
     
    Dim ws As Worksheet
    Dim i As Long
    Set ws = Worksheets("Employés")
     
    i = Me.SpinButton.Value
     
       'Empêche de trop remonter
           If i < 2 Then
            i = 2
            SpinButton1.Value = 1
        End If
     
     
    Me.nom_TB.Value = ws.Cells(i, 1).Value
    Me.Prénom_TB.Value = ws.Cells(i, 2).Value
    Me.Fonction_TB.Value = ws.Cells(i, 3).Value
    Me.Matricule_TB.Value = ws.Cells(i, 4).Value
    Me.Date_Naissance_TB.Value = ws.Cells(i, 5).Value
    Me.Adresse_TB.Value = ws.Cells(i, 6).Value
    Me.Code_postal_TB.Value = ws.Cells(i, 7).Value
    Me.Ville_TB.Value = ws.Cells(i, 8).Value
    Me.Pays_TB.Value = ws.Cells(i, 9).Value
    Me.TB_Salaire.Value = ws.Cells(i, 10).Value
    Me.Téléphone_TB.Value = ws.Cells(i, 11).Value
    Me.GSM_TB.Value = ws.Cells(i, 12).Value
    Me.Email_TB.Value = ws.Cells(i, 13).Value
     
    End Sub

  2. #2
    Expert confirmé Avatar de casefayere
    Homme Profil pro
    RETRAITE
    Inscrit en
    Décembre 2006
    Messages
    5 138
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : France, Ardennes (Champagne Ardenne)

    Informations professionnelles :
    Activité : RETRAITE
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : Décembre 2006
    Messages : 5 138
    Par défaut
    Bonsoir,

    Un début pour voir si j'ai compris :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Option Explicit
    Dim ws As Worksheet
    Dim i As Long
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    Private Sub CB_Créer_Click()
    Dim Ctrl As Control
    Set ws = Worksheets("Employés")
     
    'vu la suite, je pense qu'il faut enlever "offset"
    i = ws.Range("A" & ws.Rows.Count).End(xlUp).Row
     
    'Vérifier si le nom existe
    If Trim(Me.nom_TB.Value) = "" Then
        Me.nom_TB.SetFocus
        MsgBox "Entrez un nom"
        Exit Sub
    Else
       'Entrer les données dans le ws
       ws.Cells(i, 1).Value = Me.nom_TB.Value
       ws.Cells(i, 2).Value = Me.Prénom_TB.Value
       ws.Cells(i, 3).Value = Me.Fonction_TB.Value
       ws.Cells(i, 4).Value = Me.Matricule_TB.Value
       ws.Cells(i, 5).Value = Me.Date_Naissance_TB.Value
       ws.Cells(i, 6).Value = Me.Adresse_TB.Value
       ws.Cells(i, 7).Value = Me.Code_postal_TB.Value
       ws.Cells(i, 8).Value = Me.Ville_TB.Value
       ws.Cells(i, 9).Value = Me.Pays_TB.Value
       ws.Cells(i, 10).Value = Me.TB_Salaire.Value
       ws.Cells(i, 11).Value = Me.Téléphone_TB.Value
       ws.Cells(i, 12).Value = Me.GSM_TB.Value
       ws.Cells(i, 13).Value = Me.Email_TB.Value
       'Initialiser les données
       For Each Ctrl In Me.Controls
          If TypeOf Ctrl Is MSForms.TextBox Then
             Ctrl.Object.Value = ""
          End If
       Next Ctrl
    End If
    Me.nom_TB.SetFocus
    End Sub
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    Private Sub CB_Modifier_Click()
    Set ws = Worksheets("Employés")
     
    'Sélectionner la ligne à modifier
    i = Me.SpinButton1.Value
     
    'Vérifier si le nom existe
    If Trim(Me.nom_TB.Value) = "" Then
       Me.nom_TB.SetFocus
       MsgBox "Entrez un nom"
       Exit Sub
    Else
    'Entrer les données dans le ws
    'pour vérifier l'adresse de ws.Cells(i, 1), msgbox temporaire
       MsgBox ws.Cells(i, 1).Address
       ws.Cells(i, 1).Value = Me.nom_TB.Value
       ws.Cells(i, 2).Value = Me.Prénom_TB.Value
       ws.Cells(i, 3).Value = Me.Fonction_TB.Value
       ws.Cells(i, 4).Value = Me.Matricule_TB.Value
       ws.Cells(i, 5).Value = Me.Date_Naissance_TB.Value
       ws.Cells(i, 6).Value = Me.Adresse_TB.Value
       ws.Cells(i, 7).Value = Me.Code_postal_TB.Value
       ws.Cells(i, 8).Value = Me.Ville_TB.Value
       ws.Cells(i, 9).Value = Me.Pays_TB.Value
       ws.Cells(i, 10).Value = Me.TB_Salaire.Value
       ws.Cells(i, 11).Value = Me.Téléphone_TB.Value
       ws.Cells(i, 12).Value = Me.GSM_TB.Value
       ws.Cells(i, 13).Value = Me.Email_TB.Value
    End If
    Me.nom_TB.SetFocus
     
    End Sub
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    Private Sub CB_Rechercher_Click()
    Dim plage As Range
    Dim rech As Range
    Set ws = Worksheets("Employés")
    i = ws.Cells(Rows.Count, 1).End(xlUp).Row
    Set plage = ws.Range("A2:A" & i)
    'Recherche Nom
    'si un nom est entré dans le "nom_TB"
    Set rech = plage.Find(Me.nom_TB.Value)
    If rech Is Nothing Then
       MsgBox "nom non trouvé"
       Exit Sub
    Else
       Me.nom_TB.Value = ws.Range("A" & rech.Row).Value
       Me.Prénom_TB.Value = ws.Range("B" & rech.Row).Value
       Me.Fonction_TB.Value = ws.Range("C" & rech.Row).Value
       Me.Matricule_TB.Value = ws.Range("D" & rech.Row).Value
       Me.Date_Naissance_TB.Value = ws.Range("E" & rech.Row).Value
       Me.Adresse_TB.Value = ws.Range("F" & rech.Row).Value
       Me.Code_postal_TB.Value = ws.Range("G" & rech.Row).Value
       Me.Ville_TB.Value = ws.Range("H" & rech.Row).Value
       Me.Pays_TB.Value = ws.Range("I" & rech.Row).Value
       Me.TB_Salaire.Value = ws.Range("J" & rech.Row).Value
       Me.Téléphone_TB.Value = ws.Range("K" & rech.Row).Value
       Me.GSM_TB.Value = ws.Range("L" & rech.Row).Value
       Me.Email_TB.Value = ws.Range("M" & rech.Row).Value
     
     
    'GARDER LA SUITE POUR LES MODIFS
    'ws.Cells(i, 1).Value = Me.nom_TB.Value
    'ws.Cells(i, 2).Value = Me.Prénom_TB.Value
    'ws.Cells(i, 3).Value = Me.Fonction_TB.Value
    'ws.Cells(i, 4).Value = Me.Matricule_TB.Value
    'ws.Cells(i, 5).Value = Me.Date_Naissance_TB.Value
    'ws.Cells(i, 6).Value = Me.Adresse_TB.Value
    'ws.Cells(i, 7).Value = Me.Code_postal_TB.Value
    'ws.Cells(i, 8).Value = Me.Ville_TB.Value
    'ws.Cells(i, 9).Value = Me.Pays_TB.Value
    'ws.Cells(i, 10).Value = Me.TB_Salaire.Value
    'ws.Cells(i, 11).Value = Me.Téléphone_TB.Value
    'ws.Cells(i, 12).Value = Me.GSM_TB.Value
    'ws.Cells(i, 13).Value = Me.Email_TB.Value
    End If
    Me.nom_TB.SetFocus
     
    End Sub
    Par contre, pour le bouton "supprimer", je n'ai rien fait car ce n'est pas clair, ça manque d'explication sur le but à atteindre

    Bonne soirée
    Cordialement,
    Dom
    _____________________________________________
    Vous êtes nouveau ? pour baliser votre code, cliquer sur cet exemple : Anomaly
    pensez à cliquer sur :resolu: si votre problème l'est
    Par contre, il est désagréable de voir une discussion résolue sans message final du demandeur (satisfaction, désarroi, remerciement, conclusion...)

  3. #3
    Nouveau membre du Club
    Homme Profil pro
    Inscrit en
    Mai 2011
    Messages
    7
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations forums :
    Inscription : Mai 2011
    Messages : 7
    Par défaut
    hallelujah!

    Merci pour ta réponse: le bouton "rechercher" fonctionne! Maintenant reste plus qu'a comprendre pourquoi ^^

    Par contre la fonction "modifier" m'indique $A$1 lorsque je clique sur le bouton.

    Et pour ce qui est du bouton "supprimer", voici les consignes:
    "Supprimer : pour supprimer une ligne de données sélectionnée via un des
    userForms développés"

  4. #4
    Expert confirmé Avatar de casefayere
    Homme Profil pro
    RETRAITE
    Inscrit en
    Décembre 2006
    Messages
    5 138
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : France, Ardennes (Champagne Ardenne)

    Informations professionnelles :
    Activité : RETRAITE
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : Décembre 2006
    Messages : 5 138
    Par défaut
    Par contre la fonction "modifier" m'indique $A$1 lorsque je clique sur le bouton.
    je l'ai fait volontairement pour que tu vérifies si l'adresse est bien la bonne

    Commences-tu à écrire en A1 ?, ça m'étonnerai, il faut donc adapter en fonction, c'est la valeur de ton spinbutton qui prime
    Cordialement,
    Dom
    _____________________________________________
    Vous êtes nouveau ? pour baliser votre code, cliquer sur cet exemple : Anomaly
    pensez à cliquer sur :resolu: si votre problème l'est
    Par contre, il est désagréable de voir une discussion résolue sans message final du demandeur (satisfaction, désarroi, remerciement, conclusion...)

  5. #5
    Nouveau membre du Club
    Homme Profil pro
    Inscrit en
    Mai 2011
    Messages
    7
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations forums :
    Inscription : Mai 2011
    Messages : 7
    Par défaut
    Bonjour bonjour !

    Non je commence à écrire en ligne 2.

    Par contre quand vous parlez de la valeur du spinbutton, je ne vois pas comment lui donner la valeur de la ligne que je traite. Je m'explique: quand j'utilise la fonction spinbutton, que je clique sur la flèche de droite ou de gauche, il me remet à la première ligne d'information= ligne2 (ligne 1 = en-tête). Je suppose qu'il considère donc que sa valeur vaut ligne 2..?

  6. #6
    Expert éminent Avatar de mercatog
    Homme Profil pro
    Inscrit en
    Juillet 2008
    Messages
    9 435
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations forums :
    Inscription : Juillet 2008
    Messages : 9 435
    Par défaut
    Bonjour
    Réponse à l'un de tes collègues qui est en avance:
    Lien réponse

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. PB Bouton de commande
    Par tigerfish dans le forum Access
    Réponses: 15
    Dernier message: 27/03/2006, 11h27
  2. [VBA-W] Créer un bouton de commande
    Par maketossss dans le forum VBA Word
    Réponses: 15
    Dernier message: 07/11/2005, 17h07
  3. Bouton de commande - Aller à un onglet défini
    Par JF.Stachera dans le forum Access
    Réponses: 2
    Dernier message: 16/09/2005, 17h58
  4. [Collaboration/Interaction] Peut-on schématiser une interaction entre un bouton de commande et un autre objet ?
    Par manel007 dans le forum Autres Diagrammes
    Réponses: 5
    Dernier message: 21/09/2004, 01h01
  5. Ajout de bouton de commandes dans la barre de menus
    Par vanessaf22 dans le forum IHM
    Réponses: 9
    Dernier message: 21/07/2003, 11h38

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo