XL 2010 Macro excel - Copier valeur commencant par

[Elodie195]

Bonjour,

Je sollicite votre aide pour une macro Excel.

J'ai un fichier Excel avec 2 onglets :
- Base (mes données brutes)
- Résultat_a_obtenir

Dans l'onglet "base", nous avons des numéros de dossier en colonne C.

Dans l'onglet "résultat_a_obtenir", nous avons 2 numéros de dossiers en A1 et A2 (ces données sont fixes et déjà présentes)

Je souhaiterais que dans le tableau jaune apparaissent tous les dossiers ayant ce numéro (dans mon exemple, les 4 lignes jaunes doivent être remplies.

Pour le tableau orange, 2 lignes doivent être remplies.

(les tableaux jaunes et oranges sont des tableaux fixes. Seul le nombre de ligne à copier est variable : de 2 à 4 lignes maxi)

Merci pour votre aide.

Bonne journée.

 

[Dranreb]

Bonjour.
Ça, dans le module de la feuille :

Option Explicit

Private Sub Worksheet_Activate()
Dim TE(), LE&, TS(1 To 9, 1 To 10), LS1&, LS2&, C&, V1, V2
TE = Feuil1.[A1].Resize(Feuil1.UsedRange.Rows.Count, 10).Value
V1 = Me.[A1].Value & "*"
V2 = Me.[A2].Value & "*"
LS2 = 5
For LE = 1 To UBound(TE, 1)
   If TE(LE, 3) Like V1 Then
      LS1 = LS1 + 1: For C = 1 To 10: TS(LS1, C) = TE(LE, C): Next C
   ElseIf TE(LE, 3) Like V2 Then
      LS2 = LS2 + 1: For C = 1 To 10: TS(LS2, C) = TE(LE, C): Next C
      End If: Next LE
Me.[A4:J12].Value = TS
End Sub

 

[Elodie195]

Bonjour Dranreb,

Merci beaucoup pour votre aide, c'est exactement ce que je souhaitais

Bonne journée.