vba probl de if (pour newbie)

j'espère, pierre, que tu as bien entendu dire que paris, c'était le samedi
11 décembre pour le dîner traditionnel de fin d'année ; notre misange
devrait mettre cette info et un bulletin d'inscription en ligne dans son
excelabo mais je pense qu'elle n'a pas encore réagi à cette nouvelle
manif'

du C.O.I.N.
jps

"Pierre Fauconnier" <pierre.fauconnier@nospam.nospam> a écrit dans le
message de news:%23r8TosonEHA.2764@TK2MSFTNGP10.phx.gbl...

Salut FxM,

Comment vas-tu???
Vas-tu à Marseille? Pour moi, impossible pour l'instant, mais j'ai
entendu

dire que quelque chose se tramait pour Paris fin d'année...

Allez, avec quelques belges, on va essayer de mettre un truc sur pied
pour

le printemps...

A bientôt le plaisir de se revoir...

Pierre

"FxM" <nullos@greuchmeu.ici> a écrit dans le message de
news:ua%23snsmnEHA.392@tk2msftngp13.phx.gbl...

Bonsoir,

Outre le point 'note' soulevé par mon éminent collègue, tu devrais
pouvoir simplifier ta formule en enlevant une borne sur deux.

(attention aux coupures de lignes)
Sub Macro1()
ActiveSheet.Range("C2").Formula > > > "=IF(B2<>"""",IF(B2=0,""Nul"",IF(B2<6,""Très

insuffisant"",IF(B2<11,""Insuffisant"",IF(B2<16,""Bien"",IF(B2<20,""Très

bien"",""Excellent""))))),"""")"
Range("C2").AutoFill Destination:=Range("C2:C15"),
Type:=xlFillDefault

End Sub

@+
FxM





gretabitis wrote:

bonsoir

et voilà, je m'y remets et c'est dur
je n'arrive pas à trouver mon erreur :

extrait

note = Range("b2")
Range("c2").Activate
ActiveCell.FormulaR1C1 > > "=If(note=0,""Nul"",if(AND(note>=1,note<6),""Très

insuffisant"",if(AND(note>=6,note<11),""Insuffisant"",if(AND(note>,note<1

6),""Bien"",If(AND(note>,note<20),""Très
Bien"",If(note ,""Excellent"")))))))))))"
Range("c2").Select
Selection.AutoFill Destination:=Range("c2:c15"), Type:=xlFillDefault
Range("c2:c15").Select


d'accord, c'est plus qu'alambiqué, mais "pour voir" ce que ça fait,
j'aimerais garder les if et les and

merci pour votre patience

j'espère, pierre, que tu as bien entendu dire que paris, c'était le samedi
11 décembre pour le dîner traditionnel de fin d'année ; notre misange
devrait mettre cette info et un bulletin d'inscription en ligne dans son
excelabo mais je pense qu'elle n'a pas encore réagi à cette nouvelle
manif'

du C.O.I.N.
jps

"Pierre Fauconnier" <pierre.fauconnier@nospam.nospam> a écrit dans le
message de news:%23r8TosonEHA.2764@TK2MSFTNGP10.phx.gbl...

Salut FxM,

Comment vas-tu???
Vas-tu à Marseille? Pour moi, impossible pour l'instant, mais j'ai
entendu

dire que quelque chose se tramait pour Paris fin d'année...

Allez, avec quelques belges, on va essayer de mettre un truc sur pied
pour

le printemps...

A bientôt le plaisir de se revoir...

Pierre

"FxM" <nullos@greuchmeu.ici> a écrit dans le message de
news:ua%23snsmnEHA.392@tk2msftngp13.phx.gbl...

Bonsoir,

Outre le point 'note' soulevé par mon éminent collègue, tu devrais
pouvoir simplifier ta formule en enlevant une borne sur deux.

(attention aux coupures de lignes)
Sub Macro1()
ActiveSheet.Range("C2").Formula > > > "=IF(B2<>"""",IF(B2=0,""Nul"",IF(B2<6,""Très

insuffisant"",IF(B2<11,""Insuffisant"",IF(B2<16,""Bien"",IF(B2<20,""Très

bien"",""Excellent""))))),"""")"
Range("C2").AutoFill Destination:=Range("C2:C15"),
Type:=xlFillDefault

End Sub

@+
FxM





gretabitis wrote:

bonsoir

et voilà, je m'y remets et c'est dur
je n'arrive pas à trouver mon erreur :

extrait

note = Range("b2")
Range("c2").Activate
ActiveCell.FormulaR1C1 > > "=If(note=0,""Nul"",if(AND(note>=1,note<6),""Très

insuffisant"",if(AND(note>=6,note<11),""Insuffisant"",if(AND(note>,note<1

6),""Bien"",If(AND(note>,note<20),""Très
Bien"",If(note ,""Excellent"")))))))))))"
Range("c2").Select
Selection.AutoFill Destination:=Range("c2:c15"), Type:=xlFillDefault
Range("c2:c15").Select


d'accord, c'est plus qu'alambiqué, mais "pour voir" ce que ça fait,
j'aimerais garder les if et les and

merci pour votre patience