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
ru-th
Salut
la méthode classique (pour vider des cellules copiées) application.cutcopymodeúlse
quel que soit le contenu (objets....) Sub VidePP() Dim rep As Boolean With Application.CommandBars("clipboard") rep = .Visible If rep = False Then .Visible = True If .FindControl(ID:634).Enabled = True Then .FindControl(ID:634).Execute .Visible = rep End With End Sub
a+ rural thierry
"galopin01" a écrit dans le message de news: OZ3QM$
Bonjour, Cette question a un arrière gout de déjà vu mais impossible de retrouver...
Quelle parade avec VBA ? Merci de me rafraichir la mémoire.
Salut
la méthode classique (pour vider des cellules copiées)
application.cutcopymodeúlse
quel que soit le contenu (objets....)
Sub VidePP()
Dim rep As Boolean
With Application.CommandBars("clipboard")
rep = .Visible
If rep = False Then .Visible = True
If .FindControl(ID:634).Enabled = True Then .FindControl(ID:634).Execute
.Visible = rep
End With
End Sub
a+
rural thierry
"galopin01" <roger.mazurczak@laposte.fr> a écrit dans le message de news:
OZ3QM$p4EHA.1400@TK2MSFTNGP11.phx.gbl...
Bonjour,
Cette question a un arrière gout de déjà vu mais impossible de
retrouver...
Quelle parade avec VBA ?
Merci de me rafraichir la mémoire.
la méthode classique (pour vider des cellules copiées) application.cutcopymodeúlse
quel que soit le contenu (objets....) Sub VidePP() Dim rep As Boolean With Application.CommandBars("clipboard") rep = .Visible If rep = False Then .Visible = True If .FindControl(ID:634).Enabled = True Then .FindControl(ID:634).Execute .Visible = rep End With End Sub
a+ rural thierry
"galopin01" a écrit dans le message de news: OZ3QM$
Bonjour, Cette question a un arrière gout de déjà vu mais impossible de retrouver...
Quelle parade avec VBA ? Merci de me rafraichir la mémoire.