Bonjour,
Avec ce code, je copie toute la feuille "résultats" que je recolle au même endroit en ne gardant que les valeurs et supprime tous les onglets sauf "resultats" et incidence"
Je souhaiterais plus précisément
copier coller valeurs des colonnes B:G,J:N,T:AN
garder intacte les colonnes A,G:J,N:T...
Une idée toute faite ou une piste
J'en suis là avec l'enregistreur de macro, des remarques ?
Avec ce code, je copie toute la feuille "résultats" que je recolle au même endroit en ne gardant que les valeurs et supprime tous les onglets sauf "resultats" et incidence"
Code:
Public Sub nettoyage()
Cells.Select
Selection.Copy
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Range("A1").Select
Dim ws As Worksheet
For Each ws In Worksheets
Application.DisplayAlerts = False
If ws.Name <> "Résultats" And ws.Name <> "Incidences" Then ws.Delete
Next
Application.DisplayAlerts = True
End Sub
copier coller valeurs des colonnes B:G,J:N,T:AN
garder intacte les colonnes A,G:J,N:T...
Une idée toute faite ou une piste
J'en suis là avec l'enregistreur de macro, des remarques ?
Code:
Public Sub nettoyage()
Application.ScreenUpdating = False
Columns("B:G").Select
Selection.Copy
Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("J:N").Select
Application.CutCopyMode = False
Selection.Copy
Range("J1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("T:AN").Select
Application.CutCopyMode = False
Selection.Copy
Range("T1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Dim ws As Worksheet
For Each ws In Worksheets
Application.DisplayAlerts = False
If ws.Name <> "Résultats" And ws.Name <> "Incidences" Then ws.Delete
Next
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Dernière édition: