Microsoft 365 Automatisation à travers un bouton

[Chris Linefield]

Bonjour tout le monde !


Je viens vers vous car j'ai une requête particulière et j'ai du mal à visualiser ce que je dois faire pour obtenir satisfaction, je m'explique :
Il y aurait un champ type liste déroulante avec le nom des produits (cellule : AB->AV) avec un bouton de validation sur une feuille vierge qui effectuerait les actions suivantes en dessous du bouton sur la même feuille :
- Récupère le nom du produit afin de filtrer uniquement les lignes où le produit est coché
- Sur les colonnes A, B, C, récupérer les colonnes P, Q, R et les copier (toujours en prenant en compte uniquement les lignes qui sont cochés en fonction du produit choisi)
- Sur la colonne D, récupérer la colonne A, toujours en prenant en compte uniquement les lignes qui sont cochés en fonction du produit choisi
- Sur la colonne E, récupérer la colonne H, toujours en prenant en compte uniquement les lignes qui sont cochés en fonction du produit choisi
- Sur la colonne F, récupérer la colonne F, , toujours en prenant en compte uniquement les lignes qui sont cochés en fonction du produit choisi

Il faudra appliquer également un tri au niveau des dates (du plus ancien au plus récent).

Croyez-vous cela possible ? Peut-être avez-vous une solution plus facile ?

Merci de m'avoir lu, je reste disponible si vous avez des questions.


Cordialement,

 

[sousou]

Pour moi rien dans chine ap local

 

[Chris Linefield]

Je t'ai répondu en mp

 

[sousou]

On reprend ici après lecture du dernier mail

 

[Chris Linefield]

@sousou
Pour les filtres, il semblerait que j'ai eu un souci car là ça fonctionne bien. Cependant j'ai toujours un souci au niveau de la récupération des données. Quand tu appliques en prenant en liste déroulante "China Local AP", il t'indique 6 résultats, cependant dans le tableau ci dessous il n'en applique que 4. Quand tu regardes sur "Feuil1" nous obtenons 4 lignes, les deux premières lignes ne sont pas renseignés dans le tableau.

J'espère avoir été assez explicite sur ma problématique.

 

[sousou]

Tu as repris le dernier fichier que je t'ai envoyé?
Avec les couleurs

 

[Chris Linefield]

Oui, tu peux le voir sur la capture.

 

[sousou]

Modifie comme ceci,
Il y a toujours quelquechoses dans la colonne d?
Sub raz(feuilleresultat)

compteur = 0: mess1 = ""
With Sheets(feuilleresultat)
Set zone = .Range(.Cells(13, 1), .Cells(.Cells(.UsedRange.Rows.Count + 10, 4).End(xlUp).Row + 1, 6))

zone.ClearContents
zone.Interior.Pattern = xlPatternNone

End With
End Sub

 

[Chris Linefield]

@sousou
Il semblerait que tu es trouvé la solution ! Je test ça plus en approfondi demain et je te donne des news rapidement.
Je tiens à te remercier sincèrement pour l'aide et le temps que tu m'as apporté, ça me touche sincèrement.

Merci encore sousou et bonne soirée à toi