Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel afficher un résultat dans un autre formulaire

afficher un résultat dans un autre formulaire

3 réponses
Avatar
piticlown
Bonjour,

Voila le fonctionnement :
Userform2 contient un bouton "Afficher liste des intervenants", un textBox
"texte_a".
Lorsque je clique sur le bouton, j'arrive bien à afficher le résultat dans
texte_a.
Par contre, je souhaiterai l'afficher dans un autre TextBox situé sur un
autre forumlaire. Et la j'ai un problème avec le débug.
Il ne connait plus la propriété SelText.

Voici le code que j'ai mis sur le bouton
----------------------------------------------------------------------------
--------------------------------
Private Sub bouton_intervenant_appli_Click()

Dim appli
appli = liste_applications.Value

debutligne = False

For i = 1 To 200
ligneposition = Cells(i, 1).Value
If (ligneposition = "titres") Then
debutligne = True
Exit For
End If
Next i

If debutligne = True Then
debutcolonne = False

' on cherche le n° de la colonne à scruter
For y = 1 To 200
colonneposition = Cells(i, y).Value
If (colonneposition = appli) Then
debutcolonne = True
Exit For
End If

Next y
End If

If debutcolonne = True Then
caseacocher = False
For u = 1 To 200
If (Cells(u, y).Value = "x") Then
colonneprenom = Cells(u, 3).Value
colonnenom = Cells(u, 4).Value
texte = colonneprenom & " " & colonnenom & ", " 'code en
attendant de gérer par feuille d'appli
intervenants_appli.affiche_intervenants.SelText =
colonneprenom & " " & colonnenom & ", " 'formulaire et zone texte à
atteindre
UserForm2.zonetexte_a.SelText = colonneprenom & " " &
colonnenom & ", " 'résultat qui permet d'afficher dans le formulaire et la
zone texte du Bouton

caseacocher = True
'Exit For
End If
If casecocher = True Then
intervenants_appli.Show
End If

Next u
End If

End Sub

----------------------------------------------------------------------------
----------------------------------------------------------------------------
--
Voila mon message d'erreur :

Erreur d'exécution '-2147467259 (80004005)':
Impossible de définir la propriété SelText.Erreur non répertoriée.


Je ne comprend pas pourquoi il ne veut pas exécuter ma ligne.

Merci bcq pour votre

Bonne et heureuse année 2006.

@+
Isabelle
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
michdenis
Bonjour Piticlown,

Essaie ceci :

UserForm2.TextBox2.SetFocus
UserForm2.TextBox2.SelText = "toto"
UserForm2.TextBox2.SelStart = 0
UserForm2.TextBox2.SelLength = Len(Me.TextBox2)


Salutations!


"piticlown" a écrit dans le message de news:
Bonjour,

Voila le fonctionnement :
Userform2 contient un bouton "Afficher liste des intervenants", un textBox
"texte_a".
Lorsque je clique sur le bouton, j'arrive bien à afficher le résultat dans
texte_a.
Par contre, je souhaiterai l'afficher dans un autre TextBox situé sur un
autre forumlaire. Et la j'ai un problème avec le débug.
Il ne connait plus la propriété SelText.

Voici le code que j'ai mis sur le bouton
----------------------------------------------------------------------------
--------------------------------
Private Sub bouton_intervenant_appli_Click()

Dim appli
appli = liste_applications.Value

debutligne = False

For i = 1 To 200
ligneposition = Cells(i, 1).Value
If (ligneposition = "titres") Then
debutligne = True
Exit For
End If
Next i

If debutligne = True Then
debutcolonne = False

' on cherche le n° de la colonne à scruter
For y = 1 To 200
colonneposition = Cells(i, y).Value
If (colonneposition = appli) Then
debutcolonne = True
Exit For
End If

Next y
End If

If debutcolonne = True Then
caseacocher = False
For u = 1 To 200
If (Cells(u, y).Value = "x") Then
colonneprenom = Cells(u, 3).Value
colonnenom = Cells(u, 4).Value
texte = colonneprenom & " " & colonnenom & ", " 'code en
attendant de gérer par feuille d'appli
intervenants_appli.affiche_intervenants.SelText colonneprenom & " " & colonnenom & ", " 'formulaire et zone texte à
atteindre
UserForm2.zonetexte_a.SelText = colonneprenom & " " &
colonnenom & ", " 'résultat qui permet d'afficher dans le formulaire et la
zone texte du Bouton

caseacocher = True
'Exit For
End If
If casecocher = True Then
intervenants_appli.Show
End If

Next u
End If

End Sub

----------------------------------------------------------------------------
----------------------------------------------------------------------------
--
Voila mon message d'erreur :

Erreur d'exécution '-2147467259 (80004005)':
Impossible de définir la propriété SelText.Erreur non répertoriée.


Je ne comprend pas pourquoi il ne veut pas exécuter ma ligne.

Merci bcq pour votre

Bonne et heureuse année 2006.

@+
Isabelle
Avatar
piticlown
Merci.

Ce que tu m'as donné fonctionne, par contre on est toujours dans mon
formulaire courant.
Et mon soucis ce situe plus dans l'accès à un TextBox d'un autre formulaie.
(intervenants_appli.affiche_intervenants)

piticlown

"michdenis" a écrit dans le message de
news:
Bonjour Piticlown,

Essaie ceci :

UserForm2.TextBox2.SetFocus
UserForm2.TextBox2.SelText = "toto"
UserForm2.TextBox2.SelStart = 0
UserForm2.TextBox2.SelLength = Len(Me.TextBox2)


Salutations!


"piticlown" a écrit dans le message de news:


Bonjour,

