Comment copier coller la valeur d'une formule

Le 14/01/2018 à 00:25

Bonsoir

Comment copier coller valeur de cette formule qui est gigantesque dans une plages de cellules(FU7:TU7) avec une macro

merci d'avance

=SI(JOURSEM(FU3)<>2;FT7;
SI(SOMMEPROD((DECALER(FU13;PLAFOND(MOD(FT7+1;5,1);1);;;7)="CP")+(DECALER(FU13;PLAFOND(MOD(FT7+1;5,1);1);;;7)="FOR")+(DECALER(FU13;PLAFOND(MOD(FT7+1;5,1);1);;;7)="CN")+(DECALER(FU13;PLAFOND(MOD(FT7+1;5,1);1);;;7)="MA")+(DECALER(FU13;PLAFOND(MOD(FT7+1;5,1);1);;;7)="CSS")+(DECALER(FU13;PLAFOND(MOD(FT7+1;5,1);1);;;7)="CD")+(DECALER(FU13;PLAFOND(MOD(FT7+1;5,1);1);;;7)="ECH"))=0;PLAFOND(MOD(FT7+1;5,1);1);
SI(SOMMEPROD((DECALER(FU13;PLAFOND(MOD(FT7+2;5,1);1);;;7)="CP")+(DECALER(FU13;PLAFOND(MOD(FT7+2;5,1);1);;;7)="FOR")+(DECALER(FU13;PLAFOND(MOD(FT7+2;5,1);1);;;7)="CN")+(DECALER(FU13;PLAFOND(MOD(FT7+2;5,1);1);;;7)="MA")+(DECALER(FU13;PLAFOND(MOD(FT7+2;5,1);1);;;7)="CSS")+(DECALER(FU13;PLAFOND(MOD(FT7+2;5,1);1);;;7)="CD")+(DECALER(FU13;PLAFOND(MOD(FT7+2;5,1);1);;;7)="ECH"))=0;PLAFOND(MOD(FT7+2;5,1);1);
SI(SOMMEPROD((DECALER(FU13;PLAFOND(MOD(FT7+3;5,1);1);;;7)="CP")+(DECALER(FU13;PLAFOND(MOD(FT7+3;5,1);1);;;7)="FOR")+(DECALER(FU13;PLAFOND(MOD(FT7+3;5,1);1);;;7)="CN")+(DECALER(FU13;PLAFOND(MOD(FT7+3;5,1);1);;;7)="MA")+(DECALER(FU13;PLAFOND(MOD(FT7+3;5,1);1);;;7)="CSS")+(DECALER(FU13;PLAFOND(MOD(FT7+3;5,1);1);;;7)="CD")+(DECALER(FU13;PLAFOND(MOD(FT7+3;5,1);1);;;7)="ECH"))=0;PLAFOND(MOD(FT7+3;5,1);1);
SI(SOMMEPROD((DECALER(FU13;PLAFOND(MOD(FT7+4;5,1);1);;;7)="CP")+(DECALER(FU13;PLAFOND(MOD(FT7+4;5,1);1);;;7)="FOR")+(DECALER(FU13;PLAFOND(MOD(FT7+4;5,1);1);;;7)="CN")+(DECALER(FU13;PLAFOND(MOD(FT7+4;5,1);1);;;7)="MA")+(DECALER(FU13;PLAFOND(MOD(FT7+4;5,1);1);;;7)="CSS")+(DECALER(FU13;PLAFOND(MOD(FT7+4;5,1);1);;;7)="CD")+(DECALER(FU13;PLAFOND(MOD(FT7+4;5,1);1);;;7)="ECH"))=0;PLAFOND(MOD(FT7+4;5,1);1);
SI(SOMMEPROD((DECALER(FU13;PLAFOND(MOD(FT7+5;5,1);1);;;7)="CP")+(DECALER(FU13;PLAFOND(MOD(FT7+5;5,1);1);;;7)="FOR")+(DECALER(FU13;PLAFOND(MOD(FT7+5;5,1);1);;;7)="CN")+(DECALER(FU13;PLAFOND(MOD(FT7+5;5,1);1);;;7)="MA")+(DECALER(FU13;PLAFOND(MOD(FT7+5;5,1);1);;;7)="CSS")+(DECALER(FU13;PLAFOND(MOD(FT7+5;5,1);1);;;7)="CD")+(DECALER(FU13;PLAFOND(MOD(FT7+5;5,1);1);;;7)="ECH"))=0;PLAFOND(MOD(FT7+5;5,1);1)))))))
Le 14/01/2018 à 01:27

