Remplissage colonnes depuis userform

[Racouet]

Bonjour à tous,

J'ai un fichier Excel, et l'utilisateur en cliquant sur le bouton insérer ouvre un Userform qui contient deux colonnes. La première est relative à des distances et la seconde à des profondeurs. Par défaut j'ai limité le nombre de lignes à 17. Les txtbox sont nommées de L1 à L17pour les distances et de P1 à P17 pour les profondeurs. une fois l'Userform rempli, il doit copier et coller les valeurs de txtbox dans deux colonnes en à partir de la dernière cellule non vide de la colonne B, idem pour la colonne C qui contient les profondeur. Trouver la dernière cellule non vide, j'y arrive avec en utilisant ligb = Range("B65536").End(xlUp).Row + 1 idem pour la colonne C en remplaçant le B65536 par C65536. Mon problème est que j'ai affecté Range("B" & ligb).Value = L1
Range("C" & ligc).Value = P1
Range("B" & ligb).Value = L2
Range("C" & ligc).Value = P2
jusqu'au textRegarde la pièce jointe exemple.xlsmbox L17 et P17. Résultat, les données dans la feuilles excel sont toutes collées dans la même ligne alors que je voudrai qu'elle se mettent les unes derrière les autres.

Un petit coup de main à un demeuré d'Excel serait le bien venu. Le fichier est en PJ.

Merci à tous d'avance

 

[Pierrot93]

Re : Remplissage colonnes depuis userform

Bonjour,

regarde peut être ceci, non testé...

Range("C" & ligc).Value = Me.Controls("P" & (ligc + 1) - ligc)

bon après midi
@+

 

[Racouet]

Re : Remplissage colonnes depuis userform

Merci Pierrot93, je test. En effet, je me demandais s'il était possible d'utiliser le nom du txtbox en incrémentant automatiquement son numéro ou le numéro de row. Si cela fonctionne, je les renomme txtboxt.

Je test et reviens.

 

[Racouet]

Re : Remplissage colonnes depuis userform

Hélas, cela ne fonctionne pas. même effet, la dernière valeur écrase les valeurs précédantes qui ont été collées dans la dernière ligne vide.

Merci quand même

 

[Pierrot93]

Re : Remplissage colonnes depuis userform

Re,

oui normal... il faut soit re-déterminer "ligb" et "lgc" avant chaque instruction soit les incrémentées dans le code....

 

[Pierrot93]

Re : Remplissage colonnes depuis userform

Re,

bon apriori devrait fonctionner aussi ainsi :

Dim i As Byte
For i = 1 To 17
    Range("B65536").End(xlUp).Offset(1, 0).Value = Me.Controls("L" & i)
    Range("C65536").End(xlUp).Offset(1, 0).Value = Me.Controls("P" & i)
Next i

 

[Racouet]

Re : Remplissage colonnes depuis userform

J'ai modifié le code et cela fonctionne. Puisque j'avais défini que chaque txtbox Range("B" & ligb + 1).Value = L1ou txtbox.

Merci Pierrot 93. La solution est venue de toi.

 

[Racouet]

Re : Remplissage colonnes depuis userform

J'ai modifié le code et cela fonctionne. Puisque j'avais défini que chaque txtbox Range("B" & ligb + 1).Value = L1ou txtbox. et pour le txtbox suivant Range("B" & ligb + 2).Value = L2

Merci Pierrot 93. La solution est venue de toi.

 

[Pierrot93]

Re : Remplissage colonnes depuis userform

Re,

as tu vu le post #6, plus court et plus efficace me semble t il....