Macro actions réalisées

Bonjour,

Je travaille avec un fichier excel de suivi d'actions (ci-dessous une version allégée) qui suit les actions en cours et celles réalisées par mes techniciens.

Tout les vendredi, je fais un message vers mes chefs où je rend compte des actions réalisées dans la semaine.

Exemple message :

Nous avons réalisé les actions ci-dessous :

Message N°1 du 01/09/2020 - Action 1;

etc

Je souhaiterais faire une macro qui me trouve toutes les actions réalisées de la semaine et les inscrivent dans l'onglet "CR" afin qu'il ne me reste plus qu'à faire un copié collé dans mon message.

Par exemple dans ma version allégée, pour la semaine 37, le résultat doit être celui que j'ai écrit dans l'onglet "CR".

En espérant avoir été assez clair.

Merci d'avance.

Bonjour Rodham et

C'est quoi cette façon de mettre des tableaux en plein milieu de feuille

Dans Excel, un tableau doit commencer en A1 et non en B6... y'a t-il une raison à cela ?

@+

Bonjour rodham, BrunoM45 , le forum,

Un essai pour me prêter à l'exercice....

Sub Bouton1_Cliquer()
 Dim tablo(), tabloR(), semaine As Integer

 'n° semaine en fonction de la date du jour
  semaine = Format(Date, "ww", vbMonday, vbFirstFourDays)

  'tableau de données
  tablo = Range("B6").CurrentRegion
            k = 0
      'boucle sur les lignes du tableau
      For i = 1 To UBound(tablo, 1)
         'dimensionne le tableau temporaire tabloR
         ReDim Preserve tabloR(1 To 1, 1 To k + 1)
         'Si FAIT et n° semaine Date REALISATION =  N° seamine DATE du jour
          If tablo(i, 4) = "Fait" And Format(tablo(i, 5), "ww", vbMonday, vbFirstFourDays) = semaine Then
          'on récupère les données souhaitées et on les stocke dans la tabloR
            tabloR(1, k + 1) = tablo(i, 1) & " du " & tablo(i, 3) & " - " & tablo(i, 2)
            k = k + 1
          End If
      Next i
       On Error Resume Next
        'agit sur la feuille CR
        With Sheets("CR")
         'efface les données existantes
         .Cells.Delete
         'écrit les données à partir de B6 : adapte la largeur de la colonne B
         .Range("B6").Resize(UBound(tabloR, 2), 1) = Application.Transpose(tabloR): .Columns("B").AutoFit
         'efface le tableau temporaire
         Erase tabloR
         'active la feuille CR
         .Activate
       End With
End Sub

Cordialement,

Salut xorsankukai

Trop fort tu mérite bien CA

Merci Bruno,

Venant d'un pro, je suis flatté,

Amitiés,

Bonjour BrunoM45 et xorsankukai,

Merci pour l’accueil.

Pour te répondre Bruno, d'anciens collègues avec qui j'ai débuté excel laissaient toujours quelques colonnes et lignes inutilisées avant de débuter leur tableau.

J'ai gardé l'habitude depuis ahah.

Super xorsankukai. Il ne me reste qu'à étudier cela pour le retranscrire lundi sur mon fichier excel.

Merci, je vous tiens au jus.

Cordialement.

Bonjour,

Le script marche parfaitement avec mon fichier excel, merci encore.

J'ai cependant oublié de retirer des actions closes datant de l'année dernière, du coup j'avais pour résultat de mes tests des actions closes de 2019 et de 2020 pour la semaine 38.

Je vais faire du ménage dans mon fichier excel mais par curiosité, comment procéderiez-vous pour n'avoir comme résultat que les actions closes de la semaine de l'année en cours ?

J'ai essayé en fouillant sur internet mais je n'ai obtenu que des erreurs.

Cordialement.

Bonjour rodham, BrunoM45, le forum,

Un essai.....en rajoutant l'année comme condition.....

If tablo(i, 4) = "Fait" And Format(tablo(i, 5), "ww", vbMonday, vbFirstFourDays) = semaine And Format(tablo(i, 5), "yyyy") = Format(Date, "yyyy") Then

Cordialement,