Bonjour,

J'ai renseigné les infobulles, dans les divers controles d'un userform.

Je voudrai pouvoir corriger l'orthographe de ces textes.

Pour extraire les textes, pas de problème, mon soucis c'est pour renseigner les controltiptext une fois les textes corrigés :

Ici le code qui extrait les textes, reste plus qu'a mettre à jour les différents contrôles de l'userform (UEXP) :

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
26
27
28
Private Sub infobulles()
Dim Ctrl As Control
Dim Nonglet As String
Dim i As Integer
Dim Wk As Worksheet
 
Nonglet = "Propriétés de l'USF UEXP"
On Error Resume Next
Worksheets(Nonglet).Delete
Set Wk = Worksheets.Add
' Set Wk = Worksheets(Nonglet)
 
With Wk
    .Name = Nonglet
End With
 
'Boucle sur la collection de contrôles pour correction orthographique ControlTipText
For Each Ctrl In Uexp.Controls
    i = i + 1
    With Ctrl
    Cells(i, 1) = .Name
    Cells(i, 2) = .ControlTipText
   '  .ControlTipText = Cells(i, 2) 'Non valorisé définitivement
    End With
Next Ctrl
 
' ThisWorkbook.VBProject.VBComponents("Uexp") => ok pour les propriétés mais pour les controles de l'USF ?
End Sub