Bonjour à tous,
J’ai un problème d’exécution …
Après avoir créé une macro banque, je voulais améliorer le programme en ajoutant une procédure userform1 avec un combobox pour choisir le titulaire du compte.
J’ai donc recopié cette procédure à la suite de la macro banque ; la macro et le userform1 fonctionnent très bien indépendamment l’une de l’autre, mais pas l’ensemble. Je suppose que c’est un problème de structure, je débute avec la VBA et je ne sais comment procéder. De plus je voudrais que tout cela fonctionne sans devoir aller dans le code pour cliquer sur exécuter, donc dès qu’on lance le fichier.
Quelqu’un pourrait-il m’aider ?
Merci d’avance.
Ci-dessous les parties du programme
-------------------------------------------------------------------------
Sub banque()
' banque Macro
' Tableau des Extraits)
'
Application.ScreenUpdating = False
Cells.Select
Selection.Hyperlinks.Delete
Selection.UnMerge
With Selection.Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
userform1
ActiveCell.Columns("A:A").EntireColumn.ColumnWidth = 4
ActiveCell.Offset(0, 1).Columns("A:A").EntireColumn.ColumnWidth = 6
ActiveCell.Offset(0, 2).Columns("A:A").EntireColumn.ColumnWidth = 31
ActiveCell.Offset(0, 3).Columns("A:A").EntireColumn.ColumnWidth = 31
ActiveCell.Offset(0, 4).Columns("A:A").EntireColumn.ColumnWidth = 31
ActiveCell.Offset(0, 5).Columns("A:A").EntireColumn.ColumnWidth = 14
Range("a:e").Select
. . . . . . . ..
. . . . . . . ..
. . . . . . . ..
. . . . . . . ..
. . . . . . . ..
. . . . . . . ..
. . . . . . . ..
. . . . . . . ..
End sub
Private Sub CommandButton1_Click()
Unload userform1
End Sub
Private Sub CommandButton2_Click()
Range("v1") = innom.Value
Range("w1") = insolde.Value
Unload userform1
End Sub
Private Sub UserForm_Initialize()
Dim nom As Variant
Dim solde As Variant
innom.AddItem "Suzanne"
innom.AddItem "Roland"
innom.ListIndex = 0
End Sub
Private Sub UserForm_Click()
End Sub