Ribouldingue
XLDnaute Nouveau
Bonjour à toutes et tous,
Tout d'abord, merci pour toutes les infos que j'ai pu trouvées jusqu'à maintenant sur ce forum. C'est la première fois que je poste un message mais sur ce coup là, je sèche !!!
Voilà mon problème :
J'ai créé un classeur qui comprend deux feuilles de calcul. La première est une feuille de saisie hebdomadaire("Saisie"). La seconde compile les données saisies chaque semaine ("Récap hebdo"). Les semaines y sont regroupées par colonne. Ex : semaine 1 = colonne B; semaine 2 = colonne C....semaine 52 = colonne BA
Dans ma première feuille de calcul, j'indique mon numéro de semaine dans la cellule "B1" et les données à copier se trouve dans la plage de cellules "b5:b46".
Mon souhait serait de mettre en place une macro qui, après avoir renseigné la valeur de B1 et des cellules "b5:b46", copie ces valeurs, recherche dans la seconde feuille la colonne qui correspond au numéro de la semaine et colle les valeurs de "b5:b46".
Voici la macro que j'ai testée mais qui me bloque sur le dernier argument :
Sub Macro2()
'
' Macro2 Macro
' Macro enregistrée le 11/10/2009 par PCBURO
'
'
Dim NumSemaine
Dim CellSemaineTrouvee
Range("B5:B46").Copy
NumSemaine = Sheets("saisie").Range("b1").Value
CellSemaineTrouvee = Sheets("Récap hebdo").Range("b4:ba4").Find(NumSemaine, lookat:=xlWhole)
Range(CellSemaineTrouvee).Offset(1, 0) = Selection.Paste
End Sub
Je vous remercie par avance du temps que vous voudrez bien consacrer à mon problème.
Et puis, j'allais oublier....j'espère avoir posté ce message au bon endroit !!!
Tout d'abord, merci pour toutes les infos que j'ai pu trouvées jusqu'à maintenant sur ce forum. C'est la première fois que je poste un message mais sur ce coup là, je sèche !!!
Voilà mon problème :
J'ai créé un classeur qui comprend deux feuilles de calcul. La première est une feuille de saisie hebdomadaire("Saisie"). La seconde compile les données saisies chaque semaine ("Récap hebdo"). Les semaines y sont regroupées par colonne. Ex : semaine 1 = colonne B; semaine 2 = colonne C....semaine 52 = colonne BA
Dans ma première feuille de calcul, j'indique mon numéro de semaine dans la cellule "B1" et les données à copier se trouve dans la plage de cellules "b5:b46".
Mon souhait serait de mettre en place une macro qui, après avoir renseigné la valeur de B1 et des cellules "b5:b46", copie ces valeurs, recherche dans la seconde feuille la colonne qui correspond au numéro de la semaine et colle les valeurs de "b5:b46".
Voici la macro que j'ai testée mais qui me bloque sur le dernier argument :
Sub Macro2()
'
' Macro2 Macro
' Macro enregistrée le 11/10/2009 par PCBURO
'
'
Dim NumSemaine
Dim CellSemaineTrouvee
Range("B5:B46").Copy
NumSemaine = Sheets("saisie").Range("b1").Value
CellSemaineTrouvee = Sheets("Récap hebdo").Range("b4:ba4").Find(NumSemaine, lookat:=xlWhole)
Range(CellSemaineTrouvee).Offset(1, 0) = Selection.Paste
End Sub
Je vous remercie par avance du temps que vous voudrez bien consacrer à mon problème.
Et puis, j'allais oublier....j'espère avoir posté ce message au bon endroit !!!