Discussion :

[pheonix00fr]

Bonjour à tous,
je suis en train de crée une feuille pour faciliter les calculs pour des manifestations sportives, je voudrais si possible avoir dans une feuille "Liste" un tableau contenant les informations sur les participants ex: Colonne A1 pour validation, B1 nom, C1 Prénom. Quand je met par exemple "x" dans la première colonne du tableaux les cellules B1,C1 sont copie en feuille "pupilles" dans la première ligne vide du tableaux E6:F46

[jfontaine]

Bonjour,

Un fichier exemple serait le bien venu

[pheonix00fr]

Bonsoir voilà a quoi je voudrais que cela ressemble.
Merci

[mercatog]

Bonsoir et bienvenue
Une proposition qui ne va nullement t'aider si tu n'arrive pas à la comprendre et la refaire (ou de faire mieux). Presque complète par rapport au fichier test. En contre partie, je demande que tu comprenne la démarche et chaque instruction (notamment par F1 (la'ide) et éventuellement des questions précises au forum)
à mettre dans l'évènement Change de ta feuille Liste éditeur vba, module de la feuille liste)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
Dim LastLig As Long, Lig As Long, Nb As Long
 
LastLig = Cells(Rows.Count, "C").End(xlUp).Row
If Not Intersect(Target, Range("B4:B" & LastLig)) Is Nothing Then
    For Each c In Intersect(Target, Range("B4:B" & LastLig))
        With Sheets("Minimes")
            .AutoFilterMode = False
            Lig = .Cells(Rows.Count, "B").End(xlUp).Row
            .Range("B5:C" & Lig).AutoFilter Field:=1, Criteria1:=Range("C" & c.Row).Value
            .Range("B5:C" & Lig).AutoFilter Field:=2, Criteria1:=Range("D" & c.Row).Value
            Nb = .Range("B5:B" & Lig).SpecialCells(xlCellTypeVisible).Count
            If c.Value <> "" Then
                If Nb = 1 Then Range("C" & c.Row & ":D" & c.Row).Copy .Range("B" & Lig + 1)
            Else
                If Nb > 1 Then .Range("B6:B" & Lig).SpecialCells(xlCellTypeVisible).EntireRow.Delete
            End If
            .AutoFilterMode = False
        End With
    Next c
End If
End Sub

[pheonix00fr]

Merci pour ton aide. Je suis pas très calé en VBA, je veux encore faire évoluer mon projet, il y aura pas mal de modif à apporter, je vais donc essayer de comprendre ton code et l'adapter au mieux, si je sèche sur certain points je ferai appel encore à se forum ou il y a toujours quelqu'un prêt à partager.
Merci encore.