XL 2010 Copier textbox vers cellule

Staple1600

XLDnaute Barbatruc

• 27 Octobre 2019

• #2

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 27 Octobre 2019

• #3

Re

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

VB:

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

 

Dernière édition: 27 Octobre 2019

Vote positif 0 Vote négatif

N

netparty

XLDnaute Occasionnel

• 27 Octobre 2019

• #4

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 27 Octobre 2019

• #5

Re

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

VB:

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.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 27 Octobre 2019

• #6

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?

 

Vote positif 0 Vote négatif

N

netparty

XLDnaute Occasionnel

• 27 Octobre 2019

• #7

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 27 Octobre 2019

• #8

Re

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

 

Vote positif 0 Vote négatif

N

netparty

XLDnaute Occasionnel

• 27 Octobre 2019

• #9

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.

 

Vote positif 0 Vote négatif