Bonjour,

gouloom a écrit :

... copier coller valeur de cette formule ... dans une plages de cellules(FU7:TU7) avec une macro

Ce n'est pas forcément très clair pour moi,

car si je prends au pied de la lettre, copier la valeur d'une cellule en VBA s'écrit juste :

cells(i,j).value=cells(k,l).value

avec cells(i,j) cellule de destination et cells(k,l) cellule d'origine !

Le 14/01/2018 à 01:39
Steelson a écrit :

Bonjour,

gouloom a écrit :

... copier coller valeur de cette formule ... dans une plages de cellules(FU7:TU7) avec une macro

Ce n'est pas forcément très clair pour moi,

car si je prends au pied de la lettre, copier la valeur d'une cellule en VBA s'écrit juste :

cells(i,j).value=cells(k,l).value

avec cells(i,j) cellule de destination et cells(k,l) cellule d'origine !

re

je souhaite une macro qui fais la meme chose que la formule appliquer a la plage (FU7:TU7)

La formule me génère un tour d’astreinte sur 5 collaborateur en fonction des de leurs absence

Le 14/01/2018 à 04:59

SI tu peux, mets un bout de fichier, ce sera plus clair !

Le 14/01/2018 à 07:31
Steelson a écrit :

SI tu peux, mets un bout de fichier, ce sera plus clair !

Bonjour

voici un fichier qui j’espère t’aidera a me comprendre

merci

9ast.xlsx (24.69 Ko)
Le 14/01/2018 à 11:07
Sub maformule()

Range("FU7").Select
Selection.FormulaLocal = " =SI(JOURSEM(FU3)<>2;FT7;" & _
"SI(SOMMEPROD((DECALER(FU13;PLAFOND(MOD(FT7+1;5,1);1);;;7)=""CP"")+(DECALER(FU13;PLAFOND(MOD(FT7+1;5,1);1);;;7)=""FOR"")+(DECALER(FU13;PLAFOND(MOD(FT7+1;5,1);1);;;7)=""CN"")+(DECALER(FU13;PLAFOND(MOD(FT7+1;5,1);1);;;7)=""MA"")+(DECALER(FU13;PLAFOND(MOD(FT7+1;5,1);1);;;7)=""CSS"")+(DECALER(FU13;PLAFOND(MOD(FT7+1;5,1);1);;;7)=""CD"")+(DECALER(FU13;PLAFOND(MOD(FT7+1;5,1);1);;;7)=""ECH""))=0;PLAFOND(MOD(FT7+1;5,1);1);" & _
"SI(SOMMEPROD((DECALER(FU13;PLAFOND(MOD(FT7+2;5,1);1);;;7)=""CP"")+(DECALER(FU13;PLAFOND(MOD(FT7+2;5,1);1);;;7)=""FOR"")+(DECALER(FU13;PLAFOND(MOD(FT7+2;5,1);1);;;7)=""CN"")+(DECALER(FU13;PLAFOND(MOD(FT7+2;5,1);1);;;7)=""MA"")+(DECALER(FU13;PLAFOND(MOD(FT7+2;5,1);1);;;7)=""CSS"")+(DECALER(FU13;PLAFOND(MOD(FT7+2;5,1);1);;;7)=""CD"")+(DECALER(FU13;PLAFOND(MOD(FT7+2;5,1);1);;;7)=""ECH""))=0;PLAFOND(MOD(FT7+2;5,1);1);" & _
"SI(SOMMEPROD((DECALER(FU13;PLAFOND(MOD(FT7+3;5,1);1);;;7)=""CP"")+(DECALER(FU13;PLAFOND(MOD(FT7+3;5,1);1);;;7)=""FOR"")+(DECALER(FU13;PLAFOND(MOD(FT7+3;5,1);1);;;7)=""CN"")+(DECALER(FU13;PLAFOND(MOD(FT7+3;5,1);1);;;7)=""MA"")+(DECALER(FU13;PLAFOND(MOD(FT7+3;5,1);1);;;7)=""CSS"")+(DECALER(FU13;PLAFOND(MOD(FT7+3;5,1);1);;;7)=""CD"")+(DECALER(FU13;PLAFOND(MOD(FT7+3;5,1);1);;;7)=""ECH""))=0;PLAFOND(MOD(FT7+3;5,1);1);" & _
"SI(SOMMEPROD((DECALER(FU13;PLAFOND(MOD(FT7+4;5,1);1);;;7)=""CP"")+(DECALER(FU13;PLAFOND(MOD(FT7+4;5,1);1);;;7)=""FOR"")+(DECALER(FU13;PLAFOND(MOD(FT7+4;5,1);1);;;7)=""CN"")+(DECALER(FU13;PLAFOND(MOD(FT7+4;5,1);1);;;7)=""MA"")+(DECALER(FU13;PLAFOND(MOD(FT7+4;5,1);1);;;7)=""CSS"")+(DECALER(FU13;PLAFOND(MOD(FT7+4;5,1);1);;;7)=""CD"")+(DECALER(FU13;PLAFOND(MOD(FT7+4;5,1);1);;;7)=""ECH""))=0;PLAFOND(MOD(FT7+4;5,1);1);" & _
"SI(SOMMEPROD((DECALER(FU13;PLAFOND(MOD(FT7+5;5,1);1);;;7)=""CP"")+(DECALER(FU13;PLAFOND(MOD(FT7+5;5,1);1);;;7)=""FOR"")+(DECALER(FU13;PLAFOND(MOD(FT7+5;5,1);1);;;7)=""CN"")+(DECALER(FU13;PLAFOND(MOD(FT7+5;5,1);1);;;7)=""MA"")+(DECALER(FU13;PLAFOND(MOD(FT7+5;5,1);1);;;7)=""CSS"")+(DECALER(FU13;PLAFOND(MOD(FT7+5;5,1);1);;;7)=""CD"")+(DECALER(FU13;PLAFOND(MOD(FT7+5;5,1);1);;;7)=""ECH""))=0;PLAFOND(MOD(FT7+5;5,1);1)))))))"
Selection.AutoFill Destination:=Range("FU7:TU7"), Type:=xlFillDefault

