Microsoft 365 Perfectionner une Macro

Wisefun77 · 19 Août 2022

Bonjour,
Cette macro fonctionne bien.

Code:

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.

VB:

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.

danielco · 22 Août 2022

Bonjour,
Essaie :

VB:

Sub test()
  Dim Plage As Range
  With Sheets("Suivi")
    .ListObjects(1).Range.AutoFilter 1, "ok"
    Set Plage = .ListObjects(1).AutoFilter.Range
    If Application.Subtotal(103, Plage.Resize(, 1)) > 1 Then
      Plage.Offset(1).Resize(Plage.Rows.Count - 1).SpecialCells(xlCellTypeVisible).Copy [OK!A2]
      .ListObjects(1).Range.AutoFilter
    End If
  End With
End Sub

TooFatBoy · 23 Août 2022

Bonjour danielco,

danielco à dit:
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 · 23 Août 2022

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 · 23 Août 2022

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

Microsoft 365 Perfectionner une Macro

Wisefun77

XLDnaute Nouveau

danielco

TooFatBoy

XLDnaute Barbatruc

Wisefun77

XLDnaute Nouveau

danielco

XLDnaute Accro

Discussions similaires