Voir le flux RSS

joe.levrai

[VBA-EXCEL]Affecter la même valeur à une liste d'articles situés dans un tableau

Noter ce billet
par , 07/11/2016 à 00h01 (350 Affichages)
Sujet d'origine : http://www.developpez.net/forums/d16...onction-match/

Contexte : rechercher des articles dans un tableau et leur affecter une valeur identique

Citation Envoyé par joe.levrai Voir le message
Une suggestion basée sur un tableau structuré excel (objet ListObject en VBA), obtenu via le menu Insertion >> Tableau

Sur Feuil1, en colonne A : Une liste d'articles qui commence en A1, sans ligne vide, et la colonne B vide
Sur Feuil2, un tableau structuré appelé "Tableau1", muni de deux colonnes : colonne A = "ARTICLES" ; colonne B = "QUANTITE"

Objectif : au moyen de la liste d'articles saisis dans Feuil1, on veut écrire le chiffre 1 dans la colonne "QUANTITE" (située 1 colonne à côté de "ARTICLES") relative à chaque article de la liste

Méthode :

1 - Sur Tableau1
2 - Filtrer les données, sur la colonne ARTICLES,avec les articles de Feuil1, ne retenir que ces valeurs
3 - Ecrire 1 colonne à côté de chaque article visible le chiffre 1
4 - Enlever le filtre

Code VBA : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Sub toto()
    With Feuil2.ListObjects("Tableau1")
        .DataBodyRange.AutoFilter .ListColumns("ARTICLES").Index, Application.Transpose(Feuil1.Cells(1, 1).CurrentRegion.Value), xlFilterValues
        .ListColumns("ARTICLES").DataBodyRange.SpecialCells(xlCellTypeVisible).Offset(0, 1).Value = 1
        .DataBodyRange.AutoFilter
    End With
End Sub

On suppose qu'au moins un article de la liste existe dans le tableau de destination, par exemple en mettant en place un système où la liste d'article...ne puisse être alimentée que par des articles existants dans le tableau de destination.
A défaut, il faudra sécuriser la ligne 4 de la proposition qui renverrait une erreur si aucun article de la liste n'existe

Bon amusement

Envoyer le billet « [VBA-EXCEL]Affecter la même valeur à une liste d'articles situés dans un tableau » dans le blog Viadeo Envoyer le billet « [VBA-EXCEL]Affecter la même valeur à une liste d'articles situés dans un tableau » dans le blog Twitter Envoyer le billet « [VBA-EXCEL]Affecter la même valeur à une liste d'articles situés dans un tableau » dans le blog Google Envoyer le billet « [VBA-EXCEL]Affecter la même valeur à une liste d'articles situés dans un tableau » dans le blog Facebook Envoyer le billet « [VBA-EXCEL]Affecter la même valeur à une liste d'articles situés dans un tableau » dans le blog Digg Envoyer le billet « [VBA-EXCEL]Affecter la même valeur à une liste d'articles situés dans un tableau » dans le blog Delicious Envoyer le billet « [VBA-EXCEL]Affecter la même valeur à une liste d'articles situés dans un tableau » dans le blog MySpace Envoyer le billet « [VBA-EXCEL]Affecter la même valeur à une liste d'articles situés dans un tableau » dans le blog Yahoo

Mis à jour 17/08/2017 à 14h13 par Malick (Ajout balises code)

Catégories
Sans catégorie

Commentaires