End Sub
Le 14/01/2018 à 11:23
Steelson a écrit :
Sub maformule()

Range("FU7").Select
Selection.FormulaLocal = " =SI(JOURSEM(FU3)<>2;FT7;" & _
"SI(SOMMEPROD((DECALER(FU13;PLAFOND(MOD(FT7+1;5,1);1);;;7)=""CP"")+(DECALER(FU13;PLAFOND(MOD(FT7+1;5,1);1);;;7)=""FOR"")+(DECALER(FU13;PLAFOND(MOD(FT7+1;5,1);1);;;7)=""CN"")+(DECALER(FU13;PLAFOND(MOD(FT7+1;5,1);1);;;7)=""MA"")+(DECALER(FU13;PLAFOND(MOD(FT7+1;5,1);1);;;7)=""CSS"")+(DECALER(FU13;PLAFOND(MOD(FT7+1;5,1);1);;;7)=""CD"")+(DECALER(FU13;PLAFOND(MOD(FT7+1;5,1);1);;;7)=""ECH""))=0;PLAFOND(MOD(FT7+1;5,1);1);" & _
"SI(SOMMEPROD((DECALER(FU13;PLAFOND(MOD(FT7+2;5,1);1);;;7)=""CP"")+(DECALER(FU13;PLAFOND(MOD(FT7+2;5,1);1);;;7)=""FOR"")+(DECALER(FU13;PLAFOND(MOD(FT7+2;5,1);1);;;7)=""CN"")+(DECALER(FU13;PLAFOND(MOD(FT7+2;5,1);1);;;7)=""MA"")+(DECALER(FU13;PLAFOND(MOD(FT7+2;5,1);1);;;7)=""CSS"")+(DECALER(FU13;PLAFOND(MOD(FT7+2;5,1);1);;;7)=""CD"")+(DECALER(FU13;PLAFOND(MOD(FT7+2;5,1);1);;;7)=""ECH""))=0;PLAFOND(MOD(FT7+2;5,1);1);" & _
"SI(SOMMEPROD((DECALER(FU13;PLAFOND(MOD(FT7+3;5,1);1);;;7)=""CP"")+(DECALER(FU13;PLAFOND(MOD(FT7+3;5,1);1);;;7)=""FOR"")+(DECALER(FU13;PLAFOND(MOD(FT7+3;5,1);1);;;7)=""CN"")+(DECALER(FU13;PLAFOND(MOD(FT7+3;5,1);1);;;7)=""MA"")+(DECALER(FU13;PLAFOND(MOD(FT7+3;5,1);1);;;7)=""CSS"")+(DECALER(FU13;PLAFOND(MOD(FT7+3;5,1);1);;;7)=""CD"")+(DECALER(FU13;PLAFOND(MOD(FT7+3;5,1);1);;;7)=""ECH""))=0;PLAFOND(MOD(FT7+3;5,1);1);" & _
"SI(SOMMEPROD((DECALER(FU13;PLAFOND(MOD(FT7+4;5,1);1);;;7)=""CP"")+(DECALER(FU13;PLAFOND(MOD(FT7+4;5,1);1);;;7)=""FOR"")+(DECALER(FU13;PLAFOND(MOD(FT7+4;5,1);1);;;7)=""CN"")+(DECALER(FU13;PLAFOND(MOD(FT7+4;5,1);1);;;7)=""MA"")+(DECALER(FU13;PLAFOND(MOD(FT7+4;5,1);1);;;7)=""CSS"")+(DECALER(FU13;PLAFOND(MOD(FT7+4;5,1);1);;;7)=""CD"")+(DECALER(FU13;PLAFOND(MOD(FT7+4;5,1);1);;;7)=""ECH""))=0;PLAFOND(MOD(FT7+4;5,1);1);" & _
"SI(SOMMEPROD((DECALER(FU13;PLAFOND(MOD(FT7+5;5,1);1);;;7)=""CP"")+(DECALER(FU13;PLAFOND(MOD(FT7+5;5,1);1);;;7)=""FOR"")+(DECALER(FU13;PLAFOND(MOD(FT7+5;5,1);1);;;7)=""CN"")+(DECALER(FU13;PLAFOND(MOD(FT7+5;5,1);1);;;7)=""MA"")+(DECALER(FU13;PLAFOND(MOD(FT7+5;5,1);1);;;7)=""CSS"")+(DECALER(FU13;PLAFOND(MOD(FT7+5;5,1);1);;;7)=""CD"")+(DECALER(FU13;PLAFOND(MOD(FT7+5;5,1);1);;;7)=""ECH""))=0;PLAFOND(MOD(FT7+5;5,1);1)))))))"
Selection.AutoFill Destination:=Range("FU7:TU7"), Type:=xlFillDefault

