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
