Problème de macro

Bonsoir,

J'ai ajouté l"heure dans l'userform (label26) mais impossible de la faire fonctionner automatiquement dès que je lance l'userform,

et quand j'arrive à la ferme fonctionne cela bloque mes textbox Bizzar.

Une solution pour m'aider ?

Ci-joint le fichier

Cordialement

Yann

Bonjour Yann,

il n'y a pas de Label26 sur le UserForm dans le fichier joint ?

Bonjour,

Sur l'userform1 c'est (Label) en haut à gauche.

Cordialement

Yann

Salut,

Tu as juste fait une faute de frappe (entre autre, je n'ai pas regardé si plus loin il y avait des soucis):

UserForm1_Initialize

n'existe pas, c'est comme tu l'écris plus loin en plus

UserForm_Initialize()

En mettant des points d'arrêt, des msgbox ou en mode Pas à Pas (F8) tu peux voir ce qui merde en général

re,

comme ExcelCoreGame (que je salut au passage) a dit , les 2 macro avec UserForm1 sont à enlever.

à tester,

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  auto_close
End Sub

Private Sub UserForm_Initialize()
Set OB = Sheets("base") 'définit l'onglet OB
Set OQ = Sheets("QSO") 'définit l'onglet OB
TV = OQ.Range("A1").CurrentRegion 'définit le tableau des valeurs TV
ComboBox1.List = OB.Range("A2:A" & OB.Range("A65536").End(xlUp).Row).Value
ComboBox2.List = OB.Range("B2:B" & OB.Range("B65536").End(xlUp).Row).Value
ComboBox3.List = OB.Range("D2:D" & OB.Range("D65536").End(xlUp).Row).Value
ComboBox4.List = OB.Range("F2:F" & OB.Range("F65536").End(xlUp).Row).Value
ComboBox6.List = OB.Range("E2:E" & OB.Range("E65536").End(xlUp).Row).Value
ComboBox7.List = OB.Range("C2:C" & OB.Range("C65536").End(xlUp).Row).Value
ComboBox8.List = OB.Range("G2:G" & OB.Range("G65536").End(xlUp).Row).Value
ComboBox9.List = WorksheetFunction.Transpose(Feuil1.Range("A1:P1"))
majHeure                                                                   '  ici la macro pour le chrono temps
End Sub

Bonjour,

Cela fonctionne ,Merci pour le coup de main

Cordialement

Yann