Résultats de la recherche

  1. P

    copier le contenu de ma TARGET dans le presse papier

    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"...
  2. P

    XL 2016 [VBA] sélectionner une zone flottante

    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()...
  3. P

    XL 2013 Tracer frise chronologique

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

    Power Point Powerpoint : lancement automatique d'une macro à l'ouverture du fichier

    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...
  5. P

    Power Point Powerpoint : lancement automatique d'une macro à l'ouverture du fichier

    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) ?
  6. P

    XL 2010 Macro pour ouvrir un fichier dans DROPBOX

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

    XL 2010 Macro pour ouvrir un fichier dans DROPBOX

    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...
  8. P

    XL 2010 Couleur d'une cellule en fonction de la date d'une autre

    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...
  9. P

    VBA - Parcourir dossiers et ouvrir fichier excel particulier

    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 =...
  10. P

    XL 2013 Excel peut il le faire

    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
  11. P

    Probleme general quand plusieurs fichiers sont ouvert

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

    XL 2013 visibilite et protection par mdp

    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...
  13. P

    XL 2010 Couleur d'une cellule en fonction de la date d'une autre

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

    XL 2010 Liste sans doublon ...plusieurs colonnes ...vba

    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...
  15. P

    XL 2010 Liste sans doublon ...plusieurs colonnes ...vba

    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...
  16. P

    XL 2016 Problème macro ouverture Outlook a l'arrièce plan avec la fonction Shell

    Bonjour, Essayez avec le code suivant Sub OutlookOpenMinimized() Dim OL As Object 'Outlook.Application Dim NS As Object 'Namespace Dim MF As Object 'MAPIFolder Dim EXP As Object 'Explorer '--- Set OL = CreateObject("Outlook.Application") If OL.Explorers.Count = 0 Then Set NS =...
  17. P

    VBA condition valeur cellule

    Bonjour, Essayez avec le code suivant Sub aa() Dim Recherche As Variant Dim C As Range Dim FirstAddress As String Dim A$ Recherche = Worksheets("Feuil3").Cells(2, 1) With Worksheets("Feuil1").Range(Cells(1, 1), Cells(200000, 30)) Set C = .Find(What:=Recherche, LookIn:=xlValues) If Not C Is...
  18. P

    XL 2010 Liste sans doublon ...plusieurs colonnes ...vba

    Bonjour, Comme vous voulez obtenir une Synthèse de tous vos mois, une seule procédure (Sub BilanInterCours) est nécessaire. Il faut donc : 1) Supprimer tous les codes événementiels des feuilles mois. 2) Copiez le code suivant dans un module standard Const FIRST_CELL_DATA As String = "F3" 'La...
  19. P

    XL 2010 Liste sans doublon ...plusieurs colonnes ...vba

    Ce n'est pas bon comme vous faites. Une seule procédure SommeInterCours est nécessaire dans un module standard, seules les feuilles ont besoin chacune de la même procédure événementielle Sub Worksheet_Change. Vous inscrirez les résultats dans la feuille BILANS mais au lieu qu'ils soient en...
  20. P

    XL 2010 Liste sans doublon ...plusieurs colonnes ...vba

    Oui. Veuillez fournir un classeur exemple avec les données et ce que vous voulez obtenir.