Copier coller dans Worksheet

Citaro · 20 Novembre 2015

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 · 20 Novembre 2015

Re : Copier coller dans Worksheet

Hello

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

Code:

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 · 20 Novembre 2015

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 · 23 Novembre 2015

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

Code:

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

Copier coller dans Worksheet

Citaro

XLDnaute Occasionnel

Pièces jointes

vgendron

XLDnaute Barbatruc

Citaro

XLDnaute Occasionnel

vgendron

XLDnaute Barbatruc

Discussions similaires

Copier coller dans Worksheet

Citaro

XLDnaute Occasionnel

Pièces jointes

vgendron

XLDnaute Barbatruc

Citaro

XLDnaute Occasionnel

vgendron

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency