Discussion :

[maval18]

Bonjour,

J'ai une carte de France avec des chapes lorsque je clique sur les chapes l'userform souvre et me donne les valeurs se trouvant sur ma feuille "Département". Les textbox nommé "T9,T10 et T11"me donne les valeurs avec un séparateur des milliers jusqu'ici tous va bien.
J'aimerai que les "T9,T10 et T11" sois rafraichi automatiquement lorsque je clique sur autre chape.

Mon code dans mon module:

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
18
19
20
21
22
23
24
25
choix = Format(CStr([c2]), "00")
    ActiveSheet.Shapes("FR-" & choix).Fill.ForeColor.SchemeColor = 3
 
    If ActiveSheet.CheckBox1.Value = True Then
        Pref = LTrim(Replace(ActiveSheet.Shapes("FR-" & choix).TextFrame2.TextRange.Characters.Text, vbLf, ""))
        Pref = LTrim(Mid(Pref, 3))
        Sheets(Pref).Visible = True
        Sheets(Pref).Activate
    End If
    For Each sh In Sheets
        If sh.Name <> "France" And sh.Name <> "Régions" And sh.Name <> "Départements" And sh.Name <> Pref Then
            sh.Visible = False
        End If
    Next
    With Feuil2
        Set cel = .Columns(2).Find(Feuil1.Range("c2"), , , xlWhole)
        If Not cel Is Nothing Then lig = cel.Row
    End With
    With UserForm1
        .T2 = Feuil2.Cells(lig, 4): .T3 = Feuil2.Cells(lig, 3): .T4 = Feuil2.Cells(lig, 2): .T1 = Feuil2.Cells(lig, 2)
        For i = 5 To 11
            .Controls("T" & i) = Feuil2.Cells(lig, i)
        Next i
        .Show 0
    End With

Code Userform

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub UserForm_Activate()
 
T9.Value = Format(Replace(T9.Value, ".", ","), "#,##0 ")
T10.Value = Format(Replace(T10.Value, ".", ","), "#,##0 ")
T11.Value = Format(Replace(T11.Value, ".", ","), "#,##0 ")
 
End Sub

Je vous remercie d'avance

Cordialement

[clementmarcotte]

Bonjour,

La batterie est presque vide...

Vérifie si les shapes supportent un événement click ou double_click. C'est probablement la meilleure place pour effacer et recharger les textboxes.

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Public Sub UserForm_Activate()
 
T9.Value = Format(Replace(T9.Value, ".", ","), "#,##0 ")
T10.Value = Format(Replace(T10.Value, ".", ","), "#,##0 ")
T11.Value = Format(Replace(T11.Value, ".", ","), "#,##0 ")
 
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
    With UserForm1
        .T2 = Feuil2.Cells(lig, 4): .T3 = Feuil2.Cells(lig, 3): .T4 = Feuil2.Cells(lig, 2): .T1 = Feuil2.Cells(lig, 2)
        For i = 5 To 11
            .Controls("T" & i) = Feuil2.Cells(lig, i)
        Next i
        .UserForm_Activate
        .Show 0
    End With