Liste de validation et choix
Le
Fredo(67)

Bonjour,
dans la colonne "L" de mon fichier j'ai les valeurs suivantes :
Type de charge
Banche simple
Banche double
Banche triple
Benne 1,000 m3
Benne 1,500 m3
Prémur
Préfa Plein
Escalier type 1
Escalier type 2
Escalier type 3
Escalier type 4
Escalier type 5
La plage où sont notées ces données se nomme liste_de_charge
j'ai ensuite dans mon classeur des cellules que je remplie en utilisant la =
Validation des Données
En D30; D60; D90; D120; D150; D180; D210
dans ces cellules je ne peux saisir qu'une valeur contenue dans liste_de_ch=
arge
Ma question :
comment pourrais-je faire pour que, si en D30 c'est Banche simple qui est s=
électionnée, on ne puisse pas la sélectionner dans aucune autre cellu=
le (l'idéal serait que la valeur n'apparaisse plus dans la liste des vali=
dation.
(un clic sur le triangle noir à droite fait apparaître la liste des val=
eurs autorisée)
j'ai cru lire un article là dessus, mais pas main de remettre la main des=
sus.
Merci pour votre aide
dans la colonne "L" de mon fichier j'ai les valeurs suivantes :
Type de charge
Banche simple
Banche double
Banche triple
Benne 1,000 m3
Benne 1,500 m3
Prémur
Préfa Plein
Escalier type 1
Escalier type 2
Escalier type 3
Escalier type 4
Escalier type 5
La plage où sont notées ces données se nomme liste_de_charge
j'ai ensuite dans mon classeur des cellules que je remplie en utilisant la =
Validation des Données
En D30; D60; D90; D120; D150; D180; D210
dans ces cellules je ne peux saisir qu'une valeur contenue dans liste_de_ch=
arge
Ma question :
comment pourrais-je faire pour que, si en D30 c'est Banche simple qui est s=
électionnée, on ne puisse pas la sélectionner dans aucune autre cellu=
le (l'idéal serait que la valeur n'apparaisse plus dans la liste des vali=
dation.
(un clic sur le triangle noir à droite fait apparaître la liste des val=
eurs autorisée)
j'ai cru lire un article là dessus, mais pas main de remettre la main des=
sus.
Merci pour votre aide
Je te suggère ceci :
A ) Ce code doit être placé dans le module de la feuille où l'action se
déroule.
B ) Place ta liste dans la "feuil4" (celle que tu veux) dont la seule
fonction est
de conserver la liste de validation en colonne A, A1 à A13
Copie la plage A1:A13 vers la colonne D1:D13 de la feuil4
Assigne à la plage "D1:D13" le nom liste_de_charge
C ) Si le nom de la feuille choisie est différent de "Feuil4", n'oublie pas
de
modifier le nom dans la macro.
D ) Tu masques cette feuille comme ceci :
worksheets("Feuil4").Visible=xlSheetVeryHidden
Cela rendra la feuille inaccessible par les usagers.
'--------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range, Sh As Worksheet, C As Range, A As Variant
Set Sh = Worksheets("Feuil4") 'à définir
With Me
Set Rg = Range("D30,D60,D90,D120,D150,D180,D210")
End With
If Not Intersect(Target, Rg) Is Nothing Then
Application.EnableEvents = False
With Sh
.Range("A1:A" & .Range("A65536").End(xlUp).Row).Copy .Range("D1")
End With
With Sh
With .Range("D2:D" & .Range("D65536").End(xlUp).Row)
For Each C In Rg
A = Application.Match(C, .Cells, 0)
If IsNumeric(A) Then
.Item(A, 1).Delete xlUp
Else
Err.Clear
End If
Next
.Name = "liste_de_charge"
End With
End With
Application.EnableEvents = True
End If
End Sub
'--------------------------------------------
j'ai adapté ta proposition à mon cas, et en fait cela ne fonctionne pas , non pas ta macro, mais mon fichier n'est pas adapté à ce que je voula is faire....
Toutefois, je te remercie pour le temps passé à me trouver une solution .
Merci
Le mardi 4 février 2014 17:38:32 UTC+1, MichD a écrit :
C'est très gentil à toi de remercier ton répondeur. Cela est rare et,
avouons-le, cela fait plaisir d'avoir un peu de reconnaissance.
Mais, pourquoi n'expliques-tu pas à Denis ce qui ne va pas?
En exposant clairement le problème, il arrive parfois que l'on trouve
soi-même la solution. Mais, aussi, on aide le répondeur à mieux cerner la
chose et donc à trouver une solution plus appropriée à ce problème.
A te lire.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"Fredo(67)" a écrit dans le message de groupe de discussion :
Salut MichD
j'ai adapté ta proposition à mon cas, et en fait cela ne fonctionne pas, non
pas ta macro, mais mon fichier n'est pas adapté à ce que je voulais
faire....
Toutefois, je te remercie pour le temps passé à me trouver une solution.
Merci
Le mardi 4 février 2014 17:38:32 UTC+1, MichD a écrit :
Regade le classeur à l'adresse :
https://skydrive.live.com/redir?resid–D5842B14D14FA4!885&authkey=!ALu8dClQ490IrjM&ithint=file%2c.xlsx
Cordialement.
Daniel
En fait si je n'ai pas plus développé ma demande c'est qu'en l'exrimant , je me suis rendu compte que la résolution de mon "soucis" engendrerait une macro qui deviendrait très vite énorme, surtout au vu du bénéfi ce apporté.
voilà...
(sans dire qu'exprimer la totalité de mon problème en des termes clairs et concis me semble au delà de mes possibilités....hé hé hé..)
Le jeudi 6 février 2014 12:14:07 UTC+1, Jacquouille a écrit :
Le jeudi 6 février 2014 14:49:36 UTC+1, DanielCo a écrit :
Et bien finalement, Jacquouille, tu avais raison.
Mais cela est même allé plus loin, car DanielCo à trouvé, sans que j'ai réussi à lui expliquer les problèmes auxquels j'était confront é, à me proposer une solution qui me convienne.
Encore un grand merci à vous tous...
Le jeudi 6 février 2014 15:33:33 UTC+1, Fredo(67) a écrit :
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"Fredo(67)" a écrit dans le message de groupe de discussion :
J'ai trouvé
Et bien finalement, Jacquouille, tu avais raison.
Mais cela est même allé plus loin, car DanielCo à trouvé, sans que j'ai
réussi à lui expliquer les problèmes auxquels j'était confronté, à me
proposer une solution qui me convienne.
Encore un grand merci à vous tous...
Le jeudi 6 février 2014 15:33:33 UTC+1, Fredo(67) a écrit :