XL 2013 Copie valeurs plusieurs lignes de plusieurs feuilles dans récapitulatif

AurelienGoub · 7 Mai 2020

Bonjour à tous,

Je cherche à copier les valeurs de cellules de lignes 7 à 77 de plusieurs feuilles dans un tableau récapitulatif.
En gros j'ai 12 onglets représentant les mois d'une année, je souhaite récupérer les valeurs d'une cellule correspondant à une machine pour les copier dans un tableau bilan correspondant au mois et à la machine. Sachant que j'ai 77 machines j'ai voulu réaliser mais une boucle sauf que cela ne récupère pas les valeurs et affiche à chaque fois 0.

VB:

Private Sub CommandButton1_Click()

Dim x%, z%, y%
With Sheets("BILAN")
Range("C7:M77").ClearContents
Application.ScreenUpdating = 0
For x = 3 To Sheets.Count - 1
For z = 7 To 77
For K = 2 To 13
y = Sheets(x).Columns("AC").Rows(z).Value
Columns(K).Rows(z) = y
Next K
Next z
Next x
End With
End Sub

Je vous joins le fichier pour exemple.

Merci d'avance pour votre aide !

Cordialement

Robert · 7 Mai 2020

Bonjour Aurélien, bonjour le forum,

Je t'ai répondu sur un autre forum :

VB:

Private Sub CommandButton1_Click()
Dim OD As Worksheet
Dim O As Worksheet

Set OD = Worksheets("BILAN")
For Each O In Worksheets
    If O.Name <> OD.Name Then
        COL = O.Index + 1
        For I = 7 To 77
            If O.Cells(I, "AC").Value <> 0 Then OD.Cells(I, COL).Value = O.Cells(I, "AC").Value
        Next I
    End If
Next O
End Sub

XL 2013 Copie valeurs plusieurs lignes de plusieurs feuilles dans récapitulatif

AurelienGoub

XLDnaute Nouveau

Pièces jointes

Robert

XLDnaute Barbatruc

Discussions similaires