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
JB
Bonjour,
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$2" Then Target.Comment.Text _ Text:=Range("maliste")(Application.Match(Target, [maliste], 0)).Comment.Text End If End Sub
Je voudrais créer des commentaires sur les items d'une liste déroulan te (1 itemommentaire). Est-ce possible?
Greg
Bonjour,
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
Target.Comment.Text _
Text:=Range("maliste")(Application.Match(Target, [maliste],
0)).Comment.Text
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$2" Then Target.Comment.Text _ Text:=Range("maliste")(Application.Match(Target, [maliste], 0)).Comment.Text End If End Sub
Je voudrais créer des commentaires sur les items d'une liste déroulan te (1 itemommentaire). Est-ce possible?
Greg
Greg
Bonjour et merci! Mes questions ne sont pas sans lien avec ma question d'hier ("ajout libre dans une liste déroulante"):
Que faut-il ajouter au code pour faire référence à une liste se trouvant dans une autre feuille? Le code est-il bien à placer dans la feuille?
Merci
Greg
"JB" a écrit dans le message de news:
Bonjour,
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$2" Then Target.Comment.Text _ Text:=Range("maliste")(Application.Match(Target, [maliste], 0)).Comment.Text End If End Sub
Je voudrais créer des commentaires sur les items d'une liste déroulante (1 itemommentaire). Est-ce possible?
Greg
Bonjour et merci! Mes questions ne sont pas sans lien avec ma question
d'hier ("ajout libre dans une liste déroulante"):
Que faut-il ajouter au code pour faire référence à une liste se trouvant
dans une autre feuille? Le code est-il bien à placer dans la feuille?
Merci
Greg
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
6c296a53-927d-4cdb-b161-4b5714f29455@d32g2000yqe.googlegroups.com...
Bonjour,
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
Target.Comment.Text _
Text:=Range("maliste")(Application.Match(Target, [maliste],
0)).Comment.Text
End If
End Sub
Bonjour et merci! Mes questions ne sont pas sans lien avec ma question d'hier ("ajout libre dans une liste déroulante"):
Que faut-il ajouter au code pour faire référence à une liste se trouvant dans une autre feuille? Le code est-il bien à placer dans la feuille?
Merci
Greg
"JB" a écrit dans le message de news:
Bonjour,
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$2" Then Target.Comment.Text _ Text:=Range("maliste")(Application.Match(Target, [maliste], 0)).Comment.Text End If End Sub
Je voudrais créer des commentaires sur les items d'une liste déroulante (1 itemommentaire). Est-ce possible?
Greg
JPMonnier
Bonjour, pour faire réf à une liste dans une autre feuille, Nommer ta liste ex liste With Selection.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="=liste" End with "Greg" a écrit dans le message de news:492546bc$0$20557$
Bonjour et merci! Mes questions ne sont pas sans lien avec ma question d'hier ("ajout libre dans une liste déroulante"):
Que faut-il ajouter au code pour faire référence à une liste se trouvant dans une autre feuille? Le code est-il bien à placer dans la feuille?
Merci
Greg
"JB" a écrit dans le message de news:
Bonjour,
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$2" Then Target.Comment.Text _ Text:=Range("maliste")(Application.Match(Target, [maliste], 0)).Comment.Text End If End Sub
Je voudrais créer des commentaires sur les items d'une liste déroulante (1 itemommentaire). Est-ce possible?
Greg
Bonjour,
pour faire réf à une liste dans une autre feuille,
Nommer ta liste
ex liste
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=
_
xlBetween, Formula1:="=liste"
End with
"Greg" <delboe@free.fr> a écrit dans le message de
news:492546bc$0$20557$426a74cc@news.free.fr...
Bonjour et merci! Mes questions ne sont pas sans lien avec ma question
d'hier ("ajout libre dans une liste déroulante"):
Que faut-il ajouter au code pour faire référence à une liste se trouvant
dans une autre feuille? Le code est-il bien à placer dans la feuille?
Merci
Greg
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
6c296a53-927d-4cdb-b161-4b5714f29455@d32g2000yqe.googlegroups.com...
Bonjour,
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
Target.Comment.Text _
Text:=Range("maliste")(Application.Match(Target, [maliste],
0)).Comment.Text
End If
End Sub
Bonjour, pour faire réf à une liste dans une autre feuille, Nommer ta liste ex liste With Selection.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="=liste" End with "Greg" a écrit dans le message de news:492546bc$0$20557$
Bonjour et merci! Mes questions ne sont pas sans lien avec ma question d'hier ("ajout libre dans une liste déroulante"):
Que faut-il ajouter au code pour faire référence à une liste se trouvant dans une autre feuille? Le code est-il bien à placer dans la feuille?
Merci
Greg
"JB" a écrit dans le message de news:
Bonjour,
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$2" Then Target.Comment.Text _ Text:=Range("maliste")(Application.Match(Target, [maliste], 0)).Comment.Text End If End Sub
Je voudrais créer des commentaires sur les items d'une liste déroulante (1 itemommentaire). Est-ce possible?
Greg
Greg
Bon, je suis désolé mais je ne sais pas trop comment m'y prendre malgré votre bonne volonté. Ci joint, le classeur tel qu'il est (je pense) présenté chez JB... ça ne marche pas, sauf erreur.
http://cjoint.com/?lunYqmxSvP
Pour ma part, je voudrais la même chose, et qui marche, mais avec la liste dans une feuille différente de la liste déroulante... ex:
http://cjoint.com/?lun00vN4XU
Pourriez-vous m'aider?
Merci
Greg
"JPMonnier" a écrit dans le message de news:
Bonjour, pour faire réf à une liste dans une autre feuille, Nommer ta liste ex liste With Selection.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="=liste" End with "Greg" a écrit dans le message de news:492546bc$0$20557$
Bonjour et merci! Mes questions ne sont pas sans lien avec ma question d'hier ("ajout libre dans une liste déroulante"):
Que faut-il ajouter au code pour faire référence à une liste se trouvant dans une autre feuille? Le code est-il bien à placer dans la feuille?
Merci
Greg
"JB" a écrit dans le message de news:
Bonjour,
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$2" Then Target.Comment.Text _ Text:=Range("maliste")(Application.Match(Target, [maliste], 0)).Comment.Text End If End Sub
Je voudrais créer des commentaires sur les items d'une liste déroulante (1 itemommentaire). Est-ce possible?
Greg
Bon, je suis désolé mais je ne sais pas trop comment m'y prendre malgré
votre bonne volonté. Ci joint, le classeur tel qu'il est (je pense) présenté
chez JB... ça ne marche pas, sauf erreur.
http://cjoint.com/?lunYqmxSvP
Pour ma part, je voudrais la même chose, et qui marche, mais avec la liste
dans une feuille différente de la liste déroulante...
ex:
http://cjoint.com/?lun00vN4XU
Pourriez-vous m'aider?
Merci
Greg
"JPMonnier" <jpmonnier-no-spam@neuf.fr> a écrit dans le message de news:
eDI5zRwSJHA.5344@TK2MSFTNGP06.phx.gbl...
Bonjour,
pour faire réf à une liste dans une autre feuille,
Nommer ta liste
ex liste
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=
_
xlBetween, Formula1:="=liste"
End with
"Greg" <delboe@free.fr> a écrit dans le message de
news:492546bc$0$20557$426a74cc@news.free.fr...
Bonjour et merci! Mes questions ne sont pas sans lien avec ma question
d'hier ("ajout libre dans une liste déroulante"):
Que faut-il ajouter au code pour faire référence à une liste se trouvant
dans une autre feuille? Le code est-il bien à placer dans la feuille?
Merci
Greg
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
6c296a53-927d-4cdb-b161-4b5714f29455@d32g2000yqe.googlegroups.com...
Bonjour,
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
Target.Comment.Text _
Text:=Range("maliste")(Application.Match(Target, [maliste],
0)).Comment.Text
End If
End Sub
Bon, je suis désolé mais je ne sais pas trop comment m'y prendre malgré votre bonne volonté. Ci joint, le classeur tel qu'il est (je pense) présenté chez JB... ça ne marche pas, sauf erreur.
http://cjoint.com/?lunYqmxSvP
Pour ma part, je voudrais la même chose, et qui marche, mais avec la liste dans une feuille différente de la liste déroulante... ex:
http://cjoint.com/?lun00vN4XU
Pourriez-vous m'aider?
Merci
Greg
"JPMonnier" a écrit dans le message de news:
Bonjour, pour faire réf à une liste dans une autre feuille, Nommer ta liste ex liste With Selection.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="=liste" End with "Greg" a écrit dans le message de news:492546bc$0$20557$
Bonjour et merci! Mes questions ne sont pas sans lien avec ma question d'hier ("ajout libre dans une liste déroulante"):
Que faut-il ajouter au code pour faire référence à une liste se trouvant dans une autre feuille? Le code est-il bien à placer dans la feuille?
Merci
Greg
"JB" a écrit dans le message de news:
Bonjour,
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$2" Then Target.Comment.Text _ Text:=Range("maliste")(Application.Match(Target, [maliste], 0)).Comment.Text End If End Sub