USERFORM a l'ouverture du fichier

bonjur au forum EXCEL PRATIQUE et bonjour a tous les membre

j'aimerais créer un USERFORM qui comporte un TEXTBOX et un CommandButton.

le but c'est que ce USERFORM s'ouvre automatiquement a l'ouverture du fichier, mais seulement à une nouvelle journée( si j'ouvre le fichier plusieurs fois par jour, je USERFORM n'apparais que la première fois ou j'ouvre le fichier durant la journée).

dans le TEXTBOX je doit mettre une somme qui se positionne dans une cellule bien précise( peut importe la cellule, disons A1 de la feuil1), si le TEXTBOX est vide et que je valide avec la commandButton le fichier me signal qu'il faut insérer une somme quelconque, sinon j'ai pas accé au fichier

merci pour votre aide

re bonsoir

je me suis peut etre mal exprimer enver ma demande

déjà je demande une aide de votre part

j'aimerais créer un USERFORM qui comporte un TEXTBOX et un CommandButton.

le but c'est que ce USERFORM s'ouvre automatiquement a l'ouverture du fichier.

* mais seulement à une nouvelle journée( si j'ouvre le fichier plusieurs fois par jour, le USERFORM n'apparais que la première fois ou j'ouvre le fichier durant la journée).

* dans le TEXTBOX je doit mettre une somme qui se positionne dans une cellule bien précise

( peut importe la cellule, disons A1 de la feuil1),

si le TEXTBOX est vide et que je valide avec la commandButton le fichier me signal qu'il faut insérer une somme quelconque,

sinon j'ai pas accé au fichier

merci pour votre aide

Bonsoir

Un essai

bonsoir,

j’étais absorbé par le boulot, donc je n'ai pu répondre

merci pour la réponse avant tous

j'ai bien reçu me fichier et c'est ce que je voulais comme objet

néanmoins, ce que je n'arrive pas a faire faire, c'est d'inscrire ce qu'il a dans le TEXTBOX1 dans une case bien précise

merci pour votre aide

Bonsoir

iliyes a écrit :

ce que je n'arrive pas a faire faire, c'est d'inscrire ce qu'il a dans le TEXTBOX1 dans une case bien précise

un zoubli

Désolé

A tester

bonjour BANZAI, oubien bonsoir

ca marche merveuilesement bien ce que tu as fait

mais juste j'aimerais comprendre

Private Sub CommandButton1_Click()
' Accès au fichier
  If Trim(Me.TextBox1) = "" Then
    MsgBox "Accès refusé"
    ThisWorkbook.Close savechanges:=False
  Else
    Sheets("Feuil1").Range("G1") = Date
    [color=#FFBF40]Sheets("Feuil1").Range("A1") = Me.TextBox1 * 1[/color]
  End If
  Unload Me
End Sub

pourquoi il y a le * 1

merci

Bonsoir

C'est une question qui ne devrait pas être posée

Fais l'expérience (bonne habitude pour comprendre)

Tu remarqueras que sans le 1 tu obtiens du texte dans la cellule, et avec le 1 tu obtiens un nombre

Ensuite si tu veux savoir pourquoi on à du texte, c'est que toute donnée dans un contrôle est du texte

merci banzaiiiiiiiiiiii

vive banzaiiiiiiiii