Bonsoir le Forum,
J'ai le code suivant, mais je ne sais pas modifier les noms des feuilles avec celle qui correspondants avec mes feuilles, veuillez me donner les étapes a suivre pour modifier les noms.
Option Explicit
Sub Recap_Suite_Et_Fin()
'Dim Ws As Worksheet
'Dim I As Integer, K As Integer, L As Integer, M As Integer, N As Integer
Dim I As Integer
Dim J As Long
Dim Tbl1
'Dim NbLignes As Integer
'Dim Lg As Integer
Dim Feuilles As String
Dim Indice As Integer
Application.ScreenUpdating = False
'NbLignes = 33 ' Nombre de ligne dans chaque tableau
'Lg = 12 ' Numéro de la 1ère ligne de chaque tableau
Feuilles = "N° Série"
' Efface les zones de réception
Sheets(Feuilles).Range("F12:F44") = ""
' Nombre de ligne maximum (11 pages de 3) = 33 lignes
' On de dispose que de 33 lignes
' Collecte sur les 11 pages
Indice = 0
ReDim Tbl1(1 To 33, 1 To 1)
For I = 1 To 11
With Sheets("J" & I)
For J = 63 To 65
If .Cells(J, "J") <> "" Then
Indice = Indice + 1
Tbl1(Indice, 1) = .Cells(J, "J")
End If
Next J
End With
Next I
' Recopie
If Indice > 0 Then ' Au moins 1 donnée
With Sheets(Feuilles)
.Range("F12").Resize(33) = Tbl1
.Visible = xlSheetVisible
End With
End If
End Sub
Merci
A+