Contenu récent par Wisefun77

  1. Wisefun77

    Microsoft 365 Perfectionner une Macro

    Bonjour, Pour le code de @TooFatBoy, ce sont les tableaux que je n'arrive pas à nommer. J'ai un gros soucis avec les tableaux même en PHP. Donc je vais travailler dessus. Mais pas de concurrence entre vous SVP. 🤣🤣🤣🤣🤣🤣🤣
  2. Wisefun77

    Microsoft 365 Perfectionner une Macro

    Bonjour danielco, TooFatBoy, Merci pour vos code. J'ai testé celui de danielco, c'est super. J'ai testé celui de TooFatBoy, c'est super. Mais je ne sais pas pourquoi je le sens plus à l' aise avec le code de danielco. Je vais étudier plus fond celui de TooFatBoy, Et merci aussi pour l'astuce...
  3. Wisefun77

    Microsoft 365 Perfectionner une Macro

    Bonjour Deadpool_CC, Désolé, je le suis encore mal exprimé. J'aimerai que seulement les lignes comportant "OK" soient copiée. Pardonnez mon erreur, la vieillesse étant. Merci beaucoup.
  4. Wisefun77

    Microsoft 365 Perfectionner une Macro

    Bonjour Danielco, Je viens de tester ton code et cela copie toutes les lignes y compris celle que ne contiennent pas "OK". Pas trop grave pour le moment. Merci pour vos aides.
  5. Wisefun77

    Microsoft 365 Perfectionner une Macro

    Bonjour Deadpool_CC, Oui c'est bien cela. Voici le fichier. Merci beaucoup.
  6. Wisefun77

    Microsoft 365 Perfectionner une Macro

    Bonjour, Cette macro fonctionne bien. Sub todocopy() Worksheets("Suivi").UsedRange.Copy Worksheets("TODO").Paste _ Worksheets("TODO").Range("A1") Application.CutCopyMode = False Debut = 3 Fin = 990 ColNb = 1 For i = Debut To Fin If Cells(i, ColNb).Value = "TO DO" Then Cells(i...