Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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" <pellet15@videotron.ca> a écrit dans le message de
news:8TzRc.15058$Xc5.381252@weber.videotron.net...
Bonsoir a tous
Je n'arrive plus a faire CTRL-V plusieur fois,
la mémoire du coller se vide !!!
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
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.
"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
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_S_rauphil@wanadoo.fr> a écrit dans le message de
news:eXEPdBdfEHA.2604@TK2MSFTNGP10.phx.gbl...
Bonjour Daniel,
Regarde si un application.cutcopymodeúlse n'est pas présent dans
l'évènement change de la feuille.
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.
"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
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.
"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
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" <pellet15@videotron.ca> a écrit dans le message de
news:9BdSc.34110$f5.823359@weber.videotron.net...
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_S_rauphil@wanadoo.fr> a écrit dans le message de
news:eXEPdBdfEHA.2604@TK2MSFTNGP10.phx.gbl...
Bonjour Daniel,
Regarde si un application.cutcopymodeúlse n'est pas présent dans
l'évènement change de la feuille.
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.
"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
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.
"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
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_S_rauphil@wanadoo.fr> a écrit dans le message de
news:uHe4by1fEHA.236@tk2msftngp13.phx.gbl...
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" <pellet15@videotron.ca> a écrit dans le message de
news:9BdSc.34110$f5.823359@weber.videotron.net...
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_S_rauphil@wanadoo.fr> a écrit dans le message de
news:eXEPdBdfEHA.2604@TK2MSFTNGP10.phx.gbl...
Bonjour Daniel,
Regarde si un application.cutcopymodeúlse n'est pas présent dans
l'évènement change de la feuille.
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.