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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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