Bonjour a tous !
Voila je pense que c'est un code simple mais je comprends le VBA, mais je ne sais pas le parler... Ou plutot avec un terrible accent !![Big Grin :D :D](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
J'ai utilisé l'enregistreur de macro mais je souhaiterai faire une boucle de ceci:
Vous l'aurez compris, c'est toujours pareil jusqu'a une case E95 !
Je ne vais pas faire ce code jusqu'a E95 ?!
Si ?
Merci d'avance pour votre contribution![Stick Out Tongue :p :p](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
Voila je pense que c'est un code simple mais je comprends le VBA, mais je ne sais pas le parler... Ou plutot avec un terrible accent !
J'ai utilisé l'enregistreur de macro mais je souhaiterai faire une boucle de ceci:
Oui !Sub Pa()
'
' Pa Macro
'
'
Range("B1").Select
ActiveCell.FormulaR1C1 = "=R[2]C"
Range("D1").Select
ActiveCell.FormulaR1C1 = "=R[8]C"
Range("B5").Select
Selection.Copy
Range("E9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=R[9]C"
Range("B5").Select
Selection.Copy
Range("E10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=R[10]C"
Range("B5").Select
Selection.Copy
Range("E11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Vous l'aurez compris, c'est toujours pareil jusqu'a une case E95 !
Je ne vais pas faire ce code jusqu'a E95 ?!
Si ?
Merci d'avance pour votre contribution