Copie valeur cellule si condition remplie

Question

Bonjour à tous.


Je vous soumets un petit pb : 

J'ai une liste de 3 noms en face j'ai 10 noms de projets. Je voudrais que les projets traités par les personnes (repérés par les X) se copient en face des noms dans le tableau + bas comme l'exemple joint. 

Merci à vous de l'aide que vous pourrez m'apporter.

Frenchie83 · Accepted Answer

Bonjour,

Mauvaise présentation du tableau, les projets doivent se trouver à gauche (colonne A) pour permettre aisément l'extension des noms.

Voici une proposition en VBA
https://mon-partage.fr/f/S4omVLsF/

Le code utilisé
Sub Restit()
    Dim DerLig As Long, DerCol As Long, Lig As Long, Col As Long
    Dim NomTraite As Boolean
    Dim l As Long, c As Long
    
    Application.ScreenUpdating = False
    DerLig = [A1000].End(xlUp).Row
    DerCol = [A1].End(xlToRight).Column
    Lig = 13 'ligne de départ du tableau de la collecte
    Col = 5 'Colonne de départ du tableau de la collecte
    For c = 2 To DerCol
        Nom = Cells(1, c)
        NomTraite = False
        For l = 2 To DerLig
            If Cells(l, c) = "x" Then
                If NomTraite = False Then Cells(Lig, Col) = Nom
                Cells(Lig, Col + 1) = Cells(l, "A")
                NomTraite = True
                Lig = Lig + 1
            End If
        Next l
    Next c
End Sub

Vous pouvez ajouter autant de noms que vous le désirez. par contre, si vous choisissez de changer l'emplacement du tableau restitué,  il vous suffit de modifier les paramètres "Lig" et "Col" dans le programme ((actuellement en ligne 13 et colonne 5)

Cdlt

Raymond PENTIER · Answer

Bonjour.

Première aide, absolument basique : 
Une base de données destinée à des tris, des filtres et des recherches ne doit avoir ni ligne vide, ni colonne vide. Alors commence par supprimer la ligne 2 et la colonne D.

Petite précision : 
Le vrai tableau contient combien de lignes (projets) et combien de colonnes (personnes) ?

Copie valeur cellule si condition remplie

2 réponses

Discussions similaires

Newsletters