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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.