Macro calcul automatique pour une liste

Bonjour!

J'ai fais une macro qui séléctionne la cellule A2 de la feuille "Agents", qui la copie, puis qui la colle dans la celulle C22 de la feuille "Couverture". Ensuite, je copie le résultat de la celulle en F42 de la feuille "2007" pour le copier dans la cellule G2 de la feuille "Agents".

J'aimerais savoir si vous pouviez m'aider à completer le code pour faire cela de la celulle A2 à A2789 et G2 à 2789 de "Agents" sachant que les cellules C22 de "Couverture" et F42 de "2007" restent tout le temps les mêmes.

Pour l'instant le code donne ça:

Sub Macro10()

'

' Macro10 Macro

' Macro enregistrée le 21/04/2011 par stageDRHformation

'

'

Range("A2").Select

Selection.Copy

Sheets("Couverture").Select

Range("C22:E22").Select

ActiveSheet.Paste

Sheets("2007").Select

Application.CutCopyMode = False

Selection.Copy

Sheets("Agents").Select

Range("G2").Select

Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _

False, Transpose:=False

End Sub

Merci!

Bonjour et bienvenue

Merci de placer ton fichier directement sur notre site.

Regarde la marche à suivre :

EbNYLzTz5wM

Amicalement

Nad

En gros si ça peut vous aider:

• > Je note un nom dans une case.
• > Cela m'affiche un résultat dans une autre à la suite de calculs en fonction du nom.
• > Je voudrais que sur une feuille où il y a la liste des noms, que ça m'affiche le résultat pour chaque nom.

Merci.

PS: Il n'est pas possible de copier la formule type, étant donnée qu'elle contient des cellules contenant aussi d'autres formules...

J'ai changé le problème, ça sera peut être un peu plus facile comme ça.