XL 2010 Macro excel - Copier valeur commencant par

Elodie195 · 8 Août 2017

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 · 8 Août 2017

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

VB:

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 · 8 Août 2017

Bonjour Dranreb,

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

Bonne journée.

XL 2010 Macro excel - Copier valeur commencant par

Elodie195

XLDnaute Occasionnel

Pièces jointes

Dranreb

XLDnaute Barbatruc

Elodie195

XLDnaute Occasionnel

Discussions similaires

XL 2010 Macro excel - Copier valeur commencant par

Elodie195

XLDnaute Occasionnel

Pièces jointes

Dranreb

XLDnaute Barbatruc

Elodie195

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency