Microsoft 365 Automatisation à travers un bouton

Chris Linefield

XLDnaute Junior
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,
 

Pièces jointes

  • testexcel_Sylvie.xlsx
    85.6 KB · Affichages: 9

sousou

XLDnaute Barbatruc
Pour moi rien dans chine ap local

1642070635602.png
 

Pièces jointes

  • modif_archives.xlsm
    197.3 KB · Affichages: 1

Chris Linefield

XLDnaute Junior
@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.
1642088053630.png

1642088085185.png


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

sousou

XLDnaute Barbatruc
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
 

Discussions similaires

Statistiques des forums

Discussions
311 733
Messages
2 082 015
Membres
101 870
dernier inscrit
Dethomas