Dans une colonne (A) j'ai des quantités,
dans la colonne adjacent (B) des unités,
je voudrais que si la cellule de la colonne B a pour valeur "ml" ou "m2"
la cellule A soit formatée avec 2 zéros après la virgule (disons le format
perso 1)
si la cellule de la colonne B a pour valeur "m3" ou "to"
la cellule A soit formatée avec 3 zéros après la virgule (disons le format
perso 2)
si la cellule de la colonne B a pour valeur "pce" ou "for"
ou "u"
la cellule A soit formatée avec 0 zéros après la virgule (disons le format
perso 3)
J'ai bien pensé à utiliser le format conditionnel, mais je ne vois pas de
tout comment faire.
J'ai oublié le '=' devant le OU. Ne l'oublie pas .
j-p
"JpPradier" wrote in message news:
Bonjour Fredo67 Tu selectionnes tes données en colonne A puis MFC : 1er format : la formule est : OU(B1="ml";B1="m2") puis format1
2em : La formule est : OU(B1="m3";B1="to") puis format2
je te laisse deviner le troisième ;-))
j-p
Nicolas B.
Salut Jp,
Le problème, c'est qu'avec les MEFC, tu ne peux pas modifier le format de nombre comme le demande la question...
Par macro (dans le code de la feuille) : Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B:B")) Is Nothing Then Select Case Cells(Target.Row, 2).Value Case "ml", "m2" Cells(Target.Row, 1).NumberFormat = "0.00" Case "m3", "to" Cells(Target.Row, 1).NumberFormat = "0.000" Case "pce", "for" Cells(Target.Row, 1).NumberFormat = "0" End Select End If End Sub
A+ -- Nicolas B.
JpPradier nous a écrit dans le message :
J'ai oublié le '=' devant le OU. Ne l'oublie pas .
j-p
"JpPradier" wrote in message news:
Bonjour Fredo67 Tu selectionnes tes données en colonne A puis MFC : 1er format : la formule est : OU(B1="ml";B1="m2") puis format1
2em : La formule est : OU(B1="m3";B1="to") puis format2
je te laisse deviner le troisième ;-))
j-p
Salut Jp,
Le problème, c'est qu'avec les MEFC, tu ne peux pas modifier le format de
nombre comme le demande la question...
Par macro (dans le code de la feuille) :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B:B")) Is Nothing Then
Select Case Cells(Target.Row, 2).Value
Case "ml", "m2"
Cells(Target.Row, 1).NumberFormat = "0.00"
Case "m3", "to"
Cells(Target.Row, 1).NumberFormat = "0.000"
Case "pce", "for"
Cells(Target.Row, 1).NumberFormat = "0"
End Select
End If
End Sub
A+
--
Nicolas B.
JpPradier nous a écrit
dans le message OL62hqOZEHA.3112@tk2msftngp13.phx.gbl :
J'ai oublié le '=' devant le OU. Ne l'oublie pas .
j-p
"JpPradier" <jp.pradier.JVeuxPasDeSpam@wanadoo.fr> wrote in message
news:O0yKCpOZEHA.2576@TK2MSFTNGP10.phx.gbl...
Bonjour Fredo67
Tu selectionnes tes données en colonne A puis MFC :
1er format : la formule est : OU(B1="ml";B1="m2") puis format1
2em : La formule est : OU(B1="m3";B1="to") puis format2
Le problème, c'est qu'avec les MEFC, tu ne peux pas modifier le format de nombre comme le demande la question...
Par macro (dans le code de la feuille) : Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B:B")) Is Nothing Then Select Case Cells(Target.Row, 2).Value Case "ml", "m2" Cells(Target.Row, 1).NumberFormat = "0.00" Case "m3", "to" Cells(Target.Row, 1).NumberFormat = "0.000" Case "pce", "for" Cells(Target.Row, 1).NumberFormat = "0" End Select End If End Sub
A+ -- Nicolas B.
JpPradier nous a écrit dans le message :
J'ai oublié le '=' devant le OU. Ne l'oublie pas .
j-p
"JpPradier" wrote in message news:
Bonjour Fredo67 Tu selectionnes tes données en colonne A puis MFC : 1er format : la formule est : OU(B1="ml";B1="m2") puis format1
2em : La formule est : OU(B1="m3";B1="to") puis format2
je te laisse deviner le troisième ;-))
j-p
JpPradier
Effectivement Nicolas, ça m'apprendra à tester complètement. J'avais testé avec des couleurs pour aller au plus simple :-(
j-p
Effectivement Nicolas, ça m'apprendra à tester complètement. J'avais testé avec des couleurs pour
aller au plus simple :-(
Effectivement Nicolas, ça m'apprendra à tester complètement. J'avais testé avec des couleurs pour aller au plus simple :-(
j-p
Fredo \(67\)
Merci JpPradier Merci Nicolas B,
Et effectivement, avec les couleurs (fond de cellules) ca marche mais la mise en forme de nombre ne fonctionne pas
Par contre pour ce qui est de la macro, est-ce la seule solution ? J'ai peur que cette solution n'alourdisse l'utilisation de ma feuille.. celle ci comprenant déjà un certain nombre de macros..
"Nicolas B." a écrit dans le message de news:
Salut Jp,
Le problème, c'est qu'avec les MEFC, tu ne peux pas modifier le format de nombre comme le demande la question...
Par macro (dans le code de la feuille) : Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B:B")) Is Nothing Then Select Case Cells(Target.Row, 2).Value Case "ml", "m2" Cells(Target.Row, 1).NumberFormat = "0.00" Case "m3", "to" Cells(Target.Row, 1).NumberFormat = "0.000" Case "pce", "for" Cells(Target.Row, 1).NumberFormat = "0" End Select End If End Sub
A+ -- Nicolas B.
JpPradier nous a écrit dans le message :
J'ai oublié le '=' devant le OU. Ne l'oublie pas .
j-p
"JpPradier" wrote in message news:
Bonjour Fredo67 Tu selectionnes tes données en colonne A puis MFC : 1er format : la formule est : OU(B1="ml";B1="m2") puis format1
2em : La formule est : OU(B1="m3";B1="to") puis format2
je te laisse deviner le troisième ;-))
j-p
Merci JpPradier
Merci Nicolas B,
Et effectivement, avec les couleurs (fond de cellules) ca marche
mais la mise en forme de nombre ne fonctionne pas
Par contre pour ce qui est de la macro, est-ce la seule solution ?
J'ai peur que cette solution n'alourdisse l'utilisation de ma feuille..
celle ci comprenant déjà un certain nombre de macros..
"Nicolas B." <nicolas.bruot@adresse.bidon.com> a écrit dans le message de
news:OOKIZxOZEHA.4032@TK2MSFTNGP11.phx.gbl...
Salut Jp,
Le problème, c'est qu'avec les MEFC, tu ne peux pas modifier le format de
nombre comme le demande la question...
Par macro (dans le code de la feuille) :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B:B")) Is Nothing Then
Select Case Cells(Target.Row, 2).Value
Case "ml", "m2"
Cells(Target.Row, 1).NumberFormat = "0.00"
Case "m3", "to"
Cells(Target.Row, 1).NumberFormat = "0.000"
Case "pce", "for"
Cells(Target.Row, 1).NumberFormat = "0"
End Select
End If
End Sub
A+
--
Nicolas B.
JpPradier nous a écrit
dans le message OL62hqOZEHA.3112@tk2msftngp13.phx.gbl :
J'ai oublié le '=' devant le OU. Ne l'oublie pas .
j-p
"JpPradier" <jp.pradier.JVeuxPasDeSpam@wanadoo.fr> wrote in message
news:O0yKCpOZEHA.2576@TK2MSFTNGP10.phx.gbl...
Bonjour Fredo67
Tu selectionnes tes données en colonne A puis MFC :
1er format : la formule est : OU(B1="ml";B1="m2") puis format1
2em : La formule est : OU(B1="m3";B1="to") puis format2
Et effectivement, avec les couleurs (fond de cellules) ca marche mais la mise en forme de nombre ne fonctionne pas
Par contre pour ce qui est de la macro, est-ce la seule solution ? J'ai peur que cette solution n'alourdisse l'utilisation de ma feuille.. celle ci comprenant déjà un certain nombre de macros..
"Nicolas B." a écrit dans le message de news:
Salut Jp,
Le problème, c'est qu'avec les MEFC, tu ne peux pas modifier le format de nombre comme le demande la question...
Par macro (dans le code de la feuille) : Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B:B")) Is Nothing Then Select Case Cells(Target.Row, 2).Value Case "ml", "m2" Cells(Target.Row, 1).NumberFormat = "0.00" Case "m3", "to" Cells(Target.Row, 1).NumberFormat = "0.000" Case "pce", "for" Cells(Target.Row, 1).NumberFormat = "0" End Select End If End Sub
A+ -- Nicolas B.
JpPradier nous a écrit dans le message :
J'ai oublié le '=' devant le OU. Ne l'oublie pas .
j-p
"JpPradier" wrote in message news:
Bonjour Fredo67 Tu selectionnes tes données en colonne A puis MFC : 1er format : la formule est : OU(B1="ml";B1="m2") puis format1
2em : La formule est : OU(B1="m3";B1="to") puis format2
