Contenu récent par danpom302

  1. D

    Microsoft 365 Afficher Masquer un bouton

    Bonjour à vous tous, Merci pour vos réponses. Tout fonctionne comme je le veux. Bonne journée, Danpom302
  2. D

    Microsoft 365 Afficher Masquer un bouton

    Bonjour à tous, Je recherche une macro qui : Si la cellule F1 = R, le bouton 6 se masque. Si la cellule F1 = C, le bouton 6 s'affiche. S.v.p., voir le fichier ci-joint. Note : J'ai essayé plusieurs codes et rien ne fonctionne. Problème de compréhension :( Merci pour votre aide :), Dan
  3. D

    Microsoft 365 Concatener texte et date

    Merci à vous tous. Le tout fonctionne. DanPom
  4. D

    Microsoft 365 Concatener texte et date

    Bonjour à vous tous, Je veux concatener en VBA ce texte Semaine du et cette date 3 janv 2022, mais je n'y parviens pas apès plusieurs tentative de code. J'obtiens toujours une date en nombre. Pouvez-vous m'aider s.v.p. ? DanPom
  5. D

    Microsoft 365 Boucle Do until

    Très bien Phil69970. Bonne journée et merci encore. Dan
  6. D

    Microsoft 365 Boucle Do until

    Première fois sur ce site. Désolé. Là, est-ce mieux ainsi ? Dan
  7. D

    Microsoft 365 Boucle Do until

    Merci, ça fonctionne maintenant. Bravo !
  8. D

    Microsoft 365 Boucle Do until

    Bonjour, ça ne fonctionne pas à End If. Voici mon code corrigé. Une suggestion s.v.p. ? Merci, Dan Sub E_Impression_Multiple_Imprimer_Envoi_De_Courriel() ' ' Sélectionner la feuille Impression multiple et la déprotéger Sheets("Impression multiple").Select ActiveSheet.Unprotect...
  9. D

    Microsoft 365 Boucle Do until

    Merci, j'essai de corriger et je vous reviens demain.
  10. D

    Microsoft 365 Boucle Do until

    Merci, J'essai le tout demain et vous reviens. Dan
  11. D

    Microsoft 365 Boucle Do until

    Merci. J'essai de corriger. Dan
  12. D

    Microsoft 365 Boucle Do until

    Bonjour, j'ai un code VBA qui ne fonctionne pas. Erreur de compilation : Boucle sans Do, alors que Do est dans le code. Pouvez-vous m'aider s.v.p. ? Dan Sub E_Impression_Multiple_Imprimer_Envoi_De_Courriel() ' ' Sélectionner la feuille Impression multiple et la déprotéger...
  13. D

    Microsoft 365 Changement de couleur si

    Merci, le tout fonctionne. Dan
  14. D

    Microsoft 365 Changement de couleur si

    Merci, le tout fonctionne. Dan
  15. D

    Microsoft 365 Changement de couleur si

    Bonjour à tous, je cherche une formule avec Si, pour exécuter ceci: Si la cellule A143 >0; mettre aucune couleur dans la cellule G143 Merci pour votre aide, Dan