Problème de copié collé informations groupées

[adr99]

Bonjour,

J'ai un problème dans le fichier joint lorsque je clique sur le bouton et que je suis placé en colonne A un copié collé est effectué. Cependant lorsque je groupe les données que je souhaite copié collé un problème apparait je vous mets le fichier en annexe.

Merci

 

[eddy51]

Re : Problème de copié collé informations groupées

Bonjour;
Moi il me semble que s'est l'inverse .
1seul case a copier sa bug
Plusieurs sa marche .

 

[phlaurent55]

Re : Problème de copié collé informations groupées

Bonjour adr99, et bienvenue sur XLD

avec ce code:

Private Sub CommandButton1_Click()
    ActiveSheet.Outline.ShowLevels RowLevels:=2
    Set x = Cells.Find("debut", , xlValues, xlWhole, , , False)
    Set y = Cells.Find("$$ end $$", , xlValues, xlWhole, , , False)
    If Not Intersect(ActiveCell, Range("A:A")) Is Nothing Then
        With Range(x, y)
            ActiveCell.Resize(.Rows.Count, .Columns.Count).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
            .Copy Destination:=ActiveCell.Resize(.Rows.Count, .Columns.Count)
            ActiveCell.EntireRow.Insert Shift:=xlDown
        End With
    End If
    Unload Me
    ActiveSheet.Outline.ShowLevels RowLevels:=1
End Sub

à+
Philippe

Edit: Bonjour Eddy

 

[eddy51]

Re : Problème de copié collé informations groupées

Salut phlaurent55 ,
Le probleme venait du Range(x,y) nn?

 

[adr99]

Re : Problème de copié collé informations groupées

Bonour phlaurent55, eddy

Merci pour cette réponse rapide cependant peux tu m'expliquer ce que fais les instructions suivantes :
ActiveSheet.Outline.ShowLevels RowLevels:=2
ActiveSheet.Outline.ShowLevels RowLevels:=1

Merci encore

 

[phlaurent55]

Re : Problème de copié collé informations groupées

Re,

Bonour phlaurent55, eddy

Merci pour cette réponse rapide cependant peux tu m'expliquer ce que fais les instructions suivantes :
ActiveSheet.Outline.ShowLevels RowLevels:=2
ActiveSheet.Outline.ShowLevels RowLevels:=1

Merci encore

c'est pour dissocier les lignes avant la copie et les regrouper après

à+
Philippe

 

[adr99]

Re : Problème de copié collé informations groupées

Ok merci

Cependant quand je clique deux fois de suite sur le bouton la deuxième fois il me fait un truc bizzare il me copie que la dernière ligne je crois comment faire pour qu'il me copie toutes les données ?

 

[phlaurent55]

Re : Problème de copié collé informations groupées

Re,

le problème vient de $$ end $$ qui se trouve dans une cellule et qui est également copié par la macro

.......... et ça "embrouille les pistes" pour les copies ultérieures

il n'y a pas besoin de ce $$ end $$ pour mesurer l'étendue des cellules à copier
il faut d'abord supprimer ce $$ end $$ et ensuite il suffit d'utiliser:

    Range("A1").Select
    Selection.CurrentRegion.Select
    Selection.Copy

à+
Philippe

 

[phlaurent55]

Re : Problème de copié collé informations groupées

Re,

voir le fichier joint

à+
Philippe

 

[adr99]

Re : Problème de copié collé informations groupées

ok merci beaucoup