OVH Cloud OVH Cloud

copie coller avec CTRL-V uen seulle fois

4 réponses
Avatar
Daniel
Bonsoir a tous

Je n'arrive plus a faire CTRL-V plusieur fois,
la mémoire du coller se vide !!!

Pourquoi et comment y remédier?

Merci

4 réponses

Avatar
Philippe.R
Bonjour Daniel,
Regarde si un application.cutcopymodeúlse n'est pas présent dans l'évènement change de la feuille.
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002

"Daniel" a écrit dans le message de
news:8TzRc.15058$
Bonsoir a tous

Je n'arrive plus a faire CTRL-V plusieur fois,
la mémoire du coller se vide !!!

Pourquoi et comment y remédier?

Merci





Avatar
Daniel
Bonsoir Philippe
le problème viens de la macro suivante ,
Cette macro me donne le nombres de ligne visible dessous cellule (A1)
filtre.
Comment la modifier pour éviter de perdre "copie/Coller" ?
Merci

Cela est dans ma feuille6
Private Sub Worksheet_Calculate()
Totalfiltre
End Sub

La macro est dans un Module
Sub Totalfiltre()
With [Base!A1]
.ClearComments
.AddComment
With .Comment.Shape.OLEFormat.Object
.Text = Application.Subtotal(3, [Tfiltre]) & " ligne(s)" & vbLf &
"visible(s) sur " & vbLf & [Tfiltre].Rows.Count
.AutoSize = True
End With
With .Comment.Shape.OLEFormat.Object.Font
.Name = "Arial"
.Size = 10
.ColorIndex = 3
.Bold = True
End With
.Comment.Shape.OLEFormat.Object.Interior.ColorIndex = 19
End With
End Sub


"Philippe.R" a écrit dans le message de
news:
Bonjour Daniel,
Regarde si un application.cutcopymodeúlse n'est pas présent dans
l'évènement change de la feuille.

--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002

"Daniel" a écrit dans le message de
news:8TzRc.15058$
Bonsoir a tous

Je n'arrive plus a faire CTRL-V plusieur fois,
la mémoire du coller se vide !!!

Pourquoi et comment y remédier?

Merci









Avatar
Philippe.R
Bonjour Daniel,
Très franchement, par un manque total d'inspiration ce matin, je ne vois pas ce qui dans ce code influe
sur le copier coller.
Je passe la main et serai bien content de savoir.
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002

"Daniel" a écrit dans le message de
news:9BdSc.34110$
Bonsoir Philippe
le problème viens de la macro suivante ,
Cette macro me donne le nombres de ligne visible dessous cellule (A1)
filtre.
Comment la modifier pour éviter de perdre "copie/Coller" ?
Merci

Cela est dans ma feuille6
Private Sub Worksheet_Calculate()
Totalfiltre
End Sub

La macro est dans un Module
Sub Totalfiltre()
With [Base!A1]
.ClearComments
.AddComment
With .Comment.Shape.OLEFormat.Object
.Text = Application.Subtotal(3, [Tfiltre]) & " ligne(s)" & vbLf &
"visible(s) sur " & vbLf & [Tfiltre].Rows.Count
.AutoSize = True
End With
With .Comment.Shape.OLEFormat.Object.Font
.Name = "Arial"
.Size = 10
.ColorIndex = 3
.Bold = True
End With
.Comment.Shape.OLEFormat.Object.Interior.ColorIndex = 19
End With
End Sub


"Philippe.R" a écrit dans le message de
news:
Bonjour Daniel,
Regarde si un application.cutcopymodeúlse n'est pas présent dans
l'évènement change de la feuille.

--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002

"Daniel" a écrit dans le message de
news:8TzRc.15058$
Bonsoir a tous

Je n'arrive plus a faire CTRL-V plusieur fois,
la mémoire du coller se vide !!!

Pourquoi et comment y remédier?

Merci













Avatar
Daniel
Bonsoir Philippe
Si on change l'exécution de la macro "Sub Totalfiltre"par la sélection de la
cellule A1 ,
au lieu qu'elle s'active a l'approche de la sourie.
Cela pourrait t'il être une solution ?

"Philippe.R" a écrit dans le message de
news:
Bonjour Daniel,
Très franchement, par un manque total d'inspiration ce matin, je ne vois
pas ce qui dans ce code influe

sur le copier coller.
Je passe la main et serai bien content de savoir.
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002

"Daniel" a écrit dans le message de
news:9BdSc.34110$
Bonsoir Philippe
le problème viens de la macro suivante ,
Cette macro me donne le nombres de ligne visible dessous cellule (A1)
filtre.
Comment la modifier pour éviter de perdre "copie/Coller" ?
Merci

Cela est dans ma feuille6
Private Sub Worksheet_Calculate()
Totalfiltre
End Sub

La macro est dans un Module
Sub Totalfiltre()
With [Base!A1]
.ClearComments
.AddComment
With .Comment.Shape.OLEFormat.Object
.Text = Application.Subtotal(3, [Tfiltre]) & " ligne(s)" &
vbLf &


"visible(s) sur " & vbLf & [Tfiltre].Rows.Count
.AutoSize = True
End With
With .Comment.Shape.OLEFormat.Object.Font
.Name = "Arial"
.Size = 10
.ColorIndex = 3
.Bold = True
End With
.Comment.Shape.OLEFormat.Object.Interior.ColorIndex = 19
End With
End Sub


"Philippe.R" a écrit dans le message de
news:
Bonjour Daniel,
Regarde si un application.cutcopymodeúlse n'est pas présent dans
l'évènement change de la feuille.

--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002

"Daniel" a écrit dans le message de
news:8TzRc.15058$
Bonsoir a tous

Je n'arrive plus a faire CTRL-V plusieur fois,
la mémoire du coller se vide !!!

Pourquoi et comment y remédier?

Merci