Microsoft 365 Perfectionner une Macro

[Wisefun77]

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, ColNb).EntireRow.Hidden = False
Else
Cells(i, ColNb).EntireRow.Hidden = True
End If
Next i
Worksheets("TODO").Activate
End Sub

Je me demande si je ne pourrai pas l'améliorer.

En fait il faudrait que je dise :

Si dans la colonne A depuis la ligne 2 à la ligne 1000 , il y a dans une cellule le mot "OK"

Alors copier toutes les lignes dans la feuille "OK" à partir de la ligne 2.

J'ai essayé mais je vois pas comment lui donner le mot à rechercher.

Ce code fait afficher de suite la MsgBox, et tourne en boucle, je dois arrêter le processus Excel via le gestionnaire des tâches.

Sub okcopy2()
 Debut = 2
 Fin = 990
 ColNb = 1
For i = Debut To Fin
If Cells(i, ColNb).Value = "OK" Then
Worksheets("Suivi").UsedRange.Copy
 Worksheets("OK").Paste _
 Worksheets("OK").Range("A1")
 Application.CutCopyMode = False
Else
MsgBox "Pas d'incident de fermé"
End If
Next i
Worksheets("OK").Activate
End Sub

Merci à vous.

 

[TooFatBoy]

Bonjour danielco,

J'ai pourtant trouvé ton code plus complet que le mien, et plus simple, aussi. Et commenté, en plus !

Merci.

Le principal est que Wisefun77 ait trouvé une réponse qui lui convienne pour résoudre son problème.

 

[Wisefun77]

Bonjour,

Bonjour @TooFatBoy
J'ai pourtant trouvé ton code plus complet que le mien, et plus simple, aussi. Et commenté, en plus !

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.

 

[danielco]

C'est une différence entre nos deux codes. @TooFatBoy se sert des noms de tableaux alors que je me sers de l'index du tableau (par flemme). Pour savoir le nom d'un tableau, clique dedans, clique sur l'onglet "Création de tableau". Le nom du tableau apparaît dans le groupe "Propriétés" :

Daniel