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 !
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
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