Remplissage des TextBox automatiquement après impressionRésolu

Question

Bonjour, J'ai 6 textBoxt nommée respectivement 1, 2, 3, 4, 5,et 6 dans un Userform1 pour un classeur qui contient une seule feuille excel nommée "Paiement". Merci de bien vouloir m'aider pour avoir un code avec VBA, En utilisant BeforePrint mettre la date d'aujourd'hui dans le textBoxt vide . C'est à dire. -Si TextBoxt1= "" then TextBox1= Date , -Si TextBoxt1 <> "" then TextBox2= Date -Si TextBoxt1 <> "" And TextBox2 <> "" then TextBox3= Date - Etc . Le problème c'est que avec ce code, tous les TextBox vides donnent la date d'aujourd'hui au même temps. Je veux si le TextBox suivant est vide alors il prend la date d'aujourd'hui et le sub arrête en gardant le contenu des autres TextBox précédents intact.. Merci pour votre aide.

pijaku · Answer

Bonjour,

Quels sont les éventuels codes que vous avez tenté pour résoudre ce problème?

ucfoutu · Answer

Bonjour,
S'intéresser à Select Case et/ou à If ... Elseif....
(C'est un minimum à connaître)

Bzik59 · Answer

Le code que j'ai utilisé et ne marche pas: If TextBoxt1= "" then TextBox1= Date End If If TextBoxt1 <> "" And TextBox2=""then TextBox2= Date End If If TextBoxt1 <> "" And TextBox2 <> "" And TextBox3="" then TextBox3= Date End If Etc Est ce que vous avez des suggestions? Merci

ucfoutu · Answer

ta 1ere expression conditionnelle fait que  si textbox1 = "", textbox1 = date et que donc textbox1 devient forcément <> "".
Idem ensuite avec textbox2. Et donc : ta 3ème condition est toujours vérifiée. C'est tellement évident (y compris hors informatique !).
Je ne sais pas si j'ai vraiment compris ce que tu cherches à faire exactement. La dernière phrase de ton 1er message devient peu claire lorsque l'on compare à ce que tu sembles par ailleurs chercher à réaliser (ton code).
A tout hasard (mais je m'interroge vraiment) : Exit sub fait sortir de la procédure
Et je te rappelle également ce que je t'ai dit dans ma 1ère réponse (elseif)

 
________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.

ucfoutu · Answer

Elseif veut dire sinon si et donc si la 1ère condition n'est pas vérifiée, elle n'a pas a être reprise pour la seconde ! ===>>
If textbox1.value = "" then   textbox1.value =  DateElseif textbox2.value = "" then   textbox2.value = dateElseifetc ... 
Edit : prends l'habitude de toujours préciser la propriété, même si VBA est tolérant et comprend que textbox1 veut dire textbox1.value
________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.

ucfoutu · Answer

Que tu pourrais d'ailleurs écrire autrement (et je vois sur CCM que tu sais ce qu'est Controls ===>> exemple avec 3 textbox ===>>
For i = 1 to 3  if controls("TextBox" & i).value = "" then    controls("TextBox" & i).value = date    exit for  end ifnext

ucfoutu · Answer

Que tu pourrais encore écrire autrement ===>> exemple
toto = Array(TextBox1, TextBox2, TextBox3)For i = 0 To UBound(toto)  If toto(i).Value = "" Then    toto(i).Value = Date    Exit For  End IfNext

il y a une multitude de possibilités, comme tu le vois.
Ce n'est là qu'une question de connaissance des rudiments et de logique.

Bzik59 · Answer

Bonjour, 
j'ai des TextBox qui se remplissent automatiquement avant impression grâce à un code dans BeforePrint. Y a t il une solution pour enregistrer les valeurs de ces TextBox dans la feuille Active Excel correspodante automatiquement après impression . Càd sans  cliquer sur le bouton enregistrer que j'ai crée dans l'UserForm.
J'ai utilisé le code  
thisworkbook.Save,  dans beforePrint mais ça marche pas.
Est ce vous avez des suggestions? Merci à vous

ucfoutu · Answer

Tu as ouvert une autre discussion à ce sujet. Et tu y as eu une réponse.
- Ne mélange pas tout.
- si la difficulté objet de la présente discussion est résolue, il t'appartient de libérer cette discussion (un clic sur le tag RESOLU au niveau de ton 1er message dans cette discussion). Merci d'y penser.

Remplissage des TextBox automatiquement après impression

9 réponses

Votre réponse

Discussions similaires