Pb avec liste déroulante

C

Creepy

XLDnaute Accro

• 8 Juillet 2005

• #2

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

 

Vote positif 0 Vote négatif

G

Gau

Guest

• 8 Juillet 2005

• #3

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]

 

Pièces jointes

• exxais_20050708095426.zip

  12.6 KB · Affichages: 8

Vote positif 0 Vote négatif

Gérard DEZAMIS

XLDnaute Accro

• 8 Juillet 2005

• #4

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]

 

Pièces jointes

• ListeDeoulanteVersNB.zip

  7.2 KB · Affichages: 8

Vote positif 0 Vote négatif

Bricofire

XLDnaute Impliqué

• 8 Juillet 2005

• #5

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

 

Vote positif 0 Vote négatif

Bricofire

XLDnaute Impliqué

• 8 Juillet 2005

• #6

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

🙁
Bfr

 

Vote positif 0 Vote négatif

J

JJ59

Guest

• 8 Juillet 2005

• #7

Bonjour le forum, à tous

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


Bonne journée à tous.

 

Vote positif 0 Vote négatif

G

Gau

Guest

• 8 Juillet 2005

• #8

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 !

 

Vote positif 0 Vote négatif

G

Gau

Guest

• 8 Juillet 2005

• #9

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

 

Vote positif 0 Vote négatif

Gérard DEZAMIS

XLDnaute Accro

• 8 Juillet 2005

• #10

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]

 

Pièces jointes

• ListeDeoulanteVersNB2.zip

  7.8 KB · Affichages: 10

Vote positif 0 Vote négatif

N

nono914

Guest

• 21 Juillet 2005

• #11

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

 

Vote positif 0 Vote négatif

Samantha

XLDnaute Accro

• 22 Juillet 2005

• #12

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]

 

Pièces jointes

• Nono.zip

  2.7 KB · Affichages: 11
• Nono.zip

  2.7 KB · Affichages: 11
• Nono.zip

  2.7 KB · Affichages: 11

Vote positif 0 Vote négatif