Report de cellule dans un autre tableau sous condition

Bonjour à tous,

J’espère de pas dupliquer un sujet mais après recherche je ne le trouve pas.

Je vous expose mon probleme.

Dans le cadre d'un devis

J'ai un 1er tableau contenant une liste de prestation (Colonne A (prestation) colonne B (Sélection). (je met un "x" dans la colonne B pour selectionner la prestation)

Un deuxième tableau contenant les prestations sélectionnées.

Je souhaite pouvoir reporter automatiquement les prestations sélection dans le deuxième tableau.

pour être plus précis j'aimerai savoir comment faire pour reporter les sélections à la suite les unes des autres(1ere presta sectionnée pour la ligne 1 deuxième prestation sélectionnées a la suite etc...

D'avance merci pour votre aide

flo

Bonjour,

Une piste sur l'évènement "BeforeDoubleClick" de la feuille où se trouvent les prestations. Une fois les prestations choisies, un double clic dans n'importe quelle cellule de la colonne B lance la proc.

A mettre dans le module de la feuille ayant la liste des prestations :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    Dim Plage As Range
    Dim Cel As Range
    Dim Lgn As Long

    'seulement la colonne B de la feuille active
    If Target.Column <> 2 Then Exit Sub

    With ActiveSheet

        Set Plage = .Range(.Cells(1, 2), .Cells(.Rows.Count, 2).End(xlUp))

    End With

    'récupère le n° de la dernière ligne occupée en feuille "Feuil2"
    With Worksheets("Feuil2")

        Lgn = .Cells(.Rows.Count, 1).End(xlUp).Row

    End With

    'parcour la colonne B à la recherche des "X" et inscrit les prestations sélectionnées
    For Each Cel In Plage

        If UCase(Cel.Value) = "X" Then

            Lgn = Lgn + 1
            Worksheets("Feuil2").Cells(Lgn, 1).Value = Cel.Offset(, -1).Value

        End If

    Next Cel

End Sub

Hervé.

Merci Bcp Hervé pour ta réponse !!

Malheureusement je n'y arrive pas.

Pour mieux visualiser ma question ci-dessous le fichier :

Je souhaite que les désignations (colonne C) cochées dans la feuille 2 se reporte sur la feuille 1 (Zone Rouge) les uns à la suite des autres...

Please Help

Encore merci pour ton aide

Bonjour,

Regarde et teste. Le fichier est maintenant en .xlsm.

Hervé.

Merci Hervé ! t'es un Chef !!

MERCIIIII

Ca marche nickel sauf une petite chose :

La partie "vide la zone" ne vide pas les cellules de la feuil1 mais de la feuil2. pourtant le code me parait correct.

As tu un idée ?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim Plage As Range

Dim Cel As Range

Dim Lgn As Long

'seulement la colonne F de la feuille active

If Target.Column <> 6 Then Exit Sub

With ActiveSheet

Set Plage = .Range(.Cells(3, 6), .Cells(.Rows.Count, 6).End(xlUp))

End With

With Worksheets("Feuil1")

'vide la zone

Range("C14:C36").ClearContents

Lgn = 13

'parcour la colonne B à la recherche des "X" et inscrit les prestations sélectionnées

For Each Cel In Plage

If UCase(Cel.Value) = "X" Then

Lgn = Lgn + 1

.Cells(Lgn, 3).Value = Cel.Offset(, -3).Value

.Cells(Lgn, 2).Value = Cel.Offset(, -4).Value

End If

Next Cel

End With

End Sub