Rapport de message :*
 

Re: macro copie cell

Titre du sujet : Re: macro copie cell
par JeanMarie le 02/12/2012 13:41:45

Bonjour maheknawe, Didier, le Forum

J'ai rajouté dans le code la création de la feuille quand celle-ci n'existe pas dans le classeur, dans le cas contraire on utilise la feuille existante pour la copie des données.
Citation :

Option Explicit

Sub tp()
Dim I As Byte
Dim Lgn As Long
Dim vFllNom As String
Application.ScreenUpdating = False
Application.EnableEvents = False
Lgn = Range("J65536").End(xlUp).Row
vFllNom = ""
With Worksheets("TabTrie")
    On Error Resume Next
    vFllNom = Sheets(.Range("Kb1").Value).Name
    If vFllNom = "" Then
        Sheets.Add after:=Sheets(Sheets.Count)
        Sheets(Sheets.Count).Name = .Range("Kb1")
    End If
    For I = 1 To 30
        .Range("J" & Lgn & ":Q" & Lgn).Offset(0, (I - 1) * 9).Copy
        Worksheets(.Range("Kb1").Value).Range("S4").Offset(0, I).PasteSpecial Transpose:=True
    Next I
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub


Je n'ai pas tout compris, cela concerne "on copie de la première à la dernière dans le fichier" ?

@+Jean-Marie