Discussion :

[Mrfreeze117]

Bonjour à tous,

j'ai un petit soucis pour récupérer le contenue de mes zones de texte.

Code :

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

1
2
3
4
5
Private Sub UserForm_Initialize()
     TextBoxAdre.Value = ActiveSheet.Shapes.Range(Array("ZoneTexte 2")).TextFrame2.TextRange.Characters.Text 'adresse
     TextBoxSit.Value = ActiveSheet.Shapes.Range(Array("ZoneTexte 3")).TextFrame2.TextRange.Characters.Text 'site
     TextBoxRP.Value = ActiveSheet.Shapes.Range(Array("ZoneTexte 7")).TextFrame2.TextRange.Characters.Text 'réalisé par  
End Sub

Sous Excel 2010 ça fonctionne très bien mais sur 2003 ça me donne Erreur d'exécution 438 "Propriété ou méthode non gérée par cet objet."

Si quelqu'un peu m'aider à le rendre compatible avec 2003 ce serai super.

Merci d'avance

(Ps: je ne peux pas coder tout le temps en 2003, je ne l'ai sous la main que rarement)

[Marc-L]

Bonjour,

TextFrame2 n'existant pas sous 2003, conception à revoir donc … Peut-être avec TextFrame …



_____________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo

[Mrfreeze117]

J'ai trouvé une solution que je n'aime pas mais qui marche:

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
Private Sub UserForm_Initialize()
 
    ActiveSheet.Shapes.Range(Array("ZoneTexte 2")).Select
    TextBoxAdre.Value = Selection.Characters.Text
    ActiveSheet.Shapes.Range(Array("ZoneTexte 3")).Select
    TextBoxSit.Value = Selection.Characters.Text
    ActiveSheet.Shapes.Range(Array("ZoneTexte 7")).Select
    TextBoxRP.Value = Selection.Characters.Text
    ActiveSheet.Shapes.Range(Array("ZoneTexte 5")).Select
    If Selection.Characters.Text <> "" Then 'date de réalisation
        TextBoxDDRJJ.Value = Day(Selection.Characters.Text) 'récupère le jour
        TextBoxDDRMM.Value = Month(Selection.Characters.Text) 'récupère le mois
        TextBoxDDRAA.Value = Year(Selection.Characters.Text) 'récupère l'année
    End If
 
    Range("A1").Select
 
End Sub

Je n'arrive pas à ne pas sélectionner les zone de texte.

[Marc-L]

Pour un seul élément de la collection Shapes pas besoin d'Array …