multipage

Question

Bonjour, 

j'ai inséré un Multi page pour mon logiciel.(userform) vba excel...constitué de trois element page 1 nommé analyse.....page 2 nommée consultation et enfin page 3 nommée radiologie....et je veux quand je click sur page1  ...analyse soit ecris sur une cellule a1 par exemple et page 2 .  consultation sur cellule a1..cts...  merci cordialemen abdellah

Configuration: Windows / Chrome 59.0.3071.115

Patrice33740 · Answer

Bonjour,

Essaies : 
Option Explicit
Private Sub UserForm_Initialize()
  MultiPage1.Value = 0  'pour provoquer l'évènement change
End Sub
Private Sub MultiPage1_Change()
  With Worksheets("Feuil1").Range("A1")
    Select Case MultiPage1.Value
      Case 0
        .Value = "Analyse"
      Case 1
        .Value = "Consultation"
      Case 2
        .Value = "Radiologie"
    End Select
  End With
End Sub

Multipage

1 réponse

Votre réponse

Discussions similaires

Newsletters