End Sub

re merci

ya un petit souci ta macro me met la formule au lieu du resultat de la formule

Le 14/01/2018 à 11:26

ajoute à la fin

    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Le 14/01/2018 à 11:32
Steelson a écrit :

ajoute à la fin

    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

toujours le meme souci

Le 14/01/2018 à 11:49

Ce n'est pas possible avec xlPasteValues !!

Sub maformule()

Range("FU7").Select
Selection.FormulaLocal = " =SI(JOURSEM(FU3)<>2;FT7;" & _
"SI(SOMMEPROD((DECALER(FU13;PLAFOND(MOD(FT7+1;5,1);1);;;7)=""CP"")+(DECALER(FU13;PLAFOND(MOD(FT7+1;5,1);1);;;7)=""FOR"")+(DECALER(FU13;PLAFOND(MOD(FT7+1;5,1);1);;;7)=""CN"")+(DECALER(FU13;PLAFOND(MOD(FT7+1;5,1);1);;;7)=""MA"")+(DECALER(FU13;PLAFOND(MOD(FT7+1;5,1);1);;;7)=""CSS"")+(DECALER(FU13;PLAFOND(MOD(FT7+1;5,1);1);;;7)=""CD"")+(DECALER(FU13;PLAFOND(MOD(FT7+1;5,1);1);;;7)=""ECH""))=0;PLAFOND(MOD(FT7+1;5,1);1);" & _
"SI(SOMMEPROD((DECALER(FU13;PLAFOND(MOD(FT7+2;5,1);1);;;7)=""CP"")+(DECALER(FU13;PLAFOND(MOD(FT7+2;5,1);1);;;7)=""FOR"")+(DECALER(FU13;PLAFOND(MOD(FT7+2;5,1);1);;;7)=""CN"")+(DECALER(FU13;PLAFOND(MOD(FT7+2;5,1);1);;;7)=""MA"")+(DECALER(FU13;PLAFOND(MOD(FT7+2;5,1);1);;;7)=""CSS"")+(DECALER(FU13;PLAFOND(MOD(FT7+2;5,1);1);;;7)=""CD"")+(DECALER(FU13;PLAFOND(MOD(FT7+2;5,1);1);;;7)=""ECH""))=0;PLAFOND(MOD(FT7+2;5,1);1);" & _
"SI(SOMMEPROD((DECALER(FU13;PLAFOND(MOD(FT7+3;5,1);1);;;7)=""CP"")+(DECALER(FU13;PLAFOND(MOD(FT7+3;5,1);1);;;7)=""FOR"")+(DECALER(FU13;PLAFOND(MOD(FT7+3;5,1);1);;;7)=""CN"")+(DECALER(FU13;PLAFOND(MOD(FT7+3;5,1);1);;;7)=""MA"")+(DECALER(FU13;PLAFOND(MOD(FT7+3;5,1);1);;;7)=""CSS"")+(DECALER(FU13;PLAFOND(MOD(FT7+3;5,1);1);;;7)=""CD"")+(DECALER(FU13;PLAFOND(MOD(FT7+3;5,1);1);;;7)=""ECH""))=0;PLAFOND(MOD(FT7+3;5,1);1);" & _
"SI(SOMMEPROD((DECALER(FU13;PLAFOND(MOD(FT7+4;5,1);1);;;7)=""CP"")+(DECALER(FU13;PLAFOND(MOD(FT7+4;5,1);1);;;7)=""FOR"")+(DECALER(FU13;PLAFOND(MOD(FT7+4;5,1);1);;;7)=""CN"")+(DECALER(FU13;PLAFOND(MOD(FT7+4;5,1);1);;;7)=""MA"")+(DECALER(FU13;PLAFOND(MOD(FT7+4;5,1);1);;;7)=""CSS"")+(DECALER(FU13;PLAFOND(MOD(FT7+4;5,1);1);;;7)=""CD"")+(DECALER(FU13;PLAFOND(MOD(FT7+4;5,1);1);;;7)=""ECH""))=0;PLAFOND(MOD(FT7+4;5,1);1);" & _
"SI(SOMMEPROD((DECALER(FU13;PLAFOND(MOD(FT7+5;5,1);1);;;7)=""CP"")+(DECALER(FU13;PLAFOND(MOD(FT7+5;5,1);1);;;7)=""FOR"")+(DECALER(FU13;PLAFOND(MOD(FT7+5;5,1);1);;;7)=""CN"")+(DECALER(FU13;PLAFOND(MOD(FT7+5;5,1);1);;;7)=""MA"")+(DECALER(FU13;PLAFOND(MOD(FT7+5;5,1);1);;;7)=""CSS"")+(DECALER(FU13;PLAFOND(MOD(FT7+5;5,1);1);;;7)=""CD"")+(DECALER(FU13;PLAFOND(MOD(FT7+5;5,1);1);;;7)=""ECH""))=0;PLAFOND(MOD(FT7+5;5,1);1)))))))"
Selection.AutoFill Destination:=Range("FU7:TU7"), Type:=xlFillDefault

Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

