Contenu récent par PMO2

Bonjour, Essayez Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 3 Then 'double clic sur colonne 3 C Target.Copy CreateObject("Wscript.shell").Popup "DONNEES : " & Target.Value & " COPIÉES DANS LE PRESSE PAPIER", 1, "COPIE DES DONNEES"...

Bonjour, Pas sûr d'avoir compris ce que vous voulez ??? Essayez la démarche suivante : 1) copiez le code suivant dans la fenêtre de code de ThisWorkbook Private Sub Workbook_Activate() If ActiveSheet.Name = "test" Then Application.OnKey "^+{p}", "aa" End Sub Private Sub Workbook_Deactivate()...

Patience. C'est en cours de réflexion pour trouver la méthode la plus appropriée.

Bonjour noisy, Code approprié à votre demande. MARCHE A SUIVRE 1) ouvrez un nouveau PowerPoint et sauvegardez le avec le nom noisy.pptm 2) Dans un module standard, copiez le code suivant Public ppApplication As New clsEvents Sub Auto_Open() Set ppApplication.ppApp = Application End Sub Sub...

Bonjour noisy, Le code est obsolescent car il concernait Office 2003, tout à changé depuis. Vous voulez faire quoi précisément (intercepter les évènements : PresentationOpen / AfterNewPresentation / AfterPresentationOpen / NewPresentation / etc) ?

C'est sûr que vous ne le trouverez pas si vous ne le cherchez pas dans la fenêtre qui s'ouvre !!!

Bonjour, Essayez l'un des codes suivants '### Les noms des utilisateurs sont inconnus ### Sub aa() Dim rep As Variant '--- ChDir "C:\" rep = Application.GetOpenFilename(FileFilter:="Classeurs Excel(*.xls*),*.xls*") If rep = False Then Exit Sub Workbooks.Open rep End Sub '### Les noms des...

Bonjour, Essayez avec le code modifié ci-dessous Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim S As Worksheet Dim R As Range Dim C As Range Dim C2 As Range Dim var Dim I& Dim CeJour As Date '--- Application.EnableEvents = False Application.ScreenUpdating = False CeJour = Now...

Bonjour, Peut être comme ce qui suit Function BoucleFichiers(Chemin As String, Extension As String) As Integer Dim Fso As Object Dim Dossier As Object Dim Fichier As Object Dim WB_TargetFichier As Workbook Dim TargetSheet As Worksheet Dim MainSheet As Worksheet Set Fso =...

WebBrowser créé à la volée sur une feuille (OLEObject) Bonjour, Une piste allant dans votre sens avec le classeur exemple joint. 1) Sélectionnez la cellule comportant une adresse (A3 ou A5 dans l'exemple - A NOTER que A3 m'est particulier, adaptez le) 2) Lancez la macro VisuWebBrowser

Bonjour, Il faudrait peut être ouvrir le classeur sur lequel vous travaillez dans un autre instance d'Excel (???).

Bonjour, Une piste avec le classeur exemple joint. 1) copiez le code suivant dans la fenêtre de code de ThisWorkbook Private Sub Workbook_Open() Call VisibiliteFeuilleEtPlageAutorisee End Sub Private Sub Workbook_SheetActivate(ByVal Sh As Object) '--- Force l'événement...

Bonjour, Peut être pourriez-vous vous inspirer de l'exemple en pièce jointe (???)

Bonjour, Il n'y a pas que cette instruction qui crée le dysfonctionnement. Voici un nouveau code (voir les '///) Const FIRST_CELL_DATA As String = "F3" 'La première cellule des data Sub BilanInterCours() Dim S As Worksheet Dim S1 As Worksheet 'Feuille réceptrice Dim V As Validation Dim R As...

Bonjour, Une nouvelle version où 1) toutes les feuilles comportant une Validation sont traitées même si certaines sont vides 2) chaque changement sur les feuilles met à jour la feuille BILANS par le biais de la procédure événementielle Workbook_SheetChange dans la fenêtre de code de ThisWorkbook...