Microsoft 365 formulaire VBA problème

B

burbi

XLDnaute Nouveau
Bonjour !

Je souhaite mettre en place un formulaire afin de pouvori remplir automatiquement l'onglet "Base de données"
Cependant, les CommandButton que j'ai programmé ne fonctionnent pas...

Quelqu'un pour m'aider ?

Ci dessous le code VBA :

VB: 
Sub UserForm_Conf()

 For I = 1 To 7
     Me.Controls("TextBox" & I).Visible = True
 Next I

End Sub

Sub UserForm_Initialize()

Dim J As Long

Dim I As Integer

SetWs = Sheets("Base de données")

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 6
Me.Controls(" TextBox " & I).Visible = True
Next I
End Sub


'Pour le bouton Nouveau contact

Sub CommandButton1_Click()

Dim L As Integer

 If MsgBox("Confirmez-vous l'insertion de ce nouveau deal ?", 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 = TextBox1
     Range("B" & L).Value = TextBox2
     Range("C" & L).Value = TextBox3
     Range("D" & L).Value = TextBox4
     Range("E" & L).Value = TextBox5
     Range("F" & L).Value = TextBox6
     Range("G" & L).Value = TextBox7
     Range("H" & L).Value = TextBox8
     Range("I" & L).Value = TextBox9
     Range("J" & L).Value = TextBox10
     Range("K" & L).Value = TextBox11
     Range("L" & L).Value = TextBox12
     Range("M" & L).Value = TextBox13
     Range("N" & L).Value = TextBox14
     Range("O" & L).Value = TextBox15
     Range("P" & L).Value = TextBox16
     Range("R" & L).Value = TextBox17
     Range("S" & L).Value = TextBox18
     Range("T" & L).Value = TextBox19
     Range("U" & L).Value = TextBox20
     Range("X" & L).Value = TextBox21

    
 End If
 End Sub
 
 'Pour le bouton Modifier

Sub CommandButton2_Click()

Dim Ligne As Long
Dim I As Integer

   If MsgBox("Confirmez-vous la modification de ce Deal ?", vbYesNo, "Demande de confirmation de modification") = vbYes Then
     If Me.ComboBox1.ListIndex = -1 Then Exit Sub

         Ligne = Me.ComboBox1.ListIndex + 2

     For I = 1 To 21
         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
Sub CommandButton3_Click()

Unload Me

End Sub

Sub Ouvir_formualire()
Set Ws = Sheets("Base de données")
UserForm1.Show
End Sub
Sub UserForm_Conf()

For I = 1 To 7
Me.Controls("TextBox" & I).Visible = True
Next I

End Sub

Sub UserForm_Initialize()

Dim J As Long

Dim I As Integer

SetWs = Sheets("Base de données")

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 6
Me.Controls(" TextBox " & I).Visible = True
Next I
End Sub


'Pour le bouton Nouveau contact

Sub CommandButton1_Click()

Dim L As Integer

If MsgBox("Confirmez-vous l'insertion de ce nouveau deal ?", 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 = TextBox1
Range("B" & L).Value = TextBox2
Range("C" & L).Value = TextBox3
Range("D" & L).Value = TextBox4
Range("E" & L).Value = TextBox5
Range("F" & L).Value = TextBox6
Range("G" & L).Value = TextBox7
Range("H" & L).Value = TextBox8
Range("I" & L).Value = TextBox9
Range("J" & L).Value = TextBox10
Range("K" & L).Value = TextBox11
Range("L" & L).Value = TextBox12
Range("M" & L).Value = TextBox13
Range("N" & L).Value = TextBox14
Range("O" & L).Value = TextBox15
Range("P" & L).Value = TextBox16
Range("R" & L).Value = TextBox17
Range("S" & L).Value = TextBox18
Range("T" & L).Value = TextBox19
Range("U" & L).Value = TextBox20
Range("X" & L).Value = TextBox21


End If
End Sub

'Pour le bouton Modifier

Sub CommandButton2_Click()

Dim Ligne As Long
Dim I As Integer

If MsgBox("Confirmez-vous la modification de ce Deal ?", vbYesNo, "Demande de confirmation de modification") = vbYes Then
If Me.ComboBox1.ListIndex = -1 Then Exit Sub

Ligne = Me.ComboBox1.ListIndex + 2

For I = 1 To 21
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
Sub CommandButton3_Click()

Unload Me

End Sub

Sub Ouvir_formualire()
Set Ws = Sheets("Base de données")
UserForm1.Show
End Sub
[/ICODE]


Ci joi t le fichier excel, MERCI !
 

Pièces jointes

  • FICHIERXLS..xlsm
    152 KB · Affichages: 11
Trier par date Trier par votes
M12

M12

XLDnaute Accro
burbi à dit:
Bonjour !

Je souhaite mettre en place un formulaire afin de pouvori remplir automatiquement l'onglet "Base de données"
Cependant, les CommandButton que j'ai programmé ne fonctionnent pas...

Quelqu'un pour m'aider ?

Ci dessous le code VBA :

VB: 
Sub UserForm_Conf()

 For I = 1 To 7
     Me.Controls("TextBox" & I).Visible = True
 Next I

End Sub

Sub UserForm_Initialize()

Dim J As Long

Dim I As Integer

SetWs = Sheets("Base de données")

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 6
Me.Controls(" TextBox " & I).Visible = True
Next I
End Sub


'Pour le bouton Nouveau contact

Sub CommandButton1_Click()

Dim L As Integer

 If MsgBox("Confirmez-vous l'insertion de ce nouveau deal ?", 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 = TextBox1
     Range("B" & L).Value = TextBox2
     Range("C" & L).Value = TextBox3
     Range("D" & L).Value = TextBox4
     Range("E" & L).Value = TextBox5
     Range("F" & L).Value = TextBox6
     Range("G" & L).Value = TextBox7
     Range("H" & L).Value = TextBox8
     Range("I" & L).Value = TextBox9
     Range("J" & L).Value = TextBox10
     Range("K" & L).Value = TextBox11
     Range("L" & L).Value = TextBox12
     Range("M" & L).Value = TextBox13
     Range("N" & L).Value = TextBox14
     Range("O" & L).Value = TextBox15
     Range("P" & L).Value = TextBox16
     Range("R" & L).Value = TextBox17
     Range("S" & L).Value = TextBox18
     Range("T" & L).Value = TextBox19
     Range("U" & L).Value = TextBox20
     Range("X" & L).Value = TextBox21

  
 End If
 End Sub
 
 'Pour le bouton Modifier

Sub CommandButton2_Click()

Dim Ligne As Long
Dim I As Integer

   If MsgBox("Confirmez-vous la modification de ce Deal ?", vbYesNo, "Demande de confirmation de modification") = vbYes Then
     If Me.ComboBox1.ListIndex = -1 Then Exit Sub

         Ligne = Me.ComboBox1.ListIndex + 2

     For I = 1 To 21
         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
Sub CommandButton3_Click()

Unload Me

End Sub

Sub Ouvir_formualire()
Set Ws = Sheets("Base de données")
UserForm1.Show
End Sub
Sub UserForm_Conf()

For I = 1 To 7
Me.Controls("TextBox" & I).Visible = True
Next I

End Sub

Sub UserForm_Initialize()

Dim J As Long

Dim I As Integer

SetWs = Sheets("Base de données")

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 6
Me.Controls(" TextBox " & I).Visible = True
Next I
End Sub


'Pour le bouton Nouveau contact

Sub CommandButton1_Click()

Dim L As Integer

If MsgBox("Confirmez-vous l'insertion de ce nouveau deal ?", 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 = TextBox1
Range("B" & L).Value = TextBox2
Range("C" & L).Value = TextBox3
Range("D" & L).Value = TextBox4
Range("E" & L).Value = TextBox5
Range("F" & L).Value = TextBox6
Range("G" & L).Value = TextBox7
Range("H" & L).Value = TextBox8
Range("I" & L).Value = TextBox9
Range("J" & L).Value = TextBox10
Range("K" & L).Value = TextBox11
Range("L" & L).Value = TextBox12
Range("M" & L).Value = TextBox13
Range("N" & L).Value = TextBox14
Range("O" & L).Value = TextBox15
Range("P" & L).Value = TextBox16
Range("R" & L).Value = TextBox17
Range("S" & L).Value = TextBox18
Range("T" & L).Value = TextBox19
Range("U" & L).Value = TextBox20
Range("X" & L).Value = TextBox21


End If
End Sub

'Pour le bouton Modifier

Sub CommandButton2_Click()

Dim Ligne As Long
Dim I As Integer

If MsgBox("Confirmez-vous la modification de ce Deal ?", vbYesNo, "Demande de confirmation de modification") = vbYes Then
If Me.ComboBox1.ListIndex = -1 Then Exit Sub

Ligne = Me.ComboBox1.ListIndex + 2

For I = 1 To 21
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
Sub CommandButton3_Click()

Unload Me

End Sub

Sub Ouvir_formualire()
Set Ws = Sheets("Base de données")
UserForm1.Show
End Sub
[/ICODE]


Ci joi t le fichier excel, MERCI !
Cliquez pour agrandir...
Bonjour,
Déjà les macro pour les command de bouton se font dans l'userform
De plus, il faudrait peut-être voir d'où vient le combobox1 dans ce même userform. 'Et je n'ai pas poussé plus loin)

Bref, cela doit être une copie d'un code trouvé je ne sais où et coller pour ne pas fonctionner.
Tout est à supprimer et à faire
 
Vote positif 0 Vote négatif
herve62

herve62

XLDnaute Barbatruc
Supporter XLD
Bonsoir
@burbi : Arrête ton "YouTube" , il y a de meilleurs sites pour apprendre le VBA dont celui hélas de notre ami feu Jacques Boisgontier mais son site est resté intact > VBA complet
On ne peut pas mieux , TOUT Y EST !!! simple et facile , juste prendre beaucoup de temps
Sinon j'ai juste remis les pendules à l'heure à savoir , mettre les sub au bon endroit , corriger les erreurs de syntaxe
Là maintenant si tu lances ton USF via ton bouton c'est correct
Maintenant à toi de poursuivre !!
 

Pièces jointes

  • FICHIERXLS.xlsm
    159.6 KB · Affichages: 9
Dernière édition:
Vote positif 0 Vote négatif

Discussions similaires

S
  • Question
XL 2016 Problème dans la création d'une liste
Réponses
2
Affichages
298
Stéphane_1
S
G
  • Question
Microsoft 365 Export données
Réponses
4
Affichages
432
GClaire
G
Chaton77
  • Résolu(e)
Microsoft 365 Vba : Transférer des données d'un tableau dans un autre fichier
Réponses
7
Affichages
367
Chaton77
Chaton77
D
  • Question
envois automatique d'email avec EXCEL et une MACRO
Réponses
4
Affichages
763
AtTheOne
AtTheOne
F
  • Résolu(e)
Microsoft 365 Recherche à partir d'une TextBox
Réponses
4
Affichages
414
Francky79
F
B
  • Résolu(e)
Microsoft 365 creation d'liste à imprimer
2 3 4
Réponses
51
Affichages
1 K
Banbara
B
lynyrd
  • Question
XL 2019 code pour tous les disques
Réponses
3
Affichages
492
AtTheOne
AtTheOne
P
  • Résolu(e)
XL 2013 EXCEL VBA
Réponses
2
Affichages
309
pangasoul
P
N
  • Résolu(e)
Microsoft 365 Code fonction pour création code aléatoire
2 3
Réponses
32
Affichages
526
NONO14
N
M
  • Résolu(e)
XL 2021 PUBLIPOSTAGE : Mise en forme du corps de message issu d'une cellule excel (VBA)
Réponses
4
Affichages
334
Minus&Cortex
M

Membres actuellement en ligne

4 membres et 119 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
314 737
Messages
2 112 328
Membres
111 510
dernier inscrit
dede48