End Sub
Le 14/01/2018 à 13:03

Re

j'ai essayé comme ca mais ne fonctionne pas

Sub mule()

Range("FU7").Select
Selection.FormulaLocal = " =SI(JOURSEM(FU3)<>2;FT7;" & _
"SI(SOMMEPROD((DECALER(FU13;PLAFOND(MOD(FT7+1;5,1);1);;;7)=""CP"")+(DECALER(FU13;PLAFOND(MOD(FT7+1;5,1);1);;;7)=""FOR"")+(DECALER(FU13;PLAFOND(MOD(FT7+1;5,1);1);;;7)=""CN"")+(DECALER(FU13;PLAFOND(MOD(FT7+1;5,1);1);;;7)=""MA"")+(DECALER(FU13;PLAFOND(MOD(FT7+1;5,1);1);;;7)=""CSS"")+(DECALER(FU13;PLAFOND(MOD(FT7+1;5,1);1);;;7)=""CD"")+(DECALER(FU13;PLAFOND(MOD(FT7+1;5,1);1);;;7)=""ECH""))=0;PLAFOND(MOD(FT7+1;5,1);1);" & _
"SI(SOMMEPROD((DECALER(FU13;PLAFOND(MOD(FT7+2;5,1);1);;;7)=""CP"")+(DECALER(FU13;PLAFOND(MOD(FT7+2;5,1);1);;;7)=""FOR"")+(DECALER(FU13;PLAFOND(MOD(FT7+2;5,1);1);;;7)=""CN"")+(DECALER(FU13;PLAFOND(MOD(FT7+2;5,1);1);;;7)=""MA"")+(DECALER(FU13;PLAFOND(MOD(FT7+2;5,1);1);;;7)=""CSS"")+(DECALER(FU13;PLAFOND(MOD(FT7+2;5,1);1);;;7)=""CD"")+(DECALER(FU13;PLAFOND(MOD(FT7+2;5,1);1);;;7)=""ECH""))=0;PLAFOND(MOD(FT7+2;5,1);1);" & _
"SI(SOMMEPROD((DECALER(FU13;PLAFOND(MOD(FT7+3;5,1);1);;;7)=""CP"")+(DECALER(FU13;PLAFOND(MOD(FT7+3;5,1);1);;;7)=""FOR"")+(DECALER(FU13;PLAFOND(MOD(FT7+3;5,1);1);;;7)=""CN"")+(DECALER(FU13;PLAFOND(MOD(FT7+3;5,1);1);;;7)=""MA"")+(DECALER(FU13;PLAFOND(MOD(FT7+3;5,1);1);;;7)=""CSS"")+(DECALER(FU13;PLAFOND(MOD(FT7+3;5,1);1);;;7)=""CD"")+(DECALER(FU13;PLAFOND(MOD(FT7+3;5,1);1);;;7)=""ECH""))=0;PLAFOND(MOD(FT7+3;5,1);1);" & _
"SI(SOMMEPROD((DECALER(FU13;PLAFOND(MOD(FT7+4;5,1);1);;;7)=""CP"")+(DECALER(FU13;PLAFOND(MOD(FT7+4;5,1);1);;;7)=""FOR"")+(DECALER(FU13;PLAFOND(MOD(FT7+4;5,1);1);;;7)=""CN"")+(DECALER(FU13;PLAFOND(MOD(FT7+4;5,1);1);;;7)=""MA"")+(DECALER(FU13;PLAFOND(MOD(FT7+4;5,1);1);;;7)=""CSS"")+(DECALER(FU13;PLAFOND(MOD(FT7+4;5,1);1);;;7)=""CD"")+(DECALER(FU13;PLAFOND(MOD(FT7+4;5,1);1);;;7)=""ECH""))=0;PLAFOND(MOD(FT7+4;5,1);1);" & _
"SI(SOMMEPROD((DECALER(FU13;PLAFOND(MOD(FT7+5;5,1);1);;;7)=""CP"")+(DECALER(FU13;PLAFOND(MOD(FT7+5;5,1);1);;;7)=""FOR"")+(DECALER(FU13;PLAFOND(MOD(FT7+5;5,1);1);;;7)=""CN"")+(DECALER(FU13;PLAFOND(MOD(FT7+5;5,1);1);;;7)=""MA"")+(DECALER(FU13;PLAFOND(MOD(FT7+5;5,1);1);;;7)=""CSS"")+(DECALER(FU13;PLAFOND(MOD(FT7+5;5,1);1);;;7)=""CD"")+(DECALER(FU13;PLAFOND(MOD(FT7+5;5,1);1);;;7)=""ECH""))=0;PLAFOND(MOD(FT7+5;5,1);1)))))))"
Selection.AutoFill Destination:=Range("FU7:TU7"), Type:=xlFillDefault
Range("FU7:TU7").Value = Range("FU7:TU7").Value
End Sub
Le 14/01/2018 à 13:29

