Format de cellule définie par choix "d'echelles" depuis un menu déroulant

Bonjour,

Un format de cellules? Aux données de ta liste déroulante?
Quel est ce format que tu veux voir afficher? Donne quelques exemples.

La liste déroulante émane de la commande : Données / validation ?


MichD
---------------------------------------------------------------

Le mardi 05 Novembre 2013 à 16:25 par mickael77370 :

Bonjour,

J'ai un petit tableaux exel avec des ligne ou je remplit des valeur suite a des
essaies ce tableaux me sert de rapports

affin de me facilité la vie je voudrais appliqué un format de
cellules spécifique en fonction du choix dans ma liste
déroulante

Merci de votre aide.

Je vous joint le fichier pour vous éclairé

http://www.partage-facile.com/XK2L0Z0ZTT/feuille_ic_ssi_v4.xls.html

en fonction de mon choix dans le menu déroulant h13 exemple 0-100% lie les cases i j k l m o sont en format % (sur la ligne 13)

en H14 je choisi 0-300 PPM alors mes cases i j k l m o seront en format PPM

Voila j’espère avoir été compréhensible.

Merci d'avance

Dans le module de ta feuille "Feuil1", copie cette procédure :

'---------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg, C As Range
Set Rg = Intersect(Target, Range("H13:H28"))
If Not Rg Is Nothing Then
For Each C In Rg
Select Case UCase(Right(C.Value, 3))
Case Is = "LIE"
Range("i" & C.Row).Resize(, 5).NumberFormat = "# ##0 %""
LIE"""
Range("O" & C.Row).NumberFormat = "# ##0 %"" LIE"""
Case Is = "VOL"
Range("i" & C.Row).Resize(, 5).NumberFormat = "# ##0 %""
VOL"""
Range("O" & C.Row).NumberFormat = "# ##0 %"" VOL"""
Case Is = "PPM"
Range("i" & C.Row).Resize(, 5).NumberFormat = "# ##0""
PPM"""
Range("O" & C.Row).NumberFormat = "# ##0"" PPM"""
End Select
Next
End If
End Sub
'---------------------------------------

MichD
---------------------------------------------------------------

Le mardi 05 Novembre 2013 à 16:25 par mickael77370 :

Bonjour,

J'ai un petit tableaux exel avec des ligne ou je remplit des valeur suite a des
essaies ce tableaux me sert de rapports

affin de me facilité la vie je voudrais appliqué un format de
cellules spécifique en fonction du choix dans ma liste
déroulante

Merci de votre aide.

Merci beaucoup

Le mardi 05 Novembre 2013 à 16:25 par mickael77370 :

Bonjour,

J'ai un petit tableaux exel avec des ligne ou je remplit des valeur suite a des
essaies ce tableaux me sert de rapports

affin de me facilité la vie je voudrais appliqué un format de
cellules spécifique en fonction du choix dans ma liste
déroulante

Merci de votre aide.

Donc j'ai essayer mais je ni conais pas grand chose

je me met dans visual basic feuil1 double clic je colle enssuite enregistré je ferme et retourne a mon classeur cela écrit

"Erreur de compilation : sub ou fonction non défini"

| "Erreur de compilation : sub ou fonction non défini"

****Quelle ligne du code met-il en surbrillance?


Tu ne peux avoir 2 procédures ayant le même nom dans un même module.

Est-ce que le module possède plus d'une procédure ayant comme
ligne déclaratoire ceci :

Private Sub Worksheet_Change(ByVal Target As Range)

Si oui, il faut combiner les 2 macros dans une seule.

MichD
---------------------------------------------------------------

Le mardi 05 Novembre 2013 à 16:25 par mickael77370 :

Bonjour,

J'ai un petit tableaux exel avec des ligne ou je remplit des valeur suite a des
essaies ce tableaux me sert de rapports

affin de me facilité la vie je voudrais appliqué un format de
cellules spécifique en fonction du choix dans ma liste
déroulante

Merci de votre aide.

Celle-ci
Private Sub Worksheet_Change(ByVal Target As Range)

Quand je double clic sur feuil 1 dans visual basic il m'afiche une page vierge
donc je ne pense pas avoir 2 macro aprés comme je le dit plus haut exel n'es pas vraiment mon domaine.

Ton fichier : http://cjoint.com/?CKgdQfI1olp

Dès que tu modifies une valeur dans la liste déroulante de la colonne
H13:H26
le format des cellules de la même ligne s'adapte.

Pour le voir, tu dois entrer une valeur pour voir le format s'afficher dans
les
colonnes que tu as choisies.

Pour faire un choix dans la liste déroulante, nul besoin d'un double-clique!

MichD
---------------------------------------------------------------

Le mardi 05 Novembre 2013 à 16:25 par mickael77370 :

Bonjour,

J'ai un petit tableaux exel avec des ligne ou je remplit des valeur suite a des
essaies ce tableaux me sert de rapports

affin de me facilité la vie je voudrais appliqué un format de
cellules spécifique en fonction du choix dans ma liste
déroulante

Merci de votre aide.

La ça marche niquel et quand je prend le code de cette feuille et que je le recole dans une autre sa marche aussi.

bizare que cela ne marchais pas au début en tout cas un grand merci c'est juste génial.

Le mardi 05 Novembre 2013 à 16:25 par mickael77370 :

Bonjour,

J'ai un petit tableaux exel avec des ligne ou je remplit des valeur suite a des
essaies ce tableaux me sert de rapports

affin de me facilité la vie je voudrais appliqué un format de
cellules spécifique en fonction du choix dans ma liste
déroulante

Merci de votre aide.

Bonjour,

Voila cela marche trés bien mais ne prend pas les chiffres a virgules si quelqu'un peut me modifié la formule sa serais gentil.