Copier/coller valeur

Le 27/10/2010 à 10:11

Bonjour !

J'ai crée un planning où j'ai inséré des fonctions pour l'année, le mois, le n° de semaine et les jours.

Est-ce qu'il existe un code pour pouvoir faire copier/coller le tableau entier avec les formules sauf la ligne 2 (où il y a l'année, le mois et le n°de semaine) où je voudrais figer les valeurs ?

Avec l'aide de ce forum, j'ai réussi avec le collage spécial mais il faut que je fasse plusieurs manipulations. J'aurais voulu que ça se fasse automatiquement.

Merci d'avance !

30planning.zip (13.16 Ko)

Le 27/10/2010 à 10:23

si tu as réussi à le faire manuellement, tente l'enregistreur de macro;

il fait des miracles, même avec une buse comme moi en macro

tu le connais un peu ? il mérite que tu l'essayes sur de petites manœuvres avant de te lancer dans l'enchaînement de plusieurs

bgrvfe

Le 27/10/2010 à 10:30

re,

Justement j'aurais besoin d'aide en ce qui concerne la macro...

J'ai trouvé la macro utilisée pour la feuille 2, je voudrais que cette macro soit effective pour les autres feuilles qui seront insérées dans le classeur (en fait de la feuille 2 à X) :

<html xmlns:o="urn:schemas-microsoft-com:office:office"

xmlns:x="urn:schemas-microsoft-com:office:excel"

xmlns="http://www.w3.org/TR/REC-html40">

<head>

<style>

<!--table

{mso-displayed-decimal-separator:"\,";

mso-displayed-thousand-separator:" ";}

@page

{margin:.98in .79in .98in .79in;

mso-header-margin:.49in;

mso-footer-margin:.49in;}

-->

</style>

<![if !supportTabStrip]><script language="JavaScript">

<!--

function fnUpdateTabs()

