Incrémentation avec userform têtu...

  • Initiateur de la discussion Initiateur de la discussion gulibert
  • 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 !

G

gulibert

Guest
Bonjour à tous c'est encore moi...
Aujourd'hui, je ne comprends pas pourquoi mon userform ne veut pas mettre mes résultats sur la dernière ligne pourtant il me semble que la syntaxe est correct (j'ai comparé avec d'autres qui marchent) Mais je suis tout de même un peu surpris... ce peut-il que cela viennent d'une autre indication plus haut?

Private Sub CommandButton1_Click()
Dim derlig As Byte
derlig = Sheets("usf").Range("A65536").End(xlUp).Row + 1
Cells(derlig, 2).Value = Me.TextBox1.Value
Cells(derlig, 11).Value = Me.ComboBox2.Value
Cells(derlig, 10).Value = Me.TextBox2.Value
Cells(derlig, 3).Value = UserForm1.ListBox1.Value
Cells(derlig, 9).Value = UserForm1.TxtFab.Value
Unload Me
End Sub

Merci d'avance pour vos conseils qui je suis sur seront m'éclairer.
Bon début de journée
 
Re : Incrémentation avec userform têtu...

C'est exactement ca merci infiniment pascal tu me sauves la vie. Je galérais depuis un bon bou de temps dessus et je ne savais pas qu'il fallait que la colonne se remplissent pour cette fonction. Merci beaucoup j'apprends plein de truc c'est génial, trés bonne journée et bon we férié😛
 
Re : Incrémentation avec userform têtu...

Bonjour Gulibert, rere pascal

Attention sur ce code, définir derligne en byte limite les lignes de données possibles aux 255 premières lignes de la feuille. A moins d'être sûr de ne jamais avoir plus de 255 lignes (sinon plantage), il vaudrait mieux définir un type integer qui va jusqu'à 32767 ou long pour pouvoir traiter les 65536 lignes possibles.

Cordialement, A+
 
- 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

Réponses
3
Affichages
923
S
  • Résolu(e)
Réponses
9
Affichages
2 K
sgangbadjo
S
S
  • Question Question
Réponses
8
Affichages
1 K
sgangbadjo
S
M
Réponses
3
Affichages
2 K
MONADESIGN82
M
R
Réponses
5
Affichages
3 K
ricorico
R
Réponses
2
Affichages
869
P
Réponses
16
Affichages
2 K
patrick60880
P
E
Réponses
8
Affichages
1 K
Emli15
E
N
Réponses
0
Affichages
654
nada bahri
N
J
Réponses
16
Affichages
3 K
Réponses
8
Affichages
2 K
Retour