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