Discussion :

[Trarc]

Bonjour,
Dans un tableaux de bord je voudrai envoyer dans le presse papier une plage de cellules afin de pouvoir réutiliser les données sous forme de tableau où bon me semble (Word/Outlook).
Au niveau de mon code avant et après la méthode copy je réalise quelques opérations :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub ExpCop()
    ActiveSheet.Unprotect
    Range("L3:AE4").ClearContents 'Vide le contenu des cellules
    Range("L3:AE4").Value = Range("L1:AE2").Value 'Injecte les valeurs de synthèses dans la zone de mise en page en tableau
    Range("L3:AE4").Copy
    ActiveSheet.Protect
End Sub

Après le verrouillage de la feuille, Excel vide le presse papier.
Existe-t-il une solution afin de garder le contenu du copier, même au format texte tabulé ?
Merci d'avance.

[Menhir]

Le coller ailleurs (dans une autre feuille Excel qui ne contiendrait que ça ou un document Word, par exemple) avant qu'il ne s'efface.
Le récupérer ensuite, au dernier moment.

[dams-78]

Bonjour,

Je ne sais pas si c'est la meilleure solution mais tu peux essayer de stocker ta plage dans une variable de type Range et de la copier à la fin.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub ExpCop()
    Dim maPlage As Range
    ActiveSheet.Unprotect
    Range("L3:AE4").ClearContents 'Vide le contenu des cellules
    Range("L3:AE4").Value = Range("L1:AE2").Value 'Injecte les valeurs de synthèses dans la zone de mise en page en tableau
    Set maPlage = Range("L3:AE4")
    ActiveSheet.Protect
    maPlage.Copy
End Sub

[patricktoulon]

pourquoi le presspapier ?

sert toi de variable tableau

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
' on declare une variable tableau en haut de module 
dim montableau as variant

Sub ExpCop()
    


    ActiveSheet.Unprotect
        Range("L3:AE4").ClearContents 'Vide le contenu des cellules
        Range("L3:AE4").Value = Range("L1:AE2").Value 'Injecte les valeurs de synthèses dans la zone de mise en page en tableau
    montableau=Range("L3:AE4")' a la place de Range("L3:AE4").Copy
    ActiveSheet.Protect
End Sub

'maintenant la variable montableau contient les données de ta plage tu peux t'en servir nimporte ou dans le classeur 
'tant que le classeur ne sera pas fermé le tableau est utilisable dans nimporte quelle sub ou fonction

c'est vu ?

[Menhir]

Je ne sais pas quelle est le nom de la librairie des objets du Presse-Papier mais ceci pourra peut-être t'aider :
http://msdn.microsoft.com/fr-fr/libr...code-snippet-2

[Trarc]

Dans mon contexte je laisse à l'opérateur le choix du collage car dans certain cas de figure le presse papier est utilisé pour récupérer les données dans Word ou Outlook d'une session Windows distante.

[lucasgaetan]

Bonjour,

pour coller dans le presse papier:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Dim Cible As dataObject
Dim str as string
    Set Cible = New dataObject
    For i = 1 To Range("L3:AE4").Rows.Count
        For j = 1 To Range("L3:AE4").Columns.Count
            str = str & Range("L3:AE4").Cells.Value2(i, j) & vbTab 'vbTab = colonne suivante --> tabulation dans le format text
        Next j
        str = str & vbCr  'vbCr  = ligne suivante --> retour chariot dans le format texte
    Next i
    Cible.setText str
    Cible.putInClipboard

a+

PS: il faut la reference microsoft Forms 2.0 object library
sous C:\Windows\System32\FM20.DLL cher moi

[Trarc]

Bonjour,
Merci pour vos réponses.
Compte tenu de mon besoin solution proposée par Lucasgaetan est la seule que je peux utilisée.
J'avoue que de conserver l'extrême facilité du copier/coller avec la mise en forme héritée d'Excel m'aurait grandement simplifier la vie.
Mais c'est apparemment impossible.