Excel VBA, récupération de la date du jour [Fermé]

Ok merci je v essayé

Désoler mais sa ne marche pas comme je veut car moi g un bouton qui ouvre une combobox et je veut que cet date se mette automatiquement dans ma Combobox.

Ma combobox est dans une userform est donc je veux que quand j appuye sur le bouton dés que l' userform s affiche la date du jour se mette automatiquement

En faite je veux faire sa avec un textbox

Es que c le même principe avec un textbox ?

Désoler mais sa ne marche pas

Ouais c sa que je veut le problème est j ai : Private Sub UserForm_Initialize() 2 fois donc sa beug il me dise erreur de compilation

Sa ne marche toujours pas il m affiche en jaune: Private Sub UserForm_Initialize()

Non sa ne marche pas il dois y avoir un truc qui bloque

Private Sub UserForm_Initialize()
Dim i, dernlign As Integer
ComboBox1.Clear
ComboBox2.Clear
ComboBox3.Clear
ComboBox4.Clear
ComboBox5.Clear
ComboBox6.Clear
ComboBox8.Clear
ComboBox9.Clear
ComboBox10.Clear
ComboBox11.Clear
ComboBox12.Clear
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
With Sheets("utile")
dernlign = .Range("G65536").End(xlUp).Row
For i = 1 To dernlign
ComboBox10.AddItem .Cells(i, 7).Value
Next i
dernlign = .Range("A65536").End(xlUp).Row
For i = 1 To dernlign
ComboBox12.AddItem .Cells(i, 1).Value
Next i
End With
End Sub

Voila

Mais je ne veut pas changer les combobox 10 et 12 je veut modifié que le Textbox 1 pour que quand j ouvre mon userform directement dans le Textbox 1 s affiche la date du jour

Je suis d'accord, mais ton erreur vient de cette partie de code,

With Sheets("utile")
dernlign = .Range("G65536").End(xlUp).Row
For i = 1 To dernlign
ComboBox10.AddItem .Cells(i, 7).Value
Next i
dernlign = .Range("A65536").End(xlUp).Row
For i = 1 To dernlign
ComboBox12.AddItem .Cells(i, 1).Value
Next i
End With

isole le en mettant une apostrophe devant chaque ligne et tu verras qu'il n'y a plus d'erreur

' With Sheets("utile")
' dernlign = .Range("G65536").End(xlUp).Row
' For i = 1 To dernlign
' ComboBox10.AddItem .Cells(i, 7).Value
' Next i
' dernlign = .Range("A65536").End(xlUp).Row
' For i = 1 To dernlign
' ComboBox12.AddItem .Cells(i, 1).Value
' Next i
' End With

Ou testes ton code avec le fonction pas à pas détaillé

Je voit pas ce que apporte ton code sa ne fait rien sur mon userform

Mon fichier est beaucoup plus gros donc sa ne marche pas y a un truc qui bloque

Si le code plante ce n'est pas pour une raison de taille du fichier mais certainement à cause d'une erreur
Alors soit tu utilises la fonction pas à pas détaillé pour tester ton code, ou autre astuce que je te redonne place devant chaque ligne du code une apostrophe et teste le code, efface une apostrophe et reteste etc ... tu verras la ligne ou partie du code qui plante et qu'il faudra modifier

Désoler mais sa ne marche toujours pas il doit y avoir quelque chose qui bloque.
Private Sub UserForm_Initialize() apparait en jaune et Date apparait en bleu

bonjour

Tu veux dire que mon classeur exemple ne fonctionne pas ?

Sur ton classeur ton nom de macro doit être unique.

Si tu pouvais nous mettre ton classeur, sans données identifiables et privées, mais avec la structure de tes données et tes macros sur http://www.cijoint.fr/ puis nous mettre le lien généré ici ce serait plus facile.

Je te passe le lien : http://www.cijoint.fr/cjlink.php?file=cj201006/cijxbC0GVa.xls

bonjour

Si tu mets

TextBox1.Value = Date

cela fonctionne très bien : as-tu seulement essayé ?

oui j ai essayé mais sa fé toujours pareil sa ne marche pas

Si cela "ne marche pas" chez toi tu devrais envisager de changer d'orientation professionnelle...

je ne comprend pas pk sa ne marche pas j ai fait comme tu ma dit mais y a toujours le message d érreur qui apparait

Voici le lien : http://www.cijoint.fr/cjlink.php?file=cj201006/cijxbC0GVa.xls

Bonjour,

Le fichier que tu as mis ne présente aucune erreur d'exécution même si l'on affecte la date à toutes les textbox et donc si chez toi cela "plante" c'est que tu n'as pas un excel correctement paramétré.

Les ComboBox 8, 10 et 12 font la même chose que les comboBox 3 , 4 et 6