{

if (parent.window.g_iIEVer>=4) {

if (parent.document.readyState=="complete"

&& parent.frames['frTabs'].document.readyState=="complete")

parent.fnSetActiveSheet(1);

else

window.setTimeout("fnUpdateTabs();",150);

}

if (window.name!="frSheet")

window.location.replace("../planning.htm");

else

fnUpdateTabs();

//-->

</script>

<![endif]><!--[if gte mso 9]><xml>

<x:WorksheetOptions>

<x:DefaultRowHeight>300</x:DefaultRowHeight>

<x:DefaultColWidth>10</x:DefaultColWidth>

<x:CodeName>Feuil4</x:CodeName>

<x:Selected/>

<x:Panes>

<x:Pane>

<x:Number>3</x:Number>

<x:ActiveRow>2</x:ActiveRow>

<x:ActiveCol>9</x:ActiveCol>

</x:Pane>

</x:Panes>

<x:ProtectContents>False</x:ProtectContents>

<x:ProtectObjects>False</x:ProtectObjects>

<x:ProtectScenarios>False</x:ProtectScenarios>

</x:WorksheetOptions>

<x:ConditionalFormatting>

<x:Range>$B$6:$B$33,$D$6:$D$33,$H$6:$H$33,$J$6:$J$33,$F$6:$F$33</x:Range>

<x:Condition>

<x:Qualifier>Equal</x:Qualifier>

<x:Value1>"MAL"</x:Value1>

<x:Format Style='background:silver'/>

</x:Condition>

<x:Condition>

<x:Qualifier>Equal</x:Qualifier>

<x:Value1>"CP"</x:Value1>

<x:Format Style='background:#FFFF99'/>

</x:Condition>

<x:Condition>

<x:Qualifier>Equal</x:Qualifier>

<x:Value1>"ADM"</x:Value1>

<x:Format Style='background:#FF8080'/>

</x:Condition>

</x:ConditionalFormatting>

<x:ConditionalFormatting>

<x:Range>$A$36:$M$36</x:Range>

<x:Condition>

<x:Value1>LEN(TRIM(A36))>0</x:Value1>

<x:Format Style='background:#FFCC00'/>

</x:Condition>

</x:ConditionalFormatting>

<x:ConditionalFormatting>

<x:Range>$A$37:$M$37</x:Range>

<x:Condition>

<x:Value1>LEN(TRIM(A37))>0</x:Value1>

<x:Format Style='background:#99CCFF'/>

</x:Condition>

</x:ConditionalFormatting>

<x:ConditionalFormatting>

<x:Range>$A$38:$M$38</x:Range>

<x:Condition>

<x:Value1>LEN(TRIM(A38))>0</x:Value1>

<x:Format Style='background:#CC99FF'/>

</x:Condition>

</x:ConditionalFormatting>

<x:ConditionalFormatting>

<x:Range>$A$39:$M$39</x:Range>

<x:Condition>

<x:Value1>LEN(TRIM(A39))>0</x:Value1>

<x:Format Style='background:lime'/>

</x:Condition>

</x:ConditionalFormatting>

<x:ConditionalFormatting>

<x:Range>$A$40:$M$40</x:Range>

<x:Condition>

<x:Value1>LEN(TRIM(A40))>0</x:Value1>

<x:Format Style='background:#FF8080'/>

</x:Condition>

</x:ConditionalFormatting>

<x:ConditionalFormatting>

<x:Range>$A$41:$M$41</x:Range>

<x:Condition>

<x:Value1>LEN(TRIM(A41))>0</x:Value1>

<x:Format Style='background:#FFFF99'/>

</x:Condition>

</x:ConditionalFormatting>

<x:ConditionalFormatting>

<x:Range>$A$42:$M$42,$A$44:$M$44</x:Range>

<x:Condition>

<x:Value1>LEN(TRIM(A42))>0</x:Value1>

<x:Format Style='background:silver'/>

</x:Condition>

</x:ConditionalFormatting>

<x:ConditionalFormatting>

<x:Range>$A$46:$N$46</x:Range>

<x:Condition>

<x:Value1>LEN(TRIM(A46))>0</x:Value1>

<x:Format Style='background:yellow'/>

</x:Condition>

</x:ConditionalFormatting>

<x:ConditionalFormatting>

<x:Range>$A$47:$N$47</x:Range>

<x:Condition>

<x:Value1>LEN(TRIM(A47))>0</x:Value1>

<x:Format Style='background:#FF99CC'/>

</x:Condition>

</x:ConditionalFormatting>

<x:ConditionalFormatting>

<x:Range>$A$48:$N$48</x:Range>

<x:Condition>

<x:Value1>LEN(TRIM(A48))>0</x:Value1>

<x:Format Style='background:#FF6600'/>

</x:Condition>

</x:ConditionalFormatting>

<x:ConditionalFormatting>

<x:Range>$A$49:$N$49</x:Range>

<x:Condition>

<x:Value1>LEN(TRIM(A49))>0</x:Value1>

<x:Format Style='background:#339966'/>

</x:Condition>

</x:ConditionalFormatting>

<x:ConditionalFormatting>

<x:Range>$C$6:$C$32,$E$6:$E$32,$G$6:$G$32,$I$6:$I$32,$K$6:$K$32</x:Range>

<x:Condition>

<x:Qualifier>Equal</x:Qualifier>

<x:Value1>"RQ"</x:Value1>

<x:Format Style='background:#339966'/>

</x:Condition>

<x:Condition>

<x:Qualifier>Equal</x:Qualifier>

<x:Value1>"PTS"</x:Value1>

<x:Format Style='background:#FF6600'/>

</x:Condition>

<x:Condition>

<x:Qualifier>Equal</x:Qualifier>

<x:Value1>"CUCS"</x:Value1>

<x:Format Style='background:#FF99CC'/>

</x:Condition>

</x:ConditionalFormatting>

</xml><![endif]-->

</head>

<table x:str border=0 cellpadding=0 cellspacing=0 width=1472 style='border-collapse:

collapse;table-layout:fixed;width:1110pt'>

<col class=xl24 width=174 style='mso-width-source:userset;mso-width-alt:6363;

width:131pt'>

<col class=xl24 width=110 span=10 style='mso-width-source:userset;mso-width-alt:

4022;width:83pt'>

<col class=xl24 width=20 style='mso-width-source:userset;mso-width-alt:731;

width:15pt'>

<col class=xl24 width=88 style='mso-width-source:userset;mso-width-alt:3218;

width:66pt'>

<col class=xl24 width=90 style='mso-width-source:userset;mso-width-alt:3291;

width:68pt'>

<td colspan=11 height=23 class=xl70 width=1274 style='height:17.25pt;

width:961pt'>RELEVE HEBDOMADAIRE DES HEURES PAR ACTIVITE PAR SALARIE</td>

</tr>

<td height=18 class=xl26 style='height:13.5pt' x:str="ANNEE : ">ANNEE :<span

style='mso-spacerun:yes'> </span></td>

<td class=xl27>octobre</td>

<td class=xl26>SEMAINE<span style='mso-spacerun:yes'> </span>:</td>

</tr>

<td class=xl26>FONCTION :</td>

</tr>

<td colspan=2 class=xl71 style='border-right:1.0pt solid black;border-left:

none' x:num="40476"

x:fmla="=($F$2-1)*7+DATE($B$2,1,5)-WEEKDAY(DATE($B$2,1,4),2)">lundi 25</td>

<td colspan=2 class=xl73 style='border-right:1.0pt solid black;border-left:

none' x:num="40477"

x:fmla="=($F$2-1)*7+DATE($B$2,1,5)-WEEKDAY(DATE($B$2,1,4),2)+1">mardi 26</td>

<td colspan=2 class=xl73 style='border-right:1.0pt solid black;border-left:

none' x:num="40478"

x:fmla="=($F$2-1)*7+DATE($B$2,1,5)-WEEKDAY(DATE($B$2,1,4),2)+2">mercredi 27</td>

<td colspan=2 class=xl73 style='border-right:1.0pt solid black;border-left:

none' x:num="40479"

x:fmla="=($F$2-1)*7+DATE($B$2,1,5)-WEEKDAY(DATE($B$2,1,4),2)+3">jeudi 28</td>

<td colspan=2 class=xl73 style='border-right:1.0pt solid black;border-left:

none' x:num="40480"

x:fmla="=($F$2-1)*7+DATE($B$2,1,5)-WEEKDAY(DATE($B$2,1,4),2)+4">vendredi 29</td>

</tr>

<td height=21 class=xl33 style='height:15.75pt'>HORAIRE</td>

<td class=xl34>Horaire</td>

<td class=xl34>Activité</td>

<td class=xl35>Horaire</td>

<td class=xl33>Activité</td>

<td class=xl34>Horaire</td>

<td class=xl34>Activité</td>

<td class=xl34>Horaire</td>

<td class=xl35>Activité</td>

<td class=xl33>Horaire</td>

<td class=xl34>Activité</td>

</tr>

</tr>

</tr>

</tr>

</tr>

</tr>

</tr>

</tr>

</tr>

</tr>

</tr>

</tr>

</tr>

</tr>

</tr>

</tr>

</tr>

</tr>

</tr>

</tr>

</tr>

</tr>

</tr>

</tr>

</tr>

</tr>

</tr>

</tr>

</tr>

<td height=21 class=xl44 colspan=2 style='height:15.75pt;mso-ignore:colspan;

border-right:1.0pt solid black'>RECAPITULATIF EN HEURES</td>

<td colspan=2 class=xl74 style='border-right:1.0pt solid black'>TOTAL SEMAINE</td>

</tr>

<td height=21 class=xl25 style='height:15.75pt'>HORAIRES</td>

</tr>

<td height=20 class=xl46 width=174 style='height:15.0pt;height:15.0pt;

mso-ignore:style;background:#FFCC00;mso-pattern:auto none'>EI EV</td>

<td class=xl47 style='mso-ignore:style;background:#FFCC00;mso-pattern:auto none'

x:num x:fmla="=(COUNTIF($B$6:$B$32,"EI EV"))*0.5">0</td>

<td class=xl49 style='mso-ignore:style;background:#FFCC00;mso-pattern:auto none'

x:num x:fmla="=(COUNTIF($D$6:$D$32,"EI EV"))*0.5">0</td>

<td class=xl49 style='mso-ignore:style;background:#FFCC00;mso-pattern:auto none'

x:num x:fmla="=(COUNTIF($F$6:$F$32,"EI EV"))*0.5">0</td>

<td class=xl49 style='mso-ignore:style;background:#FFCC00;mso-pattern:auto none'

x:num x:fmla="=(COUNTIF($H$6:$H$32,"EI EV"))*0.5">0</td>

<td class=xl49 style='mso-ignore:style;background:#FFCC00;mso-pattern:auto none'

x:num x:fmla="=(COUNTIF($J$6:$J$32,"EI EV"))*0.5">0</td>

<td colspan=2 class=xl76 style='mso-ignore:style;background:#FFCC00;

mso-pattern:auto none' x:num x:fmla="=B36+D36+F36+H36+J36">0</td>

</tr>

<td height=20 class=xl51 width=174 style='height:15.0pt;height:15.0pt;

height:15.0pt;mso-ignore:style;background:#99CCFF;mso-pattern:auto none'>EI

BAT</td>

<td class=xl52 style='border-top:none;mso-ignore:style;background:#99CCFF;

mso-pattern:auto none' x:num x:fmla="=(COUNTIF($B$6:$B$32,"EI BAT"))*0.5">0</td>

<td class=xl53 style='border-top:none;mso-ignore:style;background:#99CCFF;

mso-pattern:auto none' x:num x:fmla="=(COUNTIF($D$6:$D$32,"EI BAT"))*0.5">0</td>

<td class=xl53 style='border-top:none;mso-ignore:style;background:#99CCFF;

mso-pattern:auto none' x:num x:fmla="=(COUNTIF($F$6:$F$32,"EI BAT"))*0.5">0</td>

<td class=xl53 style='border-top:none;mso-ignore:style;background:#99CCFF;

mso-pattern:auto none' x:num x:fmla="=(COUNTIF($H$6:$H$32,"EI BAT"))*0.5">0</td>

<td class=xl53 style='border-top:none;mso-ignore:style;background:#99CCFF;

mso-pattern:auto none' x:num x:fmla="=(COUNTIF($J$6:$J$32,"EI BAT"))*0.5">0</td>

<td colspan=2 class=xl78 style='mso-ignore:style;background:#99CCFF;

mso-pattern:auto none' x:num x:fmla="=B37+D37+F37+H37+J37">0</td>

</tr>

<td height=20 class=xl51 width=174 style='height:15.0pt;height:15.0pt;

height:15.0pt;mso-ignore:style;background:#CC99FF;mso-pattern:auto none'>ACI

EV</td>

<td class=xl52 style='border-top:none;mso-ignore:style;background:#CC99FF;

mso-pattern:auto none' x:num x:fmla="=(COUNTIF($B$6:$B$32,"ACI EV"))*0.5">0</td>

<td class=xl53 style='border-top:none;mso-ignore:style;background:#CC99FF;

mso-pattern:auto none' x:num x:fmla="=(COUNTIF($D$6:$D$32,"ACI EV"))*0.5">0</td>

<td class=xl53 style='border-top:none;mso-ignore:style;background:#CC99FF;

mso-pattern:auto none' x:num x:fmla="=(COUNTIF($F$6:$F$32,"ACI EV"))*0.5">0</td>

<td class=xl53 style='border-top:none;mso-ignore:style;background:#CC99FF;

mso-pattern:auto none' x:num x:fmla="=(COUNTIF($H$6:$H$32,"ACI EV"))*0.5">0</td>

<td class=xl53 style='border-top:none;mso-ignore:style;background:#CC99FF;

mso-pattern:auto none' x:num x:fmla="=(COUNTIF($J$6:$J$32,"ACI EV"))*0.5">0</td>

<td colspan=2 class=xl78 style='mso-ignore:style;background:#CC99FF;

mso-pattern:auto none' x:num x:fmla="=B38+D38+F38+H38+J38">0</td>

</tr>

<td height=20 class=xl51 width=174 style='height:15.0pt;height:15.0pt;

height:15.0pt;mso-ignore:style;background:lime;mso-pattern:auto none'>ACI BAT</td>

<td class=xl52 style='border-top:none;mso-ignore:style;background:lime;

mso-pattern:auto none' x:num x:fmla="=(COUNTIF($B$6:$B$32,"ACI BAT"))*0.5">0</td>

<td class=xl53 style='border-top:none;mso-ignore:style;background:lime;

mso-pattern:auto none' x:num x:fmla="=(COUNTIF($D$6:$D$32,"ACI BAT"))*0.5">0</td>

<td class=xl53 style='border-top:none;mso-ignore:style;background:lime;

mso-pattern:auto none' x:num x:fmla="=(COUNTIF($F$6:$F$32,"ACI BAT"))*0.5">0</td>

<td class=xl53 style='border-top:none;mso-ignore:style;background:lime;

mso-pattern:auto none' x:num x:fmla="=(COUNTIF($H$6:$H$32,"ACI BAT"))*0.5">0</td>

<td class=xl53 style='border-top:none;mso-ignore:style;background:lime;

mso-pattern:auto none' x:num x:fmla="=(COUNTIF($J$6:$J$32,"ACI BAT"))*0.5">0</td>

<td colspan=2 class=xl78 style='mso-ignore:style;background:lime;mso-pattern:

auto none' x:num x:fmla="=B39+D39+F39+H39+J39">0</td>

</tr>

<td height=20 class=xl51 width=174 style='height:15.0pt;height:15.0pt;

height:15.0pt;mso-ignore:style;background:#FF8080;mso-pattern:auto none'>ADMINISTRATIF</td>

<td class=xl52 style='border-top:none;mso-ignore:style;background:#FF8080;

mso-pattern:auto none' x:num x:fmla="=(COUNTIF($B$6:$B$32,"ADM"))*0.5">0</td>

<td class=xl53 style='border-top:none;mso-ignore:style;background:#FF8080;

mso-pattern:auto none' x:num x:fmla="=(COUNTIF($D$6:$D$32,"ADM"))*0.5">0</td>

<td class=xl53 style='border-top:none;mso-ignore:style;background:#FF8080;

mso-pattern:auto none' x:num x:fmla="=(COUNTIF($F$6:$F$32,"ADM"))*0.5">0</td>

<td class=xl53 style='border-top:none;mso-ignore:style;background:#FF8080;

mso-pattern:auto none' x:num x:fmla="=(COUNTIF($H$6:$H$32,"ADM"))*0.5">0</td>

<td class=xl53 style='border-top:none;mso-ignore:style;background:#FF8080;

mso-pattern:auto none' x:num x:fmla="=(COUNTIF($J$6:$J$32,"ADM"))*0.5">0</td>

<td colspan=2 class=xl78 style='mso-ignore:style;background:#FF8080;

mso-pattern:auto none' x:num x:fmla="=B40+D40+F40+H40+J40">0</td>

</tr>

<td height=20 class=xl54 style='height:15.0pt;height:15.0pt;mso-ignore:style;

background:#FFFF99;mso-pattern:auto none'>CP</td>

<td class=xl52 style='border-top:none;mso-ignore:style;background:#FFFF99;

mso-pattern:auto none' x:num x:fmla="=(COUNTIF($B$6:$B$32,"CP"))*0.5">0</td>

<td class=xl53 style='border-top:none;mso-ignore:style;background:#FFFF99;

mso-pattern:auto none' x:num x:fmla="=(COUNTIF($D$6:$D$32,"CP"))*0.5">0</td>

<td class=xl53 style='border-top:none;mso-ignore:style;background:#FFFF99;

mso-pattern:auto none' x:num x:fmla="=(COUNTIF($F$6:$F$32,"CP"))*0.5">0</td>

<td class=xl53 style='border-top:none;mso-ignore:style;background:#FFFF99;

mso-pattern:auto none' x:num x:fmla="=(COUNTIF($H$6:$H$32,"CP"))*0.5">0</td>

<td class=xl53 style='border-top:none;mso-ignore:style;background:#FFFF99;

mso-pattern:auto none' x:num x:fmla="=(COUNTIF($J$6:$J$32,"CP"))*0.5">0</td>

<td colspan=2 class=xl78 style='mso-ignore:style;background:#FFFF99;

mso-pattern:auto none' x:num x:fmla="=B41+D41+F41+H41+J41">0</td>

</tr>

<td height=21 class=xl55 style='height:15.75pt;height:15.75pt;mso-ignore:

style;background:silver;mso-pattern:auto none'>MALADIE</td>

<td class=xl56 style='border-top:none;mso-ignore:style;background:silver;

mso-pattern:auto none' x:num x:fmla="=(COUNTIF($B$6:$B$32,"MAL"))*0.5">0</td>

<td class=xl57 style='border-top:none;mso-ignore:style;background:silver;

mso-pattern:auto none' x:num x:fmla="=(COUNTIF($D$6:$D$32,"MAL"))*0.5">0</td>

<td class=xl57 style='border-top:none;mso-ignore:style;background:silver;

mso-pattern:auto none' x:num x:fmla="=(COUNTIF($F$6:$F$32,"MAL"))*0.5">0</td>

<td class=xl57 style='border-top:none;mso-ignore:style;background:silver;

mso-pattern:auto none' x:num x:fmla="=(COUNTIF($H$6:$H$32,"MAL"))*0.5">0</td>

<td class=xl57 style='border-top:none;mso-ignore:style;background:silver;

mso-pattern:auto none' x:num x:fmla="=(COUNTIF($J$6:$J$32,"MAL"))*0.5">0</td>

<td colspan=2 class=xl80 style='mso-ignore:style;background:silver;

mso-pattern:auto none' x:num x:fmla="=B42+D42+F42+H42+J42">0</td>

</tr>

<td height=20 class=xl59 style='height:15.0pt'>TOTAL JOUR</td>

<td colspan=2 class=xl82 style='border-right:1.0pt solid black' x:num

x:fmla="=SUM(M36:N42)">0</td>

</tr>

</tr>

<td height=20 class=xl25 style='height:15.0pt'>ACTIVITES</td>

</tr>

<td height=20 class=xl65 style='height:15.0pt;mso-ignore:style;background:

yellow;mso-pattern:auto none'>CONSEIL GENERAL</td>

<td class=xl49 style='mso-ignore:style;background:yellow;mso-pattern:auto none'

x:num x:fmla="=(COUNTIF($C$6:$C$32,"CG"))*0.5">0</td>

<td class=xl49 style='border-left:none;mso-ignore:style;background:yellow;

mso-pattern:auto none' x:num x:fmla="=(COUNTIF($E$6:$E$32,"CG"))*0.5">0</td>

<td class=xl49 style='border-left:none;mso-ignore:style;background:yellow;

mso-pattern:auto none' x:num x:fmla="=(COUNTIF($G$6:$G$32,"CG"))*0.5">0</td>

<td class=xl49 style='border-left:none;mso-ignore:style;background:yellow;

mso-pattern:auto none' x:num x:fmla="=(COUNTIF($I$6:$I$32,"CG"))*0.5">0</td>

<td class=xl49 style='border-left:none;mso-ignore:style;background:yellow;

mso-pattern:auto none' x:num x:fmla="=(COUNTIF($K$6:$K$32,"CG"))*0.5">0</td>

<td colspan=2 class=xl76 style='mso-ignore:style;background:yellow;

mso-pattern:auto none' x:num x:fmla="=C46+E46+G46+I46+K46">0</td>

</tr>

<td height=20 class=xl51 width=174 style='height:15.0pt;height:15.0pt;

height:15.0pt;mso-ignore:style;background:#FF99CC;mso-pattern:auto none'>CUCS</td>

<td class=xl53 style='border-top:none;mso-ignore:style;background:#FF99CC;

mso-pattern:auto none' x:num x:fmla="=(COUNTIF($C$6:$C$32,"CUCS"))*0.5">0</td>

<td class=xl53 style='border-top:none;mso-ignore:style;background:#FF99CC;

mso-pattern:auto none' x:num x:fmla="=(COUNTIF($E$6:$E$32,"CUCS"))*0.5">0</td>

<td class=xl53 style='border-top:none none;mso-ignore:style;background:#FF99CC;

mso-pattern:auto none' x:num x:fmla="=(COUNTIF($G$6:$G$32,"CUCS"))*0.5">0</td>

<td class=xl53 style='border-top:none none;mso-ignore:style;background:#FF99CC;

mso-pattern:auto none' x:num x:fmla="=(COUNTIF($I$6:$I$32,"CUCS"))*0.5">0</td>

<td class=xl53 style='border-top:none none;mso-ignore:style;background:#FF99CC;

mso-pattern:auto none' x:num x:fmla="=(COUNTIF($K$6:$K$32,"CUCS"))*0.5">0</td>

<td colspan=2 class=xl78 style='mso-ignore:style;background:#FF99CC;

mso-pattern:auto none' x:num x:fmla="=C47+E47+G47+I47+K47">0</td>

</tr>

<td height=20 class=xl55 style='height:15.0pt;height:15.0pt;mso-ignore:style;

background:#FF6600;mso-pattern:auto none'>PTS</td>

<td class=xl53 style='border-top:none;mso-ignore:style;background:#FF6600;

mso-pattern:auto none' x:num x:fmla="=(COUNTIF($C$6:$C$32,"PTS"))*0.5">0</td>

<td class=xl53 style='border-top:none;mso-ignore:style;background:#FF6600;

mso-pattern:auto none' x:num x:fmla="=(COUNTIF($E$6:$E$32,"PTS"))*0.5">0</td>

<td class=xl53 style='border-top:none;mso-ignore:style;background:#FF6600;

mso-pattern:auto none' x:num x:fmla="=(COUNTIF($G$6:$G$32,"PTS"))*0.5">0</td>

<td class=xl53 style='border-top:none;mso-ignore:style;background:#FF6600;

mso-pattern:auto none' x:num x:fmla="=(COUNTIF($I$6:$I$32,"PTS"))*0.5">0</td>

<td class=xl53 style='border-top:none;mso-ignore:style;background:#FF6600;

mso-pattern:auto none' x:num x:fmla="=(COUNTIF($K$6:$K$32,"PTS"))*0.5">0</td>

<td colspan=2 class=xl78 style='mso-ignore:style;background:#FF6600;

mso-pattern:auto none' x:num x:fmla="=C48+E48+G48+I48+K48">0</td>

</tr>

<td height=20 class=xl67 style='height:15.0pt;mso-ignore:style;background:

#339966;mso-pattern:auto none'>REGIE DE QUARTIER</td>

<td class=xl57 style='border-top:none;mso-ignore:style;background:#339966;

mso-pattern:auto none' x:num x:fmla="=(COUNTIF($C$6:$C$32,"RQ"))*0.5">0</td>

<td class=xl68 style='border-top:none;mso-ignore:style;background:#339966;

mso-pattern:auto none' x:num x:fmla="=(COUNTIF($E$6:$E$32,"RQ"))*0.5">0</td>

<td class=xl57 style='border-top:none none;mso-ignore:style;background:#339966;

mso-pattern:auto none' x:num x:fmla="=(COUNTIF($G$6:$G$32,"RQ"))*0.5">0</td>

<td class=xl57 style='border-top:none;mso-ignore:style;background:#339966;

mso-pattern:auto none' x:num x:fmla="=(COUNTIF($I$6:$I$32,"RQ"))*0.5">0</td>

<td class=xl57 style='border-top:none;mso-ignore:style;background:#339966;

mso-pattern:auto none' x:num x:fmla="=(COUNTIF($K$6:$K$32,"RQ"))*0.5">0</td>

<td colspan=2 class=xl80 style='mso-ignore:style;background:#339966;

mso-pattern:auto none' x:num x:fmla="=C49+E49+G49+I49+K49">0</td>

</tr>

<td height=20 class=xl69 style='height:15.0pt'>TOTAL JOUR</td>

<td colspan=2 class=xl82 style='border-right:1.0pt solid black' x:num

x:fmla="=SUM(M46:N49)">0</td>

</tr>

</tr>

<![if supportMisalignedColumns]>

</tr>

<![endif]>

</table>

</body>

</html>

Merci !

Le 27/10/2010 à 10:53

Bonjour,

Ci-joint ton fichier sans macro mais avec une formule qui renvoie le numéro de la semaine en F2 en fonction du nom de l'onglet, c'est l'inverse de ce qu'on a fait dans ta précédenté question où une macro nommait l'onglet en fonction du numéro de semaine en F2.

J'ai utilisé en F2 cette formule :

=STXT(CELLULE("nomfichier");TROUVE("]";CELLULE("nomfichier"))+1;2)

Elle renvoie le nom complet du chemin + du fichier + de la feuille, par exemple C:\Mes Documents\[planning.xls]43.

La fonction cherche le "]" et renvoie les 2 chiffres après, ce qui correspond bien au numéro de la semaine.

Ensuite tes formules utilisent bien ce numéro pour calculer les dates de la semaine.

Pour le mois j'ai modifié en mettant =B4, je récupère ainsi lundi 25 octobre 2010 en semaine 43 et je mets un format mmmm pour n'avoir que "octobre".

Pour l'année j'ai tout simplement figé 2010 et enlevé la formule avec aujourdhui().

Pour 2011 tu n'as qu'à changer l'année en B2 pour que tout fonctionne, on peut difficilement faire plus simple et plus rapide.

Quand tu veux créer un nouveau planning, tu copies simplement une des feuilles (tu peux aussi faire un modèle comme on avait déjà dit précédemment) en faisant un clic droit sur l'onglet puis Déplacer ou Copier... et cocher créer une copie et tu renommes simplement l'onglet ET C'EST TOUT !!!

A+

44planning.zip (15.42 Ko)

Le 27/10/2010 à 11:16

Bonjour.

Pour copier ta feuille, tu peux essayer de copier ce code à mettre dans un module et à affecter à un bouton.

Sub copie()
    'On copie la feuille 2 et on la place après la dernière feuille
Worksheets("feuil2").Copy after:=Worksheets(Sheets.Count)
    'On copie la cellule F2
Range("F2").Copy
    'On sélectionne la dernière feuille et la cellule F2
Sheets(Sheets.Count).Range("F2").Select
    'On fait le collage spécial de valeur
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

Voilou.

Le 27/10/2010 à 11:42

pass-pass a écrit :

Bonjour.

Pour copier ta feuille, tu peux essayer de copier ce code à mettre dans un module et à affecter à un bouton.

Sub copie()
    'On copie la feuille 2 et on la place après la dernière feuille
Worksheets("feuil2").Copy after:=Worksheets(Sheets.Count)
    'On copie la cellule F2
Range("F2").Copy
    'On sélectionne la dernière feuille et la cellule F2
Sheets(Sheets.Count).Range("F2").Select
    'On fait le collage spécial de valeur
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

En fait, c'est la feuille 1 qui servira de modèle que je veux copier mais c'est pas le problème, il suffit de changer F2 en F1 dans le code.

Par contre, je dois le copier où ?? Si j'arrive à l'exécuter, je voudrais qu'il s'exécute en insérant une nouvelle feuille.

Le 27/10/2010 à 11:54

Re.

Tout d'abord, tu créé un bouton pour y affecter la macro. Ca peut être un bouton ou une forme automatique.

Nous n'avons pas la même version et je ne peux pas te dire où tu vas trouver cela.

Une fois que tu as créé ton bouton, tu clique droit puis "affecter une macro"

Ensuite, tu clique sur "Nouvelle"

De là, VBA va s'ouvrir. Si ce n'est pas le cas (ce qui n'est pas possible) , tu fais ALT et F11 en même temps.

Dans VBA, tu as un explorateur de projet (là où il y a une synthèse de toutes les feuille que tu as dans ton classeur)

Si ce n'est pas le cas, tu fais "Affichage" , "Explorateur de projet"

Ensuite, tu clique droit dans ton explorateur de projet, puis "Insérer", puis "Module"

Et tu copie le code que je t'ai donné.

Il n'y a pas besoin de faire toute cette manip si tu créé ton bouton de suite en faisant le clique droit pour affecter une nouvelle macro car VBA s'ouvre tout seul et te créé de suite un nouveau module.

En espérant avoir été assez clair dans mes explications.

Edit:

En fait, c'est la feuille 1 qui servira de modèle que je veux copier mais c'est pas le problème, il suffit de changer F2 en F1 dans le code.

Attention. F2 est une cellule. C'est la cellule qui te permet de faire le collage spécial.

Si tu veux changer la feuille de recopie, il faut que tu change cette ligne:

Worksheets("feuil2").Copy after:=Worksheets(Sheets.Count)

par celle ci

Worksheets("feuil1").Copy after:=Worksheets(Sheets.Count)

32copie-feuille.zip (20.99 Ko)

Le 27/10/2010 à 18:58

dachevid a écrit :
Ci-joint ton fichier sans macro mais avec une formule qui renvoie le numéro de la semaine en F2 en fonction du nom de l'onglet, c'est l'inverse de ce qu'on a fait dans ta précédenté question où une macro nommait l'onglet en fonction du numéro de semaine en F2.
J'ai utilisé en F2 cette formule :
=STXT(CELLULE("nomfichier");TROUVE("]";CELLULE("nomfichier"))+1;2)
Elle renvoie le nom complet du chemin + du fichier + de la feuille, par exemple C:\Mes Documents\[planning.xls]43.
La fonction cherche le "]" et renvoie les 2 chiffres après, ce qui correspond bien au numéro de la semaine.
Ensuite tes formules utilisent bien ce numéro pour calculer les dates de la semaine.

re,

Je pense utiliser tes formules qui sont, en effet, nettement plus simples que ce que j'avais fait.

Par contre, j'ai un problème avec la formule utilisée en F2. Quand j'insère une nouvelle feuille et que je la renomme du numéro de la semaine, ça me change le numéro de semaine sur toutes les feuilles.

Même la formule inverse ne marche pas (renommer l'onglet en fonction d'une cellule)

-- 27 Oct 2010, 21:53 --

elsype a écrit :
dachevid a écrit :
Ci-joint ton fichier sans macro mais avec une formule qui renvoie le numéro de la semaine en F2 en fonction du nom de l'onglet, c'est l'inverse de ce qu'on a fait dans ta précédenté question où une macro nommait l'onglet en fonction du numéro de semaine en F2.
J'ai utilisé en F2 cette formule :
=STXT(CELLULE("nomfichier");TROUVE("]";CELLULE("nomfichier"))+1;2)
Elle renvoie le nom complet du chemin + du fichier + de la feuille, par exemple C:\Mes Documents\[planning.xls]43.
La fonction cherche le "]" et renvoie les 2 chiffres après, ce qui correspond bien au numéro de la semaine.
Ensuite tes formules utilisent bien ce numéro pour calculer les dates de la semaine.
re,
Je pense utiliser tes formules qui sont, en effet, nettement plus simples que ce que j'avais fait.
Par contre, j'ai un problème avec la formule utilisée en F2. Quand j'insère une nouvelle feuille et que je la renomme du numéro de la semaine, ça me change le numéro de semaine sur toutes les feuilles.
Même la formule inverse ne marche pas (renommer l'onglet en fonction d'une cellule)

J'ai trouvé la formule qui marche :

=STXT(CELLULE("nomfichier";A1);TROUVE("]";CELLULE("nomfichier";A1))+1;2)

Ouf !!!

Je vous remercie tous de votre aide

Rechercher des sujets similaires à "copier coller valeur"