Boutons de commande

**Leswiss** · 16/05/2011, 16h22

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

**casefayere** · 16/05/2011, 19h23

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

**Leswiss** · 16/05/2011, 20h08

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"

**casefayere** · 16/05/2011, 20h12

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

**Leswiss** · 17/05/2011, 15h54

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..?

**mercatog** · 17/05/2011, 17h39

Bonjour
Réponse à l'un de tes collègues qui est en avance:
Lien réponse

Boutons de commande [Toutes versions]

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager