TextBox dans contrôle multipage

Bonjour le forum
je travaille avec un userform pour récapituler des données d'un tableau et dans ce USF, j'ai inséré un contrôle multipage.
C'est la première fois que j'utilise cet objet et je n'ai pas trouvé ce que je cherchais dans les différentes aides, sur ce forum, dans l'aide VBA ou même des livres.

Dans ce USF, j'affiche des infos non modifiables à l'aide de Label et des infos modifiables avec des TexBox
Dans mon multipage , j'aimerais que la texbox3 de la page1 du MP ai la valeur de la cellule Activecell.Offset(0,17).
Bien sur si je modifie la textbox3, je veux que la cellule Activecell.Offset(0,17)soit modifiée.
idem si je sélectionne la page2 du MP
La texbox4 de la page 2 ai la valeur Activecell.Offset(0,18)
et si je modifie la textbox4 de la page2 du MP je change la valeur de la cellule correspondante : Activecell.Offset(0,18)

J'ai 6 pages dans le multipage avec un total de 8 TextBox
voici l'un des codes que j'ai tester :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Option Explicit   Private Sub UserForm_Initialize() 'affichage info opérateur Label1.Caption = ActiveCell.Value Label2.Caption = ActiveCell.Offset(0, 1).Value Label17.Caption = ActiveCell.Offset(0, 11).Value TextBox1.Text = ActiveCell.Offset(0, 13).Value TextBox2.Text = ActiveCell.Offset(0, 14).Value UserForm1.MultiPage1.Value = 0 'affichage page 1du multipage par défaut MultiPage1.page1.TextBox3.Text = ActiveCell.Offset(0, 17).Value 'valeur de la texbox3 page1 du MP = affichage par défaut MultiPage1.page2.TextBox4.Text = ActiveCell.Offset(0, 18).Value 'valeur de la texbox4 page2 du MP = affichage si page2 sélectionnée End Sub

---

et pour modifier les cellules :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub TextBox1_Change() 'modiifer la valeur formation transpalette électrique ActiveCell.Offset(0, 13).Value = TextBox1.Text End Sub Private Sub TextBox2_Change() 'modifer la compétence Caces ESI SST ActiveCell.Offset(0, 14).Value = TextBox2.Text End Sub Private Sub TextBox3_Change() 'modifier la cellule en fonction de la textbox3 page1 du MP ActiveCell.Offset(0, 17).Value = MultiPage1.page1.TextBox3.Text End Sub   Private Sub TextBox4_Change() 'modifier la cellule en fonction de la textbox4 page2 du MP ActiveCell.Offset(0, 18).Value = MultiPage1.page2.TextBox4.Text End Sub

---

je bloque toujours sur l'utilisation des texbox dans le MP

merci de votre aide
cdlt
Dom

Multipage ou pas, utilise directement le nom de ta TextBox

Code:

---

1 2 3 4

Private Sub TextBox3_Change()   Range("A1").Value= Me.TextBox3.Value End Sub

---

Bopnjour mercatog,

Super ça fonctionne, et en plus je n'utilisai pas la bonne propriété de la texBox !
j'utilisai texbox.text au lieu de TexBox.value

Si je comprends bien, j'utilise seulement le n° du controle dans le USF sans m'occuper de la page du multipage.

Merci de ta réponse rapide et efficace

cdlt
Dom

Citation:

---

j'utilisai texbox.text au lieu de TexBox.value

---

TexBox est par défaut renvoie un texte
TexBox.value donne la valeur texte contenue dans la textbox
TexBox.Text donne le texte contenu dans la textbox

Ça revient en fin de compte au même résultat.