XL 2010 Copier textbox vers cellule

[netparty]

Bonjour tous le monde

Je bloque sur une macro, je vous explique :

J'ai plusieurs textbox dans mon userform, et je voudrai grâce a un bouton copier certain textbox vers la ligne active de ma feuille.

textbox3 vers la 3éme colonne de la ligne actice de la feuille 2
textbox5 vers la 7éme colonne de la ligne actice de la feuille 2
textbox6 vers la 9éme colonne de la ligne actice de la feuille 2

Merci pour votre aide et bon dimanche

 

[Staple1600]

Bonjour le fil,

Excel ne connait pas les lignes actices

Sinon, il nous faut créer nous même le fichier exemple (alors que l'on suppute qu'il existe déjà sur ton disque dur... )
Un dimanche, en plus !
Un jour censé être de repos

PS: On aura remarqué que ce message est écrit avec un stylo à tendance amicalement humoristique.
Inutile donc de bondir à sa lecture

 

[Staple1600]

Re

Heureusement, comme mon café est encore bouillant, j'ai le temps d'aller jouer dans VBE
Donc un exemple possible de VBA

Private Sub CommandButton1_Click()
Dim LigneActive$
LigneActive = ActiveCell.Row
Cells(LigneActive, 3).Value = Me.TextBox3.Value
Cells(LigneActive, 7).Value = Me.TextBox5.Value
Cells(LigneActive, 9).Value = Me.TextBox6.Value
End Sub

 

[netparty]

Merci Staple1600 ,

ça fonctionne super bien, mais est-il possible de le limiter à une seule feuille ?

et une autre question si ton café est toujours chaud bien sur,
est-il possible de copier un textbox d'un userform1 vers un textbox2 de l'userform2

 

[Staple1600]

Re

Pour le fun (et sous réserve du contexte réel) ce qui suit pourrait aussi fonctionner

Private Sub CommandButton1_Click()
Dim L$: L = ActiveCell.Row
Cells(L, 3).Resize(, 7) = Array(TextBox3, , , , TextBox5, , TextBox6)
End Sub

PS: Je te laisse chercher où le bât pourra blesser avec ce second exemple.

 

[Staple1600]

Re

Je suis parti de ce que tu décris sur le message#1
Si tu parles de ligne active, j'ai supposé que quand tu affiches ton userform tu es déjà sur la feuille 2, non?

(Tu as testé la seconde macro? (cf message précédent)
Tu as trouvé où cela pourrait coincer?

 

[netparty]

J'ai pas encore tester la 2éme macro.

Mais en fait ma seconde question n'ai pas en rapport avec le 1er code.

merci

 

[Staple1600]

Re

J'attends donc que tu ais testé ma seconde macro
(ne serait-ce que par courtoisie...)
pour répondre à ta seconde question

 

[netparty]

Excuse moi Staple1600 j'ai été trop vite dans ma question

Ton 2émé code marche aussi très bien et il me semble plus clair que le premier.