Liste de validation

[martin.ugo]

Bonjour à tous,
Désolé pour le titre peu explicite.
Comme je l'ai déjà raconter dans un précédent poste, je tente de préparer un fichier excel pour la gestion de prêt d'équipement protection individuel. Je prépare ce document pour l'association de montagne où je fait de l'escalade.

Dans le fichier joint vous remarquerez que dans les colonnes armoire alpi, escalade, corde et canyon j'ai créé des listes de validation pour permettre aux adhérents de sélectionné le matériel qui vont emprunter.
A chaque materiel sélectionné doit être avoir une date de retour.

Le problème s'est que dans la configuration actuelle sur la même ligne je peus sélectionné 1 matériel par colonne donc 4 matériels par ligne. Et je ne veux que 1 matériel par ligne.
Y aurait-il une solution à ce problème.
Merci

 

[sousou]

Re : Liste de validation

Bonjour Martin.ugo

Je te propose un peu de code à mettre dans la feuille
Regarde si cela te convient

Private Sub Worksheet_Change(ByVal Target As Range)
'Bloque les évènnements
Application.EnableEvents = False
'Efface si autres choix
l = Target.Row
c = Target.Column
For n = 3 To 6
If c <> n Then ActiveSheet.Cells(l, n) = ""
Next
'débloque les évènnements
Application.EnableEvents = True

End Sub

 

[martin.ugo]

Re : Liste de validation

Bonjour Sousou
Ouha !!!
Vu de mon peu de connaissance.
Je dirai qui faudrait que j'écrive ces lignes de code dans une macro ou quelque chose de ce genre.
Y aurai t il un tutoriel ou je puisse comprendre et mettre en application?

Merci

 

[Yasemin]

Re : Liste de validation

Bonjour,

Ci-joint, votre document modifié avec le code de Sousou.
(Merci Sousou !)

Bien cordialement,

Yasemin

 

[sousou]

Re : Liste de validation

Bonjour

Je vois que le travail à été complété

Merci

 

[martin.ugo]

Re : Liste de validation

Bonjour,
Je vous remercie pour l'attention que vous porter à mon problème.
Ne voulant pas rester novice toute ma vie, je vais reprendre ma question le code que vous avez produit doit être écrit où?
Je ne connais pas bien le site mais je suppose qu'il existe des tutoriels me permettant de m'exercer.

 

[sousou]

Re : Liste de validation

RE
Tu trouveras dans le fichier transmis par yasmin les infos, mais faut chercher un peu.

Va dans macro/éditeurvisualbasic.
Tu trouveras ton projet.
Dans ton cas le code est écrit dans feuil1 puisque c'est l'action 'change' qui va le faire fonctionner
Quant la feuille change, on vérifie si ce sont les cellules qui nous intéressent, et on modifie en conséquence

 

[Dugenou]

Re : Liste de validation

Bonjour sousou, martin, yasemin,
Une autre solution avec une mfc : cependant cela n'empèche pas totalement la saisie
Cordialement

 

[martin.ugo]

Re : Liste de validation

Coucou à tous,
En effet Dugenou la MFC pourrai être une solution mais les adhérents ne seront pas assez ordonnés pour respecter cette règle.
Yasemin et Sousou la solution que vous me proposez fonctionne bien.
Il reste un petit souci si je sélectionne un matériel et ensuite je note une date de retour prévu ou une date de retour ou une note, je perd le matériel.
De plus pour uploader le fichier à moins de 50 Ko j'ai supprimer des lignes.
Donc de recommence avec les ligne du dessus.
De plus je tiens à vous remercier car j'ai découvert VBA editor et je vais pouvoir me penché sur les tutoriels.

Merci

 

[chris]

Re : Liste de validation

Bonjour à tous

La solution de Dugenou par MFC mais avec interdiction de plus d'une saisie.


Par ailleurs je conseillerais de mettre les source de liste dans un autre onglet (en les nommant cela marche) : cela évite de les abimer par mégarde...

 

[sousou]

Re : Liste de validation

Effectivement.
Voici une correction

Private Sub Worksheet_Change(ByVal Target As Range)
'Bloque les évènnements
l = Target.Row
c = Target.Column
If c > 2 And c < 7 Then
Application.EnableEvents = False
'Efface si autres choix

For n = 3 To 6
If c <> n Then ActiveSheet.Cells(l, n) = ""
Next
'débloque les évènnements
Application.EnableEvents = True
End If
End Sub

 

[Dugenou]

Re : Liste de validation

Bravo Chris,
J'ai essayé de faire exactement ça et j'ai eu un message me disant que "la liste source doit être délimitée..." : j'avais essayé d'y mettre un texte entre guillemets au lieu d'une cellule !

 

[martin.ugo]

Re : Liste de validation

Bonjour à tous,
Je vous remercie d'être aussi présent pour me rendre service.
Je désir que le programme que vous composez fonctionne de la ligne 5 à la ligne 103 donc j'ai tenter d'imaginé

Private Sub Worksheet_Change(ByVal Target As Range)
'Bloque les évènnements
l = Target.Row
c = Target.Column
If l > 4 And l < 104 Then
If c > 2 And c < 7 Then
End If
Application.EnableEvents = False
'Efface si autres choix

For n = 3 To 6
If c <> n Then ActiveSheet.Cells(l, n) = ""
Next
'débloque les évènnements
Application.EnableEvents = True
End If
End Sub

En rouge ma composition,
Est ce juste et écrit au bon endroit???
merci merci merci