Copier coller dans Worksheet

[Citaro]

Bonjour au forum,
Dans mon classeur en colonne L, il y a des données que je voudrais copier et coller en N100 ou O100 ...jusqu'à U100 en fonction des valeurs en colonne M.
J'arrive à faire le copier mais le collage se fait en ligne 1
je n'arrive pas à le faire passer en 100
Le code est dans le Worksheet de la feuille Compétences

Merci d'avance
Citaro

 

[vgendron]

Re : Copier coller dans Worksheet

Hello


avec ce code??
il faut replacer les entetes Resume1 2 ...8 en ligne 99

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False

nb = Range("N99").CurrentRegion.Rows.Count - 1



Range("N100").Resize(nb, 8).ClearContents
i = 2
While Range("L" & i) <> ""
    x = Range("M" & i).Value
    l = Cells(Rows.Count, 13 + x).End(xlUp).Row + 1
    Range("L" & i).Copy
    Cells(l, 13 + x).PasteSpecial xlPasteAll
    Application.CutCopyMode = xlCopy
    i = i + 1
Wend
End Sub

 

[Citaro]

Re : Copier coller dans Worksheet

Bonjour vgendron,

Merci de regarder mon problème, j'ai modifié le code par le tien
J'obtiens une erreur 1004 définie par l'application ou l'objet avec un arrêt sur la ligne

Range("N100").Resize(nb, 8).ClearContents

Citaro

 

[vgendron]

Re : Copier coller dans Worksheet

Bonjour,

peut etre as tu manqué cette phrase dans mon post:

il faut replacer les entetes Resume1 2 ...8 en ligne 99

J'ai modifié le code pour que ce soit fait à ta place

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False

nb = Range("N99").CurrentRegion.Rows.Count - 1


If nb = 0 Then
    nb = 1
    'recopier les entêtes en ligne 99
    Range("N1:U1").Copy Destination:=Range("N99:U99")
End If
Range("N100").Resize(nb, 8).ClearContents
i = 2
While Range("L" & i) <> ""
    x = Range("M" & i).Value
    l = Cells(Rows.Count, 13 + x).End(xlUp).Row + 1
    Range("L" & i).Copy
    Cells(l, 13 + x).PasteSpecial xlPasteAll
    Application.CutCopyMode = xlCopy
    i = i + 1
Wend
End Sub