Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

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.



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
 

Chris Linefield

XLDnaute Junior
@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
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…