Discussion :

[makila64]

Bonjour à toutes et à tous,
Je suis à nouveaux confronter à un problème. En faite j'ai un tableau dans une feuille "chiffre d'affaires" (A2100) que j'alimente chaque mois et je veux créer une macro qui va me copier et m'insérer les lignes de ce tableau dans une feuille "Recap" qui va comprendre toutes les données de tous les mois. Seuleument il y a les dernieres lignes qui ne sont pas remplies pour certains mois.
Le code que j'ai crée m'insere c'est lignes vides dans ma feuille "Recap" et je dois manuellement effacer ces lignes vides...

[Acasanva]

Salut,

Haaa c'était pas si dur

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
Sub Macro2()
'
' Macro2 Macro
'
 
'
    ' la fin de ta source pour le mois
    Dim ligneFinSource As Integer
    ligneFinSource = 100
 
    Dim val As String ' la valeur d'une ligne source. 
 
    ' L'index de début sur la récap.
    Dim ligneStartRecap As Integer
    ligneStartRecap = 8 ' arbitraire pour mon exemple
 
    ' prochaine ligne sur laquelle on peut écrire dans récap.
    ' Par défaut j'ai pris la colonne A, au pire je te laise changer.
    Dim ligneEcritureRecap As Integer
    ligneEcritureRecap = ligneStartRecap
 
    Dim i As Integer ' variable de boucle sur la source
    For i = 2 To ligneFinSource
        Sheets("Source").Select
        ' récup de la valeur
        val = Range("A" & i).Value
        ' Si non vide alors copie
        If (val <> "") Then
            Sheets("Récap").Select
            Range("A" & ligneEcritureRecap).Value = val
            ligneEcritureRecap = ligneEcritureRecap + 1
        End If
    Next i
End Sub

Je te laisse arranger, paramétrer, récupérée la bonne valeur de ligneStartRecap, etc.

[mapeh]

Bonjour,

Un autre exemple :

Code :

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

1
2
3
4
5
6
7
8
Sub copie()
Dim FCa As Worksheet, FRecap As Worksheet
Set FCa = Sheets("chiffre d'affaire")
Set FRecap = Sheets("Recap")
With FCa
    .Range("A2:D" & .Cells(Rows.Count).End(xlUp).Row).Copy FRecap.Cells(Rows.Count, 1).End(xlUp)(2)
End With
End Sub

Bonne journée

[makila64]

Ha super cool merci en faite c'était au niveau de ma boucle que sa a beugué merci Acasanva

Merci à vous deux...

[Acasanva]

Un petit , pour la peine, stp