Discussion :

[MacBII]

Bonjour à tous,

Je débute en VBA et j'aurais aimé faire une macro pour copier-coller des valeurs (plus rapidement qu'avec l'enregistreur de macro).

L'idée, c'est de modifier la cellule A1 de ma feuille de calcul pour valeurs allant de 100 à 1000 (incrémentation de 100 à chaque fois).
Ensuite, je souhaiterai copier-coller les valeurs des cellules A1 à A5 et les coller en cellule B1, C1....

A1 = 100
Copier - coller A1 à A5 en B1 à B5
A1 = 200
Copier - coller A1 à A5 en C1 à C5
A1 = 300
copier - coller A1 à A5 en d1 à d5

Je pense à une boucle mais je ne sais pas comment la rédiger.
En vous remerciant.

[Transitoire]

Bonjour, vos explications manquent de clarté.
Vous modifiez A1 d'accord, mais qu'en est-il de A2;A3;A4;A5 ???
La modification de A1 doit-elle être manuelle ou automatique?
Cordialement

[patricktoulon]

bonjour
en fait une boucle est superflu surtout si tu doit aller jusqu'à xxx

si dessous une sub et une fonction
la fonction utilise la valeur injecté pour calclculer l'offset
en l'occurrence dans cet exemple
de 100 a 199 donnera b1:b5
de 200 a 299 donnera c1:c5
de 300 a 399 donnera d1:d5
etc......
sans boucle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub test()
With Sheets("toto")
Set dest = rngOffset(.Range("A1:A5"), .Range("A1").Value)
MsgBox dest.Address
End With
End Sub
 
Function rngOffset(rng As Range, valeur As Long) As Range
Set rngOffset = rng.Offset(, Application.RoundDown(valeur / 100, 0))
End Function

en gros même sans fonction intermédiaire ca donnerais ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
'toujours pareil avec la fourchette de x00 a x99
Sub test2()
MsgBox Range("A1:A5").Offset(, Application.RoundDown(Range("A1").Value / 100, 0)).Address
End Sub