Résultats de la recherche

  1. A

    XL 2010 Extraire en fonction cellules consécutives

    Bonjour à tous, Dans le fichier excel joint, il s'agit d'une extraction d'une session de qualification sur circuit, en colonne A l'identifiant véhicule, en B le temps au tour, en C la conversion au bon format et en colonne D les tours valides ou non (VRAI=VALIDE, FAUX=NON VALIDE) Je...
  2. A

    Marco pour création mail avec contenu du tableau

    Bonjour à tous, dans le fichier joint vous trouverez la macro suivante : Sub MailST() Dim OutApp As Object Dim OutMail As Object Dim adresse, txt As String Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) On Error...
  3. A

    Planning d'atelier mécanique

    Bonjour à tous, Avec un collègue nous utilisons les plannings en pièce jointe. Je souhaiterai l'automatiser un peu, je m'explique : Le premier est un planning de RV et le deuxième un planning de prêt véhicule. Les numéros à 5 chiffres sont les numéros de parc véhicule. Ceux-ci sont à...
  4. A

    Execution Macro très lente

    Bonjour à tous, J’exécute la macro suivante et je trouve l’application plutôt lente. Comme je ne sais pas comment la simplifier je fais appel à vous. "Sub Macro1() ' ' Macro1 Macro ' ' ActiveSheet.Range("$A$2:$S$65536").AutoFilter Field:=7, Criteria1:=Range("J1")...
  5. A

    Macro ou autre

    Bonjour à tous, j'ai un tableau présenté comme ceci (voir PJ) Je souhaiterai filtrer en fonction du N° de véhicule tapé en H1 (ou une autre cellule libre), puis une fois le filtre effectué ajouter un nouveau numéro de commande. (je n'ai pas réussis à faire une macro) Ceci permettant...
  6. A

    Retour sur la feuille active

    Bonjour à tous, j'ai créé la macro suivante : Sub Macro1() Macro1 Macro Range("M2:M4").Select Selection.Copy Sheets("OR GRAIS TR").Select Range("M3").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False...
  7. A

    3 macros en 1 !!!

    Bonjour à tous, je souhaiterai compiler les 3 macros suivante en 1 : 1- Workbooks.Open Filename:= ThisWorkbook.Path & "\export.csv" ----------------------------------------------------------------- 2- Sub test() Dim classeurSource As Workbook, classeurDestination As Workbook Set...
  8. A

    Macro à remanier

    Bonjour à tous, j'ai enregistré cette macro, elle fonctionne bien mais mes nombres se retrouvent en format texte. Que faut-il faire ? J'ai mis le fichier à modifier et le résultat à obtenir pour que cela soit plus compréhensible. En gros voici les manip effectuée ...
  9. A

    Ajouter une valeur

    Bonjour à tous, depuis hier je cherche une formule permettant d'ajouter une même valeur à une autre tous les jours. Ex : si en a1 j'ai 500 et que je souhaite lui ajouter 1 chaque jours.Au bout de 15 jours je doit trouver 515 Merci d'avance.