Import sous conditions

Question

Hello le fofo,

Je reviens ici avec un sujet car malgré mes recherches dans les discutions, je ne trouve pas mon bonheur ...
Je m'explique :

J'ai un fichier A avec un onglet 1 dans lequel je trouve les conditions suivantes : 
- SAISON = cellule C5
- SEGMENT = cellule C6
- FAMILLE = cellule C8
- CONDITION X = cellule X (possibilité dans l'avenir d'ajouter une condition)
- un bouton "Importer"

J'ai un onglet 2 du fichier A qui lui est l'endroit dans lequel je vais importer les éléments. A terme il comporte des données, je veux les supprimer et les remplacer à chaque nouvel import.

J'ai un fichier B avec un onglet 1 qui lui comporte X colonnes avec une en-tête en ligne 2 et les valeurs les unes à la suite des autres en dessous. 
Je retrouve notamment mes conditions :
- SAISON en colonne B
- SEGMENT en colonne E
- FAMILLE en colonne A
- CONDITION X en colonne X

L'exécution doit sélectionner toutes les lignes de l'onglet 1 du fichier B, les copier, puis les coller dans l'onglet 2 du fichier A.
J'aimerai de plus que, si une des conditions est "null" alors il ne la prend pas compte.

Si quelqu'un à la recette miracle .. je l'en remercie de tout coeur 

A+

gbinforme · Answer

Bonjour, 

Pour les miracles, tu n'es peut-être pas au bon endroit, mais je te propose d'utiliser cette macro pour réaliser ton projet : 
Public Sub import()
Dim cel As Range, wi As Workbook, lig As Long
    Set wi = Workbooks("Classeur2") ' mettre le nom du classeur à copier ouvert
    Sheets(2).Cells.ClearContents
    wi.Sheets(1).Rows(2).Copy Destination:=Sheets(2).Rows(1)
    lig = 2
    For Each cel In wi.Sheets(1).UsedRange.Columns(1).Cells
        If cel.Value = [C8].Value _
            And cel.Offset(0, 1).Value = [C5].Value _
            And cel.Offset(0, 4).Value = [C6].Value Then
                wi.Sheets(1).Rows(cel.Row).Copy Destination:=Sheets(2).Rows(lig)
                lig = lig + 1
        End If
    Next cel
End Sub

Il faut bien sûr mettre le nom correct de ton classeur à copier.

Import sous conditions

1 réponse

Votre réponse

Discussions similaires

Newsletters