Créer fenetre de saisie -simple
Bonjour,
J`ai regarde plusieurs réponses a ce sujet mais impossible de l`exécuter.
Je voudrais créer une fenêtre qui me permettrait de remplir les lignes de mon tableau. En affichant cette fenêtre en appuyant sur un bouton ?
J`entend parler de macros, de InputBox ou encore de TextBox mais les informations sont en brides....
- Je sais faire des macros mais relativement simple. -
Pourrait-on donner les marches a suivre pas a pas pour créer une fenêtre de saisie , ce sujet pourrait aussi bien servir les confirmes que les nouveaux utilisateurs d`Excel.
Merci !
Salut,
je t'ai fais un truc rapide, tu pourras l'adapter, dis moi si ça te conviens?
Bonjour,
Un exemple vaut bien des discours
Sinon comment changer la cellule de départ de debur de saisie
ZelosWiller
Salut,
Tu vas dans devellopeur > Visual Basic > Feuilles > Clic droit sur UserForm1 > Code
Tu verras je t'ai mis les explications du code !
Tu trouveras dans ce tuto la réponse à toutes tes questions
https://www.excel-pratique.com/fr/vba/introduction.php
Koro
Ok merci je vais y jeter un coup d`oeil.
Une dernière chose, pourquoi ce message s`affiche a chaque fois que je veux sauver de mon cote ? Je ne comprend pas.
et comment change t-on le TextBox1 ?
Merci !
Salut,
ZelosWiller a écrit :Une dernière chose, pourquoi ce message s`affiche a chaque fois que je veux sauver de mon cote ? Je ne comprend pas.
et comment change t-on le TextBox1 ?
Je ne comprends quel message s'affiche quand tu sauvegarde et ce que tu veux faire avec la textbox1, dis en moi plus pour que je te donne un coup de main
Koro
Bonjour, j'ai essayé votre méthode pour des saisies de dates.
Private Sub CommandButton1_Click()
If Not IsDate(Me.DateSaisie) Then
MsgBox "Vous devez entrer une date.", , "Saisie incorrecte"
Me.DateSaisie.SetFocus
Exit Sub
End If
With Sheets("Feuil1")
For Each cell In .Range("a2:a" & .Range("a200").End(xlUp).Row)
If Not cell = Me.DateSaisie Then
Sheets("Feuil1").Select
Range("A2").Select
Do While ActiveCell.Offset <> ""
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell = DateSaisie
Exit For
Else
MsgBox "Erreur"
Exit For
End If
Next
End With
End Sub
Par contre la fonction fonctionne pour la première date du tableau mais plus pour les suivantes
Ex:
A2 "15/10/12"
A3 "15/10/13"
la fonction m'indique l'erreur si je rentre lle "15/10/12" mais pas pour le "15/10/13" valeur pour laquel il rempli le tableau sans indiquer d'erreur.
Pourriez-vous m'aider ?