Pb avec liste déroulante

[Gau]

Bonjour à tous, bonjour Forum !!


un petit problème se pose à moi et je me permets de le poser !

j'ai incrémenté une cellule d'un menu déroulant afin d'aider les utilisateurs de mon fichier, lequel menu indique les données suivantes:
1 = accident sans arrêt
2 = accident sans hospitalisation
3 = accident avec hospitalisation
4 = accident mortel

Je souhaite que dans la cellule où j'ai mis un menu déroulant lorsque je selectionne par exemple 1 = accident sans arrêt , cette même cellule m'inscrive 1 et non pas 1 = accident sans arrêt

Comment faire alors ?

Merci de m'aider par avance !!

 

[Creepy]

Bonjour,

Je suis un peu boulet mais dans ton menu déroulant , au lieu de mettre 1 = accident sans arrêt met seulement 1 !!!

Et en haut de ton tableau tu mets une légende.

et voila !! Pourquoi faire compliqué quand on peut faire simple !

++

Creepy

Message édité par: Creepy, à: 08/07/2005 09:38

 

[Gau]

Bonjour creepy !!

Finalement tu as raison je vais surement faire comme cela !!

Sinon, puis-je te soumettre un nouveau problème ?

Je souhaiterais copier certaines cellules d'une ligne (d'une feuille spécifique) vers une autre feuille; et ce pour toutes les lignes

Je joins un fichier pour t'éclairer d'avantage
[file name=exxais_20050708095426.zip size=12872]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/exxais_20050708095426.zip[/file]

 

[Gérard DEZAMIS]

Bonjour Gau et Creepy

Un essai en VBA (hésitant ...) pour répondre à la question de G. même si la remarque de C. est fort pertinente.

Regarde Creepy si tu peux améliorer ce code (je continue mon entraînement ...Merci d'avance)

@+ GD [file name=ListeDeoulanteVersNB.zip size=7322]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ListeDeoulanteVersNB.zip[/file]

 

[Bricofire]

Bonjour Gau, Creepy

Gau ton 1er truc tu le fais avec données, validation ?

Je vois mal comment faire après sans créer de ref circulaire, si possibilité il y avait, mais les formules... par contre avec un chouïa de VBA, ça roule tout seule genre :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = 'papa2' Then Target = '2'
End Sub
pour une donnée de papa2 à la base

cordialement,

Bfr

 

[Bricofire]

Aïe Gérard, excuses je n'ai pas rafraîchi...


Bfr

 

[JJ59]

Bonjour le forum, à tous

Gau je croyais que ce problème était résolu depuis hier !


Bonne journée à tous.

 

[Gau]

Bonjour à tous !!

Merci à vous pour vos illuminations c très gentil !!

Le fichier gérard parrait applicable à mon projet , cependant j'y connais rien ou très peu !!
J'ai copier la formule présente ds vba mais ce ne marche pas dans mon fichier !! ou pourrait etre le probleme ? (les données sources sont dans une autre feuille, le pb est peut etre là ?)
Merci de m'aider !!

Ps: pour jj59 ton projet d'hier marché mais mon projet à évoluer et ca ne convient plus mais encore merci pour hier !

 

[Gau]

J'ai entrepris une de vos solution, sauf que cela marche pour un menu deroulant mais pas pour le deuxième .
Un erreur dans l'écriture de la deuxième macros ?
Merci

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Integer, j As Integer
j = Range('A65536').End(xlUp).Row
For i = j To 1 Step -1
If Cells(i, 6) = 'accident sans arrêt' Then
Cells(i, 6) = '1'
End If
If Cells(i, 6) = 'accident sans hospitalisation' Then
Cells(i, 6) = '2'
End If
If Cells(i, 6) = 'accident avec hospitalisation' Then
Cells(i, 6) = '3'
End If
If Cells(i, 6) = 'accident mortel' Then
Cells(i, 6) = '4'
End If
Next i
End Sub

Private Sub Worksheet_SelectionChange1(ByVal Target As Range)
Dim i As Integer, j As Integer
j = Range('A65536').End(xlUp).Row
For i = j To 1 Step -1
If Cells(i, 7) = 'Moins d'1 fois/semaine' Then
Cells(i, 7) = '1'
End If
If Cells(i, 7) = '1 fois/semaine' Then
Cells(i, 7) = '2'
End If
If Cells(i, 7) = '1 fois/jour' Then
Cells(i, 7) = '3'
End If
If Cells(i, 7) = 'Plus d'1 fois/jour' Then
Cells(i, 7) = '4'
End If
Next i
End Sub

 

[Gérard DEZAMIS]

Bonjour Gau, Brocofire, JJ59


une petite suite ...

@+ GD [file name=ListeDeoulanteVersNB2.zip size=7977]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ListeDeoulanteVersNB2.zip[/file]

 

[nono914]

Slt tt le monde,
J'ai à peu prés le meme probleme.
Dans une feuille Excel j'ai 3 colonnes. Nom, prenom et parrain.
Dans un autre feuille j'ai une colonne avec la liste déroulante sur les noms.
Mon soucis c'est que je voudrai en validant mon choix dans la liste , les prenoms et parrains correspondant soit afficher dans les 2 autres colonnes qui suivent.
merci d'avance pr tt conseil

 

[Samantha]

Bonjour les Gens, le Forum, Tous,

Juste pour les allergiques au VBA, j'ai une soluce avec des formules.

Seules restrictions :

Il ne faut pas de fratries parceque le fonction RECHERCHEV prends la première occurence qui se présente
Il faut que la liste soit triée par la colonne de choix (celle du menu déroulant) toujours à cause de RECHERCHEV

Mais je sais que si Monique passe par là elle va nous faire un petit INDEX qui va sauver la mise :evil:

Bonne journée


Samantha [file name=Nono.zip size=2773]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Nono.zip[/file]