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
michdenis
Bonjour Zarf,
Si ton formulaire est affiché dans une fenêtre non modale,
Tu copies ce code dans le module feuille où l'action doit se dérouler. Ceci copieras le contenu de la cellule vers le textbox du formulaire qui est actif au moment de sélectionner ladite cellule de ladite feuille.
'--------------------------- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim C As Object If UserForm1.Visible = True Then Set C = UserForm1.ActiveControl If TypeName(C) = "TextBox" Then C = Target End If End If
End Sub '---------------------------
Salutations!
"Zarf" a écrit dans le message de news: oM74f.17343$ Comment on fait pour mettre dans un textbox la valeur de la cellule cliqué par la souris ? Merci de m'aider
Bonjour Zarf,
Si ton formulaire est affiché dans une fenêtre non modale,
Tu copies ce code dans le module feuille où l'action doit se dérouler.
Ceci copieras le contenu de la cellule vers le textbox du formulaire qui est actif au moment de sélectionner ladite cellule de
ladite feuille.
'---------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim C As Object
If UserForm1.Visible = True Then
Set C = UserForm1.ActiveControl
If TypeName(C) = "TextBox" Then
C = Target
End If
End If
End Sub
'---------------------------
Salutations!
"Zarf" <buddy20@hotmail.com> a écrit dans le message de news: oM74f.17343$HQ3.481460@wagner.videotron.net...
Comment on fait pour mettre dans un textbox la valeur de la cellule cliqué
par la souris ?
Merci de m'aider
Si ton formulaire est affiché dans une fenêtre non modale,
Tu copies ce code dans le module feuille où l'action doit se dérouler. Ceci copieras le contenu de la cellule vers le textbox du formulaire qui est actif au moment de sélectionner ladite cellule de ladite feuille.
'--------------------------- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim C As Object If UserForm1.Visible = True Then Set C = UserForm1.ActiveControl If TypeName(C) = "TextBox" Then C = Target End If End If
End Sub '---------------------------
Salutations!
"Zarf" a écrit dans le message de news: oM74f.17343$ Comment on fait pour mettre dans un textbox la valeur de la cellule cliqué par la souris ? Merci de m'aider
Zarf
Merci ça fonctionne "michdenis" wrote in message news:%
Bonjour Zarf,
Si ton formulaire est affiché dans une fenêtre non modale,
Tu copies ce code dans le module feuille où l'action doit se dérouler. Ceci copieras le contenu de la cellule vers le textbox du formulaire qui est actif au moment de sélectionner ladite cellule de ladite feuille.
'--------------------------- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim C As Object If UserForm1.Visible = True Then Set C = UserForm1.ActiveControl If TypeName(C) = "TextBox" Then C = Target End If End If
End Sub '---------------------------
Salutations!
"Zarf" a écrit dans le message de news: oM74f.17343$ Comment on fait pour mettre dans un textbox la valeur de la cellule cliqué par la souris ? Merci de m'aider
Merci ça fonctionne
"michdenis" <michdenis@hotmail.com> wrote in message
news:%23QI0VPZ0FHA.3780@TK2MSFTNGP12.phx.gbl...
Bonjour Zarf,
Si ton formulaire est affiché dans une fenêtre non modale,
Tu copies ce code dans le module feuille où l'action doit se dérouler.
Ceci copieras le contenu de la cellule vers le textbox du formulaire qui
est actif au moment de sélectionner ladite cellule de
ladite feuille.
'---------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim C As Object
If UserForm1.Visible = True Then
Set C = UserForm1.ActiveControl
If TypeName(C) = "TextBox" Then
C = Target
End If
End If
End Sub
'---------------------------
Salutations!
"Zarf" <buddy20@hotmail.com> a écrit dans le message de news:
oM74f.17343$HQ3.481460@wagner.videotron.net...
Comment on fait pour mettre dans un textbox la valeur de la cellule cliqué
par la souris ?
Merci de m'aider
Merci ça fonctionne "michdenis" wrote in message news:%
Bonjour Zarf,
Si ton formulaire est affiché dans une fenêtre non modale,
Tu copies ce code dans le module feuille où l'action doit se dérouler. Ceci copieras le contenu de la cellule vers le textbox du formulaire qui est actif au moment de sélectionner ladite cellule de ladite feuille.
'--------------------------- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim C As Object If UserForm1.Visible = True Then Set C = UserForm1.ActiveControl If TypeName(C) = "TextBox" Then C = Target End If End If
End Sub '---------------------------
Salutations!
"Zarf" a écrit dans le message de news: oM74f.17343$ Comment on fait pour mettre dans un textbox la valeur de la cellule cliqué par la souris ? Merci de m'aider