philipos_353
XLDnaute Nouveau
Bonjour le forum,
Je me suis inspiré des idées de John qui a déja répondu sur ce sujet ainsi que de Hulk,
Voici mes modifications de la Macro de John, mais elle ne fonctionne pas avec mon fichier.
---------------------------------------------
Sub MaJRecap()
'
' Macro1 Macro
'
'
Application.ScreenUpdating = False
Sheets("Recap").Select
Range("AS14").Select
If Range("AS15").Value <> "" Then
Selection.End(xlDown).Select
der_ligne_recap = ActiveCell.Row
Range("C14:AS" & der_ligne_recap).Select
Selection.EntireRow.Delete
End If
nbr_feuille = ActiveWorkbook.Sheets.Count
x = 1
Do
Sheets(x).Activate
If Sheets(x).Name <> "Recap" Then
End If
If Sheets(x).Name <> "TCD" Then
End If
If Sheets(x).Name <> "DONNEES" Then
End If
Range("AS14").Select
Selection.End(xlDown).Select
der_ligne = ActiveCell.Row
Range("C15:AS" & der_ligne).Select
Selection.Copy
Sheets("Recap").Select
Range("AS15").Select
If Range("AS14").Value <> "" Then
Selection.End(xlDown).Select
der_ligne_recap = ActiveCell.Row + 1
Else
der_ligne_recap = 2
End If
Range("C" & der_ligne_recap).Select
ActiveSheet.Paste
Sheets(x).Select
Application.CutCopyMode = False
x = x + 1
Do While x > nbr_feuille
Loop
Sheets("Recap").Select
Application.ScreenUpdating = True
End Sub
------------------------------------
La macro de HULK, qui ne fonctionne pas non plus pour ce que j'attends:
Private Sub CommandButton1_Click()
Dim i As Long
Dim tabloNomsFeuilles() As String
Application.ScreenUpdating = False
Sheets("Recap").[C13].CurrentRegion.Offset(1, 3).Clear
For i = 3 To ActiveWorkbook.Sheets.Count
ReDim tabloNomsFeuilles(3 To i)
tabloNomsFeuilles(i) = Sheets(i).Name
If Sheets(i).Name <> "Recap" Then
Sheets(i).[C13].CurrentRegion.Offset(1, 3).Copy Sheets("Recap").[A65000].End(xlUp).Offset(1, 3)
End If
Next i
Application.ScreenUpdating = True
End Sub
--------------------------------------------------
En fait je voudrai que la feuille "Recap" ai la même forme que les feuilles "Champ et Melo" en reprenant les lignes qui ont une valeur dans la case PO colonne J.
Nota: j'ai d'autres feuilles bien sur à prendre en compte donc une loop me semble utile, en revanche je veux exclure des feuilles "current rate et TCD"
Pourriez vous m'aider?
Merci
Je me suis inspiré des idées de John qui a déja répondu sur ce sujet ainsi que de Hulk,
Voici mes modifications de la Macro de John, mais elle ne fonctionne pas avec mon fichier.
---------------------------------------------
Sub MaJRecap()
'
' Macro1 Macro
'
'
Application.ScreenUpdating = False
Sheets("Recap").Select
Range("AS14").Select
If Range("AS15").Value <> "" Then
Selection.End(xlDown).Select
der_ligne_recap = ActiveCell.Row
Range("C14:AS" & der_ligne_recap).Select
Selection.EntireRow.Delete
End If
nbr_feuille = ActiveWorkbook.Sheets.Count
x = 1
Do
Sheets(x).Activate
If Sheets(x).Name <> "Recap" Then
End If
If Sheets(x).Name <> "TCD" Then
End If
If Sheets(x).Name <> "DONNEES" Then
End If
Range("AS14").Select
Selection.End(xlDown).Select
der_ligne = ActiveCell.Row
Range("C15:AS" & der_ligne).Select
Selection.Copy
Sheets("Recap").Select
Range("AS15").Select
If Range("AS14").Value <> "" Then
Selection.End(xlDown).Select
der_ligne_recap = ActiveCell.Row + 1
Else
der_ligne_recap = 2
End If
Range("C" & der_ligne_recap).Select
ActiveSheet.Paste
Sheets(x).Select
Application.CutCopyMode = False
x = x + 1
Do While x > nbr_feuille
Loop
Sheets("Recap").Select
Application.ScreenUpdating = True
End Sub
------------------------------------
La macro de HULK, qui ne fonctionne pas non plus pour ce que j'attends:
Private Sub CommandButton1_Click()
Dim i As Long
Dim tabloNomsFeuilles() As String
Application.ScreenUpdating = False
Sheets("Recap").[C13].CurrentRegion.Offset(1, 3).Clear
For i = 3 To ActiveWorkbook.Sheets.Count
ReDim tabloNomsFeuilles(3 To i)
tabloNomsFeuilles(i) = Sheets(i).Name
If Sheets(i).Name <> "Recap" Then
Sheets(i).[C13].CurrentRegion.Offset(1, 3).Copy Sheets("Recap").[A65000].End(xlUp).Offset(1, 3)
End If
Next i
Application.ScreenUpdating = True
End Sub
--------------------------------------------------
En fait je voudrai que la feuille "Recap" ai la même forme que les feuilles "Champ et Melo" en reprenant les lignes qui ont une valeur dans la case PO colonne J.
Nota: j'ai d'autres feuilles bien sur à prendre en compte donc une loop me semble utile, en revanche je veux exclure des feuilles "current rate et TCD"
Pourriez vous m'aider?
Merci
