Discussion :

[Liloo14]

Bonjour à tous,
J'ai besoin d'un petit coup de main.
J'ai une userform composée de textBox disposées ainsi sur 20 lignes:

TextBox1 TextBox21 TextBox41
TextBox2 TextBox22 TextBox42
TextBox3 TextBox22 TextBox43
............. .............. ..............

TextBox20 TextBox40 TextBox60

J'aimerais trouver la première ligne vide de la feuil2 et y insérer les valeurs saisies dans les TextBox en ligne soit :

dans la 1ere ligne vide la T1 dans la colonne A, la T21 dans la colonne B, la T41 dans la colonne C
Dans la 2eme ligne vide la T2 dans la colonne A, la T22 dans la colonne B, la T42 dans la colonne C
Etc jusqu'à la ligne 20.

J'ai essayé plusieurs choses qui fonctionnent plus ou moins bien mais sans le résultat total escompté.

Un cerveau supérieur aurait-il une idée pour moi ? -))

Merci par avance à ceux qui se pencheront sur mon soucis.
Laurent

[NEC14]

Bonjour,
Admettons que vous cherchiez dans la colonne A la première ligne vide ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Range("A65536").End(XlUp).Offset(1,0)).Select

[goldstar]

Bonjour,

ci-joint un fichier.

Cordialement,

[NEC14]

Je n'arrive pas à trouver la finalité du classeur.

Vous voulez faire quoi exactement ? Parce que j'ai testé votre fichier, changé les chiffres indiqués et cela fonctionne bien.

Je ne comprends pas le but recherché

Désolé, je suis allé trop vite. C'est un fichier que l'on vous a transmis.

[Liloo14]

Bonsoir à tous les trois et merci de vous être penchés sur mon sujet.
Pour la solution de Nec14, je l'avais déjà essayée mais soi ça ne fonctionne pas, soi ça recopie les valeurs des textbox des fois sur la ligne 43, des fois sur la 22, c'est un peu au hasard.
Pour Goldstar, ton fichier est bien complet et fonctionne mais lorsque je l'adapte à mon programme où j'ai une entête sur les deux première ligne, les valeurs des textbox sont recopiées sur la ligne 43 et cela ôte les fusions entre la ligne 1 et la ligne 2.

Je me permet de vous joindre mon fichier si cela peut vous servir et du coup me rendre service.

Merci par avance

Laurent

[parmi]

Bonjour,

Si les données de la colonne A sont celles qui déterminent l'endroit à écrire, ceci te donne la dernière ligne écrite en A

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

nbLignes = Sheets("Nom de la feuille").Cells(Rows.Count, "A").End(xlup).row

La première ligne vide étant la suivante, il suffit d'y ajouter +1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

nbLignes = Sheets("Nom de la feuille").Cells(Rows.Count, "A").End(xlup).row + 1

L'utilisation de Rows.Count plutôt que 65536 permet de retrouver la dernière ligne quelle que soit la version d'Excel