afficher un résultat dans un autre formulaire
Le
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
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
Poser une question
Essaie ceci :
UserForm2.TextBox2.SetFocus
UserForm2.TextBox2.SelText = "toto"
UserForm2.TextBox2.SelStart = 0
UserForm2.TextBox2.SelLength = Len(Me.TextBox2)
Salutations!
"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
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" news:
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" 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" news: