Bonjour à tous
Je fais des taches répétitifs chaque semaine et je me demandais si il y avais moyen de m'aider un peu. (Je pense que c'est compliquer)
Je fais régulièrement 2 extractions (Extraction DEVIS et Extraction TRAVAUX )
Après pour l'extraction devis : je change la place de la dernière colonne (CTP) à coté de la colonne (Chargé d'affaire) après j'enlève la colonne (sta_statues ) je tri mon tableau avec la colonne chargé d'affaire (pour regrouper )et je fais copier collage spéciale text unicode sur l'onglet "Devis" (c'est une trame déjà prête )
Après l'extraction travaux : J'enlève la dernière colonne (sta_status ) et je fais le tri avec la colonne chargé d'affaire e fais copier collage spéciale text unicode dans l'onglet "Travaux"
Une fois que toute les extractions sont faites je colore les colonnes de chargé d'affaire de l'onglet Devis et Travaux selon le tableau dans l'onglet C.A
Pour le coloriage j'ai essayer ce code mais ça me fais planter mon excel je sais pas pourquoi :
Sub Colorisertableau()
' Macro1 Macro
Application.ScreenUpdating = False
Set F1 = Worksheets("Devis")
With F1
Set Plage = .Range("Devis!B:B")
End With
For Z = 3 To 33 Step 1
For Each cell In Plage
cell.Select
If cell.Value = Cells(Z, 2).Value Then Selection.Interior.Color = F1.Cells(Z, 2).Interior.Color
If cell.Value = Cells(Z, 2).Value Then Selection.Font.Color = F1.Cells(Z, 2).Font.Color
Next
Next Z
Application.ScreenUpdating = True
End Sub
Merci à tous et j'espère que mes explications étaient assez claire.
J'espère que vous avez des solutions pour moi