Contenu récent par Alain 7633

  1. A

    Microsoft 365 plusieurs conditions dans "for each"

    Bonjour @Dranreb, Merci, ça fonctionne ainsi : ------------------- Sub test() Dim monPivIt As Object, Mavariable Mavariable1 = ThisWorkbook.Sheets("p11").Range("c4").Value Mavariable2 = ThisWorkbook.Sheets("p11").Range("c5").Value Mavariable3 = ThisWorkbook.Sheets("p11").Range("c6").Value...
  2. A

    Comment en VBA 'décocher' en 1 seule fois tout les 'PivotItems' d'un tableau Dyn

    bonjour, ça ne fonctionne pas en remplaçant "and" par "or" j'ai testé ces 2 syntaxes : If (monPivIt.Name <> Mavariable1) Or (monPivIt.Name <> Mavariable2) Then monPivIt.Visible = False If (monPivIt.Name <> Mavariable1 Or Mavariable2) Then monPivIt.Visible = False
  3. A

    Microsoft 365 plusieurs conditions dans "for each"

    Bonjour, je cherche à afficher dans un TCD un liste de 5 choix. Je commence par donner un valeur à mes variables : -------------- Dim monPivIt As Object, Mavariable Mavariable1 = ThisWorkbook.Sheets("p11").Range("c4").Value Mavariable2 = ThisWorkbook.Sheets("p11").Range("c5").Value Mavariable3...
  4. A

    Microsoft 365 With Selection.Parent.MailEnvelope.Item

    Bonjour, désolé @patricktoulon (césar), je pensais que "cocher la coche à droite" signifiait que le post était résolu, lol du coup, on fait ça où ?
  5. A

    Microsoft 365 With Selection.Parent.MailEnvelope.Item

    bonjour, Merci @patricktoulon, c'est bien cela que tu as rajouté ? plage.BorderAround Color:=vbWhite entre temps, j'avais contourné en désactivant le quadrillage, ça faisait le job. Merci beaucoup !
  6. A

    Microsoft 365 With Selection.Parent.MailEnvelope.Item

    Bonjour, bon, ça ne fonctionne pas vraiment bien ; je vous explique. dans mon "body" sur l'email envoyé, j'ai en permanence ces 2 lignes (à gauche et en haut) surlignées en jaune qui apparaissent. voilà, voilà...
  7. A

    Microsoft 365 With Selection.Parent.MailEnvelope.Item

    Bonjour et merci patricktoulon, ça fonctionne, j'avoue ne pas tout comprendre (je ne suis pas très familier avec les "function" au delà des "sub" mais ça fonctionne). Je me dépêche à paramétrer tous mes reportings puis je me poserai pour bien comprendre. Encore merci !
  8. A

    Microsoft 365 With Selection.Parent.MailEnvelope.Item

    Bonjour, je n'ai pas encore regardé la proposition de BrunoM45. Voici le doc. La macro est "envoimail2" : pour expliquer, je récupère des données via requête SQL query dans onglet "base", je traite et mets en forme sur onglets "index" et "graph0" puis "graph1" est constitué d'une image liée à...
  9. A

    Microsoft 365 With Selection.Parent.MailEnvelope.Item

    Bonjour à tous, Je viens de m'inscrire sur le site. Je rencontre un problème de format d'email envoyé par Excel en vba. Le rendu sur PC est plutôt propre et correspond à mes attentes (la taille de l'image est normale). Alors que sur mobile (IPhone), l'image est toute petite (style miniature) ...