Voila le fonctionnement :
Userform2 contient un bouton "Afficher liste des intervenants", un textBox
"texte_a".
Lorsque je clique sur le bouton, j'arrive bien à afficher le résultat dans
texte_a.
Par contre, je souhaiterai l'afficher dans un autre TextBox situé sur un
autre forumlaire. Et la j'ai un problème avec le débug.
Il ne connait plus la propriété SelText.

Voici le code que j'ai mis sur le bouton
--------------------------------------------------------------------------
--

--------------------------------
Private Sub bouton_intervenant_appli_Click()

Dim appli
appli = liste_applications.Value

debutligne = False

For i = 1 To 200
ligneposition = Cells(i, 1).Value
If (ligneposition = "titres") Then
debutligne = True
Exit For
End If
Next i

If debutligne = True Then
debutcolonne = False

' on cherche le n° de la colonne à scruter
For y = 1 To 200
colonneposition = Cells(i, y).Value
If (colonneposition = appli) Then
debutcolonne = True
Exit For
End If

Next y
End If

If debutcolonne = True Then
caseacocher = False
For u = 1 To 200
If (Cells(u, y).Value = "x") Then
colonneprenom = Cells(u, 3).Value
colonnenom = Cells(u, 4).Value
texte = colonneprenom & " " & colonnenom & ", " 'code en
attendant de gérer par feuille d'appli
intervenants_appli.affiche_intervenants.SelText > colonneprenom & " " & colonnenom & ", " 'formulaire et zone texte à
atteindre
UserForm2.zonetexte_a.SelText = colonneprenom & " " &
colonnenom & ", " 'résultat qui permet d'afficher dans le formulaire et la
zone texte du Bouton

caseacocher = True
'Exit For
End If
If casecocher = True Then
intervenants_appli.Show
End If

Next u
End If

End Sub

--------------------------------------------------------------------------
--

--------------------------------------------------------------------------
--

--
Voila mon message d'erreur :

Erreur d'exécution '-2147467259 (80004005)':
Impossible de définir la propriété SelText.Erreur non répertoriée.


Je ne comprend pas pourquoi il ne veut pas exécuter ma ligne.

Merci bcq pour votre

Bonne et heureuse année 2006.

@+
Isabelle





Avatar
michdenis
Bonjour Piticlown,

Au lieu d'utiliser la procédure exactement comme je te l'ai donné,
tu peux te contenter de copier la valeur que dois avoir ton textbox
et utiliser l'événement "Activate" de ton second formulaire pour
mettre en surbrillance le contenu du textbox lorsque ce formulaire
devient actif. Mais pour avoir cet effet, le contrôle "textbox" doit avoir le
focus ...ça c'est obligatoire !


Salutations!


"piticlown" a écrit dans le message de news:
Merci.

Ce que tu m'as donné fonctionne, par contre on est toujours dans mon
formulaire courant.
Et mon soucis ce situe plus dans l'accès à un TextBox d'un autre formulaie.
(intervenants_appli.affiche_intervenants)

piticlown

"michdenis" a écrit dans le message de
news:
Bonjour Piticlown,

Essaie ceci :

UserForm2.TextBox2.SetFocus
UserForm2.TextBox2.SelText = "toto"
UserForm2.TextBox2.SelStart = 0
UserForm2.TextBox2.SelLength = Len(Me.TextBox2)


Salutations!


"piticlown" a écrit dans le message de news:


Bonjour,

Voila le fonctionnement :
Userform2 contient un bouton "Afficher liste des intervenants", un textBox
"texte_a".
Lorsque je clique sur le bouton, j'arrive bien à afficher le résultat dans
texte_a.
Par contre, je souhaiterai l'afficher dans un autre TextBox situé sur un
autre forumlaire. Et la j'ai un problème avec le débug.
Il ne connait plus la propriété SelText.

Voici le code que j'ai mis sur le bouton
--------------------------------------------------------------------------
--

--------------------------------
Private Sub bouton_intervenant_appli_Click()

Dim appli
appli = liste_applications.Value

debutligne = False

For i = 1 To 200
ligneposition = Cells(i, 1).Value
If (ligneposition = "titres") Then
debutligne = True
Exit For
End If
Next i

If debutligne = True Then
debutcolonne = False

' on cherche le n° de la colonne à scruter
For y = 1 To 200
colonneposition = Cells(i, y).Value
If (colonneposition = appli) Then
debutcolonne = True
Exit For
End If

Next y
End If

If debutcolonne = True Then
caseacocher = False
For u = 1 To 200
If (Cells(u, y).Value = "x") Then
colonneprenom = Cells(u, 3).Value
colonnenom = Cells(u, 4).Value
texte = colonneprenom & " " & colonnenom & ", " 'code en
attendant de gérer par feuille d'appli
intervenants_appli.affiche_intervenants.SelText > colonneprenom & " " & colonnenom & ", " 'formulaire et zone texte à
atteindre
UserForm2.zonetexte_a.SelText = colonneprenom & " " &
colonnenom & ", " 'résultat qui permet d'afficher dans le formulaire et la
zone texte du Bouton

caseacocher = True
'Exit For
End If
If casecocher = True Then
intervenants_appli.Show
End If

Next u
End If

End Sub

--------------------------------------------------------------------------
--

--------------------------------------------------------------------------
--

--
Voila mon message d'erreur :

Erreur d'exécution '-2147467259 (80004005)':
Impossible de définir la propriété SelText.Erreur non répertoriée.


Je ne comprend pas pourquoi il ne veut pas exécuter ma ligne.

Merci bcq pour votre

Bonne et heureuse année 2006.

@+
Isabelle