Contenu récent par homepyrof53

Bonjour, Je viens de créer une barre d'outils personnelle (compléments) en vba. Tout se passe bien sauf Les options style de boutons Bouton.style=msoButtonIconAndWrapCaption qui n' aucun effet. Normalement il y a 8 possibilités. (voir https://fring.developpez.com/vba/excel/barremenu/#L2-2-1 )...

Re : Date format 10-FEB-2016 => 10/02/2016 Bonjour, Pour information et pour réduire le temps d'exécution mettre en de but de macro Application.ScreenUpdating = False Application.Calculation = xlCalculationManual et en fin de macro Application.ScreenUpdating = True Application.Calculation =...

Re : Date format 10-FEB-2016 => 10/02/2016 La solution par macro est ici privilégiée du fait qu'il est fait un import des données par macro. Il suffit d'inclure le vba dans la macro d'import.

Re : Macro - Revenir en haut de page et désactiver filtre Bonjour, Quand tu as écrit ta macro il faut enregistrer le fichier "avec macro" (option format d'enregistrement) Le fichier aura l'extension .xlsm (pour pour contenant macro)

Re : Date format 10-FEB-2016 => 10/02/2016 Je ne connaissait ces "propriétés" il faut modifier la ligne Cells(1, 1).FormulaR1C1 = a en Cells(i, 1).FormulaR1C1 = a

Re : Date format 10-FEB-2016 => 10/02/2016 Bonjour, Voici un bout de code ( à compléter) Sub formalise_date() date1 = Cells(2, 1) jour = Val(Split(date1, "-")(0)) annee = Val(Split(date1, "-")(2)) mois1 = Split(date1, "-")(1) Select Case mois1 Case "JAN": mois = 1 Case "FEB": mois = 2...

Re : Menu de sélection Bonjour, Voila une ébauche de macro

Re : Nombre de livraison par produit Bonjour, voici la macro Sub test() Dim L, C, Ref Dim DateDeb As Date Dim DateFin As Date Dim DateRef As Date Dim Tab_ref Set Tab_ref = CreateObject("scripting.dictionary") L = 3 C = 1 DateDeb = "12/01/2015" DateFin = "12/01/2015"...

Re : Nombre de livraison par produit Bonjour, par macro

Re : Inverser un texte complet (1ere ligne à la place de la dernière etc...) Bonjour, Voici une macro Sub lignes() nbp = ActiveDocument.Paragraphs.Count For b = 1 To nbp - 1 Selection.EndKey unit:=wdStory Selection.Paragraphs(1).Range.Select Selection.Cut Selection.HomeKey...

Re : Inverser un texte complet (1ere ligne à la place de la dernière etc...) Bonjour, Tu fais une macro qui insère un numéro a partir de 1000 avec un incrément de 1 Trier en ordre inverse Seconde macro qui supprime les numéros

Re : vba word faire une recherche d'un mot avec une boucle et supprimer le mot Bonjour, Essais : Sub pf() Selection.HomeKey unit:=wdStory With Selection.Find .Text = "mot" .Execute End With While Selection.Find.Found And cpt <= 3 Selection.Expand unit:=wdParagraph...

Re : Total et montant des heures Bonjour, Non je ne cale pas, mais ru ne donnes pas assez d'information, comme je ne veux pas donner mon adresse mail, t'aurais pu fournir un fichier avec le minimum de datas mais avec toute la partie vba. Pour moi c'était relativement simple mais il faut...

Re : Total et montant des heures Je vois que la userform est déjà faite, je pensais que tu commençais le projet. Dans ce cas il faut joindre cette userform Merci

Re : Total et montant des heures Bonjour, Ok c'est le temps max par pilote mais dans la feuille parametres je ne vois pas le nom des pilotes, il faudrait un tableu temps max de facturation par nom de pilote. Pour comprendre un peu plus IMMAt = immatriculation du planeur Une IMMAT correspond à...