Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Incrémentation de liste grace à userform

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion manwholooklikedude
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
M

manwholooklikedude

Guest
Bonjour les aminches, ça farte ?

J'essaye de construire un fichier qui me permette grâce à un userform d'incrémenter une base de données, je m'explique:

l'userform s'ouvre
l'utilisateur écrit son nom
il valide
le nom se stocke en A1
l'utilisateur suivant écrit son nom
il valide
le nom se stocke en A2
...
...

J'ai mis un fichier en exemple avec l'état d'avancement du machin mais je sèche sur le reste du code et j'ai besoin d'un coup de pouce.......

Merci d'avance
 

Pièces jointes

Trier par date Trier par votes
Re : Incrémentation de liste grace à userform

Bonsoir,
A quoi peut servir le bouton si tu ne t'en sert pas ?!
Code: 
Private Sub CommandButton1_Click()
d = [A65000].End(xlUp).Row + 1
Cells(d, 1) = TextBox1
End Sub
A+
kjin
 
Vote positif 0 Vote négatif
Re : Incrémentation de liste grace à userform (solution parmi tant d'autres)

Code: 
Private Sub CommandButton1_Click()
    Dim lig As Integer
    lig = Worksheets("feuil1").Range("A65536").End(xlUp).Row
    If lig = 1 And Cells(1, 1).Value = "" Then lig = 0
    lig = lig + 1
    
    If TextBox1 = "" Then
        Exit Sub
    Else
        Worksheets("feuil1").Cells(lig, 1) = TextBox1
        TextBox1 = ""
        TextBox1.SetFocus
    End If
End Sub
 
Vote positif 0 Vote négatif
Re : Incrémentation de liste grace à userform

kjin à dit:
Bonsoir,
A quoi peut servir le bouton si tu ne t'en sert pas ?!
Code: 
Private Sub CommandButton1_Click()
d = [A65000].End(xlUp).Row + 1
Cells(d, 1) = TextBox1
End Sub
A+
kjin
Cliquez pour agrandir...

le problème, c'est que si la feuille est vide, on n'écrit jamais dans A1 avec ce code
 
Vote positif 0 Vote négatif
Re : Incrémentation de liste grace à userform

C'est pas faux, lol.

Merci de vos réponses, j'ai pas eu le temps de tester tout ça mais je regarde bientôt
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Question Question
Microsoft 365 Création d'un fichier entier par rapport à des entrées via UserForm
Réponses
1
Affichages
787
job75
M
  • Résolu(e)
Microsoft 365 Image stockée dans une feuille à l'initialisation du userform
2
Réponses
20
Affichages
2 K
meyscal
M
A
  • Résolu(e)
XL 2016 Décompte de valeurs précises avec bornage
Réponses
11
Affichages
2 K
albuqs
A
P
  • Question Question
Combobox qui ne se remplit pas
Réponses
5
Affichages
2 K
PierreJeanPierre
P
C
  • Question Question
Aide : Recherche de cellule spécifique depuis Userform.
2
Réponses
15
Affichages
3 K
Cyroul
C
B
  • Question Question
Userform alimente une base de données + contrôles
Réponses
3
Affichages
10 K
bartelele
B
N
  • Question Question
Gestion de projet, liste déroulantes et incrémentation
Réponses
2
Affichages
2 K
Compte Supprimé 979
C
Y
  • Question Question
Userform à modifier, besoin de vos lumières svp
Réponses
5
Affichages
2 K
yasminajm
Y
P
  • Question Question
Problème de fichier actif
Réponses
3
Affichages
919
Staple1600
M
[REF] Wiki 2 de MichelXld (Ce qui touche aux UserForm)
Réponses
0
Affichages
117 K
MichelXld
M
  • Question Question
Mise à jour d'une Color Bar
Réponses
11
Affichages
2 K
informatixo
M
[REF] Wiki 6 de MichelXld (Doublons, Tris, Filtres, Variables, Fichiers fermés, Acces
Réponses
0
Affichages
69 K
MichelXld
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…