Bonjour!
Je suis complétement perdu sous VBA et j'aurai besoin d'un petit coup de pouce!
Je souhaite réaliser une macro qui remplira totalement une grille (B39:L65).  
J'ai effectué 2 fois de suite l'enregistrement de la macro, le tout étant de créer une seule macro avec une boucle à l'intérieure qui change mes copie/colle/valeur finale.  
Je joins ci-dessous 2 boucles que j'ai créé avec les commentaires des cellules.  
Le principe de ma grille est:
Colonne (Col_A) a une suite de prix
Ligne (Row_B) a une suite de quantité
Le placement de ces 2 valeurs dans 2 autres cellule déclenchent des mise à jour dans d'autres calcules et j'obtiens un résultat final, que je souhaite coller dans la grille de départ, à l'intersection de Val_A et de Row_B que j'avais sélectionné.
Un grand merci!
   
 
 
Sub calcul_CGRP_1()  
'  
' calcul_CGRP_1 Macro  
' Macro enregistrée le 17/08/2006 par gaelle.monnier  
'  
 
'  
Range("A39" ).Select  
'Il faut que ça fonctionne de A39 jusqu'à A65  
Selection.Copy  
Range("B13" ).Select  
'Toujours coller dans cette case  
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _  
:=False, Transpose:=False  
Range("B38" ).Select  
'Il faut que ça fonctionne de B38 jusqu'à L38  
Application.CutCopyMode = False  
Selection.Copy  
Range("B10" ).Select  
'Toujours coller dans cette case  
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _  
:=False, Transpose:=False  
Range("B22" ).Select  
'Toujours coller dans cette case  
Application.CutCopyMode = False  
Selection.Copy  
Range("B39" ).Select  
'Retour de la valeur finale dans la grille B39:L65  
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _  
:=False, Transpose:=False  
'Version 2, la suite!!!  
Range("A40" ).Select  
Selection.Copy  
Range("B13" ).Select  
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _  
:=False, Transpose:=False  
Range("C38" ).Select  
Application.CutCopyMode = False  
Selection.Copy  
Range("B10" ).Select  
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _  
:=False, Transpose:=False  
Range("B22" ).Select  
Application.CutCopyMode = False  
Selection.Copy  
Range("B40" ).Select  
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _  
:=False, Transpose:=False  
 
End Sub

Tu n'est pas dans la bonne catégorie ... A poster dans la rubrique programmation  
D'ailleur c'est tout dans ton intéret si tu souhaite avoir des réponses  
 
Amicalement, Ben