désolé,

il y avait un espace en trop !

Sub mule()
Range("FU7").Select
Selection.FormulaLocal = "=SI(JOURSEM(FU3)<>2;FT7;" & _
"SI(SOMMEPROD((DECALER(FU13;PLAFOND(MOD(FT7+1;5,1);1);;;7)=""CP"")+(DECALER(FU13;PLAFOND(MOD(FT7+1;5,1);1);;;7)=""FOR"")+(DECALER(FU13;PLAFOND(MOD(FT7+1;5,1);1);;;7)=""CN"")+(DECALER(FU13;PLAFOND(MOD(FT7+1;5,1);1);;;7)=""MA"")+(DECALER(FU13;PLAFOND(MOD(FT7+1;5,1);1);;;7)=""CSS"")+(DECALER(FU13;PLAFOND(MOD(FT7+1;5,1);1);;;7)=""CD"")+(DECALER(FU13;PLAFOND(MOD(FT7+1;5,1);1);;;7)=""ECH""))=0;PLAFOND(MOD(FT7+1;5,1);1);" & _
"SI(SOMMEPROD((DECALER(FU13;PLAFOND(MOD(FT7+2;5,1);1);;;7)=""CP"")+(DECALER(FU13;PLAFOND(MOD(FT7+2;5,1);1);;;7)=""FOR"")+(DECALER(FU13;PLAFOND(MOD(FT7+2;5,1);1);;;7)=""CN"")+(DECALER(FU13;PLAFOND(MOD(FT7+2;5,1);1);;;7)=""MA"")+(DECALER(FU13;PLAFOND(MOD(FT7+2;5,1);1);;;7)=""CSS"")+(DECALER(FU13;PLAFOND(MOD(FT7+2;5,1);1);;;7)=""CD"")+(DECALER(FU13;PLAFOND(MOD(FT7+2;5,1);1);;;7)=""ECH""))=0;PLAFOND(MOD(FT7+2;5,1);1);" & _
"SI(SOMMEPROD((DECALER(FU13;PLAFOND(MOD(FT7+3;5,1);1);;;7)=""CP"")+(DECALER(FU13;PLAFOND(MOD(FT7+3;5,1);1);;;7)=""FOR"")+(DECALER(FU13;PLAFOND(MOD(FT7+3;5,1);1);;;7)=""CN"")+(DECALER(FU13;PLAFOND(MOD(FT7+3;5,1);1);;;7)=""MA"")+(DECALER(FU13;PLAFOND(MOD(FT7+3;5,1);1);;;7)=""CSS"")+(DECALER(FU13;PLAFOND(MOD(FT7+3;5,1);1);;;7)=""CD"")+(DECALER(FU13;PLAFOND(MOD(FT7+3;5,1);1);;;7)=""ECH""))=0;PLAFOND(MOD(FT7+3;5,1);1);" & _
"SI(SOMMEPROD((DECALER(FU13;PLAFOND(MOD(FT7+4;5,1);1);;;7)=""CP"")+(DECALER(FU13;PLAFOND(MOD(FT7+4;5,1);1);;;7)=""FOR"")+(DECALER(FU13;PLAFOND(MOD(FT7+4;5,1);1);;;7)=""CN"")+(DECALER(FU13;PLAFOND(MOD(FT7+4;5,1);1);;;7)=""MA"")+(DECALER(FU13;PLAFOND(MOD(FT7+4;5,1);1);;;7)=""CSS"")+(DECALER(FU13;PLAFOND(MOD(FT7+4;5,1);1);;;7)=""CD"")+(DECALER(FU13;PLAFOND(MOD(FT7+4;5,1);1);;;7)=""ECH""))=0;PLAFOND(MOD(FT7+4;5,1);1);" & _
"SI(SOMMEPROD((DECALER(FU13;PLAFOND(MOD(FT7+5;5,1);1);;;7)=""CP"")+(DECALER(FU13;PLAFOND(MOD(FT7+5;5,1);1);;;7)=""FOR"")+(DECALER(FU13;PLAFOND(MOD(FT7+5;5,1);1);;;7)=""CN"")+(DECALER(FU13;PLAFOND(MOD(FT7+5;5,1);1);;;7)=""MA"")+(DECALER(FU13;PLAFOND(MOD(FT7+5;5,1);1);;;7)=""CSS"")+(DECALER(FU13;PLAFOND(MOD(FT7+5;5,1);1);;;7)=""CD"")+(DECALER(FU13;PLAFOND(MOD(FT7+5;5,1);1);;;7)=""ECH""))=0;PLAFOND(MOD(FT7+5;5,1);1)))))))"
Selection.AutoFill Destination:=Range("FU7:TU7"), Type:=xlFillDefault
Range("FU7:TU7").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub
Le 14/01/2018 à 13:40
Steelson a écrit :

désolé,

il y avait un espace en trop !

Sub mule()
Range("FU7").Select
Selection.FormulaLocal = "=SI(JOURSEM(FU3)<>2;FT7;" & _
"SI(SOMMEPROD((DECALER(FU13;PLAFOND(MOD(FT7+1;5,1);1);;;7)=""CP"")+(DECALER(FU13;PLAFOND(MOD(FT7+1;5,1);1);;;7)=""FOR"")+(DECALER(FU13;PLAFOND(MOD(FT7+1;5,1);1);;;7)=""CN"")+(DECALER(FU13;PLAFOND(MOD(FT7+1;5,1);1);;;7)=""MA"")+(DECALER(FU13;PLAFOND(MOD(FT7+1;5,1);1);;;7)=""CSS"")+(DECALER(FU13;PLAFOND(MOD(FT7+1;5,1);1);;;7)=""CD"")+(DECALER(FU13;PLAFOND(MOD(FT7+1;5,1);1);;;7)=""ECH""))=0;PLAFOND(MOD(FT7+1;5,1);1);" & _
"SI(SOMMEPROD((DECALER(FU13;PLAFOND(MOD(FT7+2;5,1);1);;;7)=""CP"")+(DECALER(FU13;PLAFOND(MOD(FT7+2;5,1);1);;;7)=""FOR"")+(DECALER(FU13;PLAFOND(MOD(FT7+2;5,1);1);;;7)=""CN"")+(DECALER(FU13;PLAFOND(MOD(FT7+2;5,1);1);;;7)=""MA"")+(DECALER(FU13;PLAFOND(MOD(FT7+2;5,1);1);;;7)=""CSS"")+(DECALER(FU13;PLAFOND(MOD(FT7+2;5,1);1);;;7)=""CD"")+(DECALER(FU13;PLAFOND(MOD(FT7+2;5,1);1);;;7)=""ECH""))=0;PLAFOND(MOD(FT7+2;5,1);1);" & _
"SI(SOMMEPROD((DECALER(FU13;PLAFOND(MOD(FT7+3;5,1);1);;;7)=""CP"")+(DECALER(FU13;PLAFOND(MOD(FT7+3;5,1);1);;;7)=""FOR"")+(DECALER(FU13;PLAFOND(MOD(FT7+3;5,1);1);;;7)=""CN"")+(DECALER(FU13;PLAFOND(MOD(FT7+3;5,1);1);;;7)=""MA"")+(DECALER(FU13;PLAFOND(MOD(FT7+3;5,1);1);;;7)=""CSS"")+(DECALER(FU13;PLAFOND(MOD(FT7+3;5,1);1);;;7)=""CD"")+(DECALER(FU13;PLAFOND(MOD(FT7+3;5,1);1);;;7)=""ECH""))=0;PLAFOND(MOD(FT7+3;5,1);1);" & _
"SI(SOMMEPROD((DECALER(FU13;PLAFOND(MOD(FT7+4;5,1);1);;;7)=""CP"")+(DECALER(FU13;PLAFOND(MOD(FT7+4;5,1);1);;;7)=""FOR"")+(DECALER(FU13;PLAFOND(MOD(FT7+4;5,1);1);;;7)=""CN"")+(DECALER(FU13;PLAFOND(MOD(FT7+4;5,1);1);;;7)=""MA"")+(DECALER(FU13;PLAFOND(MOD(FT7+4;5,1);1);;;7)=""CSS"")+(DECALER(FU13;PLAFOND(MOD(FT7+4;5,1);1);;;7)=""CD"")+(DECALER(FU13;PLAFOND(MOD(FT7+4;5,1);1);;;7)=""ECH""))=0;PLAFOND(MOD(FT7+4;5,1);1);" & _
"SI(SOMMEPROD((DECALER(FU13;PLAFOND(MOD(FT7+5;5,1);1);;;7)=""CP"")+(DECALER(FU13;PLAFOND(MOD(FT7+5;5,1);1);;;7)=""FOR"")+(DECALER(FU13;PLAFOND(MOD(FT7+5;5,1);1);;;7)=""CN"")+(DECALER(FU13;PLAFOND(MOD(FT7+5;5,1);1);;;7)=""MA"")+(DECALER(FU13;PLAFOND(MOD(FT7+5;5,1);1);;;7)=""CSS"")+(DECALER(FU13;PLAFOND(MOD(FT7+5;5,1);1);;;7)=""CD"")+(DECALER(FU13;PLAFOND(MOD(FT7+5;5,1);1);;;7)=""ECH""))=0;PLAFOND(MOD(FT7+5;5,1);1)))))))"
Selection.AutoFill Destination:=Range("FU7:TU7"), Type:=xlFillDefault
Range("FU7:TU7").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub

re

yes super merci beaucoup ca fonctionne

Rechercher des sujets similaires à "comment copier coller valeur formule"