Bonjour a tous,
Tout d'abord merci pour votre aide grace à toutes vos questions/réponses j'avance beaucoup plus vite dans l'apprentissage du VBA !
J'aimerais avoir une petite aide concernant le code ci-dessous qui me permet de passer les données de 2012 en 2011 puis de 2013 en 2012 (etc...).
Ce code marche bien mais j'aimerais le réduire fortement
Voici le code en question :
Des idées ???
Merci par avance !
Tout d'abord merci pour votre aide grace à toutes vos questions/réponses j'avance beaucoup plus vite dans l'apprentissage du VBA !
J'aimerais avoir une petite aide concernant le code ci-dessous qui me permet de passer les données de 2012 en 2011 puis de 2013 en 2012 (etc...).
Ce code marche bien mais j'aimerais le réduire fortement
Voici le code en question :
image.jpg
a = 13 'ligne 13
b = 14 'ligne 14... .. .
c2012 = 23 'colonne Y ....
'--------------------
For i = 1 To Count
Range(Cells((a + (i * 69)), c2012), Cells((b + (i * 69)), c2012)).Select
Selection.Copy
Cells(a + (i * 69), cdec11).Select
' ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False '
Next i
....
J'écris cette formule dans mon module une dixaine de fois
..
.
For i = 1 To Count
Range(Cells((x + (i * 69)), c2012), Cells((y + (i * 69)), c2012)).Select
Selection.Copy
Cells(x + (i * 69), cdec11).Select
' ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False '
Next i
Ensuite je change les années. 2012 qui se re-copiait en dec-11 deviens 2013 qui se copie en 2012
For i = 1 To Count
Range(Cells((x + (i * 69)), c2013), Cells((y + (i * 69)), c2013)).Select
Selection.Copy
Cells(x + (i * 69), c2012).Select
' ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False '
Next i
Des idées ???
Merci par avance !