Pas experte, besoin de votre aide pour une boucle
Bonjour à tous,
Je me permets de venir sur ce forum afin d'obtenir si possible l'aide de ces messieurs dames experts pour m'aider à réaliser une macro dans le cadre de mon travail.
L'enregistrement de base de la macro, je sais la faire et elle est relativement simple sur une seule cellule :
Dans ma feuille 416000, j'ai listé mes sociétés de 101 à 999 de la cellule A1 à 899. Je copie ma première cellule A1 que je colle sur ma feuille "Créances douteuses" dans une cellule prévue à cet effet afin d'obtenir l'ensemble des créances dues par la société 101. Je copie donc la cellule L260 que je vais recoller sur ma feuille 416000 dans la cellule B1.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
| Sub Macro14()
'
' Macro14 Macro
'
'
Range("A1").Select
Selection.Copy
Sheets("Creances douteuses").Select
Range("A2").Select
ActiveSheet.Paste
Range("L260").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("4160000").Select
Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub |
Mon problème est pour la boucle. Je souhaite pouvoir répéter cette action de ma cellule A1 à A899 et je n'y arrive pas. Les variantes seraient donc Range("A1").Select et Range("B1").Select mais je ne suis vraiment pas à ce niveau là.
En vous remerciant par avance de votre aide.
Ludivine.
