Bonjour
Peut-on récupérer des formules issu d'une liste de validation?
J'ai essayé, et je récupère la valeur de la formule et pas la formule elle
même.
Merci à tous.
Bonne journée
Yan
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,
Si l'élément frappé n'appartient pas à la liste, il est ajouté (Liste dans le contrôle)
http://cjoint.com/?ezikffnJg6
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$2" Then If InStr(Target.Validation.Formula1, Target.Value) = 0 Then Target.Validation.Modify Formula1:= _ Application.Substitute(Target.Validation.Formula1, ";", ",") & "," & Target.Value End If End If End Sub
Cordialement JB
Bonjour,
Si l'élément frappé n'appartient pas à la liste, il est ajouté
(Liste dans le contrôle)
http://cjoint.com/?ezikffnJg6
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$2" Then
If InStr(Target.Validation.Formula1, Target.Value) = 0 Then
Target.Validation.Modify Formula1:= _
Application.Substitute(Target.Validation.Formula1, ";", ",") &
"," & Target.Value
End If
End If
End Sub
Si l'élément frappé n'appartient pas à la liste, il est ajouté (Liste dans le contrôle)
http://cjoint.com/?ezikffnJg6
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$2" Then If InStr(Target.Validation.Formula1, Target.Value) = 0 Then Target.Validation.Modify Formula1:= _ Application.Substitute(Target.Validation.Formula1, ";", ",") & "," & Target.Value End If End If End Sub
Cordialement JB
yan
Bonsoir Merci de ta réponse. Mais n'étant pas un grand spécialiste du VBA je patauge un peu J'ai ouvert ton fichier idem Le code ci-dessous que tu m'as écrit je le place ou? Dans un module ou dans thisworkbook Désolé mais je crois que je vais etre vite depassé Merci a toi pour rappel dans la liste déroulante je voudrais mettre des formule genre: =aujourdhui(), =maintenant(), ou plus conplexe de façon a ne plus avoir a les taper Yan
"JB" a écrit dans le message de news:
Bonjour,
Si l'élément frappé n'appartient pas à la liste, il est ajouté (Liste dans le contrôle)
http://cjoint.com/?ezikffnJg6
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$2" Then If InStr(Target.Validation.Formula1, Target.Value) = 0 Then Target.Validation.Modify Formula1:= _ Application.Substitute(Target.Validation.Formula1, ";", ",") & "," & Target.Value End If End If End Sub
Cordialement JB
Bonsoir
Merci de ta réponse.
Mais n'étant pas un grand spécialiste du VBA je patauge un peu
J'ai ouvert ton fichier idem
Le code ci-dessous que tu m'as écrit je le place ou?
Dans un module ou dans thisworkbook
Désolé mais je crois que je vais etre vite depassé
Merci a toi
pour rappel dans la liste déroulante je voudrais mettre des formule genre:
=aujourdhui(), =maintenant(), ou plus conplexe de façon a ne plus avoir a
les taper
Yan
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1145945487.471141.138070@j33g2000cwa.googlegroups.com...
Bonjour,
Si l'élément frappé n'appartient pas à la liste, il est ajouté
(Liste dans le contrôle)
http://cjoint.com/?ezikffnJg6
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$2" Then
If InStr(Target.Validation.Formula1, Target.Value) = 0 Then
Target.Validation.Modify Formula1:= _
Application.Substitute(Target.Validation.Formula1, ";", ",") &
"," & Target.Value
End If
End If
End Sub
Bonsoir Merci de ta réponse. Mais n'étant pas un grand spécialiste du VBA je patauge un peu J'ai ouvert ton fichier idem Le code ci-dessous que tu m'as écrit je le place ou? Dans un module ou dans thisworkbook Désolé mais je crois que je vais etre vite depassé Merci a toi pour rappel dans la liste déroulante je voudrais mettre des formule genre: =aujourdhui(), =maintenant(), ou plus conplexe de façon a ne plus avoir a les taper Yan
"JB" a écrit dans le message de news:
Bonjour,
Si l'élément frappé n'appartient pas à la liste, il est ajouté (Liste dans le contrôle)
http://cjoint.com/?ezikffnJg6
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$2" Then If InStr(Target.Validation.Formula1, Target.Value) = 0 Then Target.Validation.Modify Formula1:= _ Application.Substitute(Target.Validation.Formula1, ";", ",") & "," & Target.Value End If End If End Sub
Cordialement JB
JB
Je n'avais pas compris la question. Le + simple est d'utiliser le bouton fx?
Barre outils avec fonctions Aujourdhui() et Maintenant(): http://cjoint.com/?eAitAxW46C
JB
Je n'avais pas compris la question.
Le + simple est d'utiliser le bouton fx?
Barre outils avec fonctions Aujourdhui() et Maintenant():
http://cjoint.com/?eAitAxW46C
