Liste de validation

sousou

XLDnaute Barbatruc

• 9 Juillet 2013

• #2

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

 

Vote positif 0 Vote négatif

M

martin.ugo

Guest

• 9 Juillet 2013

• #3

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

 

Vote positif 0 Vote négatif

Y

Yasemin

Guest

• 9 Juillet 2013

• #4

Re : Liste de validation

Bonjour,

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

Bien cordialement,

Yasemin

 

Pièces jointes

• test gestion epi.xls

  34.5 KB · Affichages: 107
• test gestion epi.xls

  34.5 KB · Affichages: 97
• test gestion epi.xls

  34.5 KB · Affichages: 56

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 10 Juillet 2013

• #5

Re : Liste de validation

Bonjour

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

Merci

 

Vote positif 0 Vote négatif

M

martin.ugo

Guest

• 10 Juillet 2013

• #6

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.

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 10 Juillet 2013

• #7

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

 

Vote positif 0 Vote négatif

Dugenou

XLDnaute Barbatruc

• 10 Juillet 2013

• #8

Re : Liste de validation

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

 

Pièces jointes

• martin hugo.xls

  36 KB · Affichages: 31

Vote positif 0 Vote négatif

M

martin.ugo

Guest

• 10 Juillet 2013

• #9

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

 

Pièces jointes

• test gestion EPI.xls

  48 KB · Affichages: 29
• test gestion EPI.xls

  48 KB · Affichages: 29
• test gestion EPI.xls

  48 KB · Affichages: 31

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 10 Juillet 2013

• #10

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...

 

Pièces jointes

• Dugenou_Chris_martinhugo.xls

  36 KB · Affichages: 39

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 10 Juillet 2013

• #11

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

 

Vote positif 0 Vote négatif

Dugenou

XLDnaute Barbatruc

• 10 Juillet 2013

• #12

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 !

 

Vote positif 0 Vote négatif

M

martin.ugo

Guest

• 11 Juillet 2013

• #13

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

 

Vote positif 0 Vote négatif