Contenu récent par BEOS

  1. B

    Microsoft 365 Macro indique qualificateur incorrect

    Petite modif su fichier. Les mails n'étaient pas en colonne H dans la feuille "Source" du fichier précédent
  2. B

    Microsoft 365 Macro indique qualificateur incorrect

    @soan ci-joint un fichier exemple. A noter que les Feuil1,Feuil2, Feuil3 portent en réalité d'autres noms
  3. B

    Microsoft 365 Macro indique qualificateur incorrect

    Sub test() Dim j As Integer, i As Integer, lig As Integer, dlg As Integer, ws As Worksheet With Sheets("Récap") Set c = .Cells.Find("*", LookIn:=xlValues) If Not c Is Nothing Then dlg = c.Row If dlg = 1 Then dlg = 2 With Sheets("Source") For j = .Range("H" &...
  4. B

    Microsoft 365 Macro indique qualificateur incorrect

    J'ai une macro qui fonctionne mais qui ne fait absolument rien @soan @pierrejean Je vais vous expliquer ce que je voudrais traiter et ensuite coller la macro Les feuilles contenant les données à rechercher sont "Feuil1", "Feuil2" et "Feuil3". La feuille "Source" est celle contenant les...
  5. B

    Microsoft 365 Macro indique qualificateur incorrect

    @pierrejean @soan On aurait donc ceci comme code ? Parce que le déboggage s'arrête à la ligne set c et j'ai une erreur d'éxécution 9 m'indiquant que l'indice n'appartient pas à la selection à partir de la ligne en gras alors que la feuille se nomme bien "Récap" Sub test() Dim j As Integer, i...
  6. B

    Microsoft 365 Macro indique qualificateur incorrect

    Bonjour et merci pour votre retour. Il m'affiche erreur d'éxécution 91: ariable objet ou variable de bloc with non définie. L'erreur est entre ces deux lignes: dlg = .Cells.Find("*", LookIn:=xlValues).Row + 1 If dlg = 1 Then dlg = 2
  7. B

    Microsoft 365 Macro indique qualificateur incorrect

    Bonjour. Je vous affiche mon code. En l'éxécutant j'ai une erreur compilation: qualificateur incorrect. Pourriez-vous m'aider s'il vous plait? Merci Sub test() Dim j As Integer, i As Integer, lig As Integer, dlg As Integer, ws As Worksheet With Sheets("Récap") dlg = .Cells.Find("*"...