Presse-papier effacé à l'éxecution d'une macro ?

[Sylvain M.]

Bonjour à tous,

Je viens d'adapter l'excellent modèle de Jacques Boisgontier (à cette adresse) aux communes Françaises.
Ça fonctionne très bien !!! 😎 (merci à Jacques !)

Cependant, je constate un comportement étrange de la feuille de calcul où est placée ce code VBA* : il devient impossible de faire le moindre copier/coller. A chaque clic dans une cellule, le contenu du presse papier semble effacé.

Est-ce que ça vous le fait aussi ?
Et voyez vous comment conserver le presse papier malgré tout ?

* voici le code en question :

Dim a()
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Intersect([e2:e10], Target) Is Nothing And Target.Count = 1 Then
    a = Application.Transpose(Sheets("données").Range("maliste").Value)
    Me.ComboBox1.List = a
    Me.ComboBox1.Height = Target.Height + 3
    Me.ComboBox1.Width = Target.Width
    Me.ComboBox1.Top = Target.Top
    Me.ComboBox1.Left = Target.Left
    Me.ComboBox1 = Target
    Me.ComboBox1.Visible = True
    Me.ComboBox1.Activate
    Me.ComboBox1.DropDown ' ouverture automatique au clic dans la cellule (optionel)
  Else
    Me.ComboBox1.Visible = False
  End If
End Sub

Private Sub ComboBox1_Change()
  If Me.ComboBox1 <> "" And IsError(Application.Match(Me.ComboBox1, a, 0)) Then
     Me.ComboBox1.List = Filter(a, Me.ComboBox1.Text, True, vbTextCompare)
     Me.ComboBox1.DropDown
  Else
    ActiveCell = Me.ComboBox1
  End If
End Sub

 

[tototiti2008]

Re : Presse-papier effacé à l'éxecution d'une macro ?

Bonjour Sylvain,

C'est fréquent avec le code évènementiel
Tu as peut-être remarqué que si tu copies des cellules, puis tapes dans une autre cellule, Excel oublie ce qui a été copié
C'est pareil pour VBA, les actions réalisées peuvent entraîner l'oubli de ce qui a été copié... et pour le contourner, je ne sais pas

Edit : en même temps sur le fichier de Boisgontier, je n'ai pas ce problème, les copier/coller fonctionnent

 

[Sylvain M.]

Re : Presse-papier effacé à l'éxecution d'une macro ?

Edit : en même temps sur le fichier de Boisgontier, je n'ai pas ce problème, les copier/coller fonctionnent

Sur toutes les feuilles ? Chez moi ça fonctionne sur la feuille "Données", mais pas sur la feuille "Liste d'élèves"...
Si ça marche chez toi, ça m'inquiète 😕

Si je veux conserver l'usage du presse papier, je suppose qu'il ne faudrait pas utiliser le déclencheur "Worksheet_SelectionChange" ?
Auriez-vous des conseils en la matière ? (double-clic dans la cellule ?)

Merci pour vos avis.

A+

Sylvain M.

 

[tototiti2008]

Re : Presse-papier effacé à l'éxecution d'une macro ?

Re,

Sur toutes les feuilles ? Chez moi ça fonctionne sur la feuille "Données", mais pas sur la feuille "Liste d'élèves"...
Si ça marche chez toi, ça m'inquiète 😕

sur toutes les feuilles, oui
Quelle version d'Excel ?

 

[job75]

Re : Presse-papier effacé à l'éxecution d'une macro ?

Bonjour Sylvain M., hello Marc,

C'est pourtant assez évident il me semble :

- en dehors de la plage 'Liste d'élèves'!E2:E10 le copier-coller est toujours possible

- si l'on veut copier ou coller dans cette plage il faut sélectionner plus d'une cellule...

A+

 

[Sylvain M.]

Re : Presse-papier effacé à l'éxecution d'une macro ?

Hello Job75 🙂
Malheureusement, ce n'est pas si évident !

en dehors de la plage 'Liste d'élèves'!E2:E10 le copier-coller est toujours possible

Chez moi, non !!!??? 😕
Il n'y a pas que dans cette plage où ce n'est plus possible : dès que je clic dans une nouvelle cellule de la feuille, après avoir copié (en dehors de la plage E2:E10), le presse papier est perdu (cellules en pointillé redeviennent normales), et impossible de coller...

Quelle version d'Excel ?

Je suis sur Excel 2007.

Je vais faire des tests sur d'autres versions chez des collègues dès que je pourrai.

 

[tototiti2008]

Re : Presse-papier effacé à l'éxecution d'une macro ?

Bonjour Gérard,
Re,

Je confirme le comportement sur 2007, donc oui pour 2007 il faudrait changer d'évènement...

 

[job75]

Re : Presse-papier effacé à l'éxecution d'une macro ?

Re,

Je n'avais testé que sur Excel 2013.

Sur mes autres ordi :

- Excel 2010 => pas de problème non plus

- Excel 2003 => problème.

Alors ça ira bien en remplaçant Me.ComboBox1.Visible = False par :

If Me.ComboBox1.Visible Then Me.ComboBox1.Visible = False

A+

 

[Sylvain M.]

Re : Presse-papier effacé à l'éxecution d'une macro ?

Alors ça ira bien en remplaçant Me.ComboBox1.Visible = False par :

If Me.ComboBox1.Visible Then Me.ComboBox1.Visible = False

Super : testé, et approuvé !!!
Nickel !!! 😎
C'est du très bon job, job75 😉 Merci !

Bonne soirée à tous.

Sylvain M.