Modifier une macro

galaxy20100

XLDnaute Nouveau
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+
 

Discussions similaires

Réponses
29
Affichages
1 K
Réponses
11
Affichages
389

Statistiques des forums

Discussions
312 811
Messages
2 092 306
Membres
105 347
dernier inscrit
VLEN