VBA _ Lecture / Ecriture sous 2 feuilles CHECKBOX

Bonjour à tous,

Je me lance dans le VBA et je rencontre déjà un problème pour une mise en pratique.

Je souhaite faire un tableau de suivi de formation pour mon équipe avec un système de coches, Je sais que ce n'est pas la meilleure solution, mais elle m'est imposée.

Je souhaite, en fonction du prénom sélectionné sur la "Feuil1", que la Checkbox "coché" inscrive sur le tableau de suivi, feuille "Agents" l'état demandé (Acquis, En cours, A acquérir)

Je n'arrive pas a sélectionner ma cellule en fonction du nom, tout ça en VBA .. je ne m'en sort pas

Ensuite

Lorsque je sélectionne le nom de l'agent sur "Feuil1", je souhaite que les coches se mettent automatiquement en fonction des données sur la feuille "Agents".

C'est possible tout ça ?

Help

Bonne journée,

Stéphane

Bonjour

Oubliez vos cases à cocher qui sont des objets sur la feuille

Faites ceci
- Supprimer les codes checkbox dans votre feuille Feuil1
- Mettez le code ci-dessous

Option Compare Text

Private Sub Worksheet_Change(ByVal Target As Range)
Dim plage As Range
Dim lig as integer, col as integer
Dim i as byte
If Not Intersect(Target, Range("D7:E7")) Is Nothing Then
    Range("F13:H" & Range("A" & Rows.Count).End(xlUp).Row).ClearContents
    Set plage = Worksheets("Agents").Range("A3:A" & Worksheets("Agents").Range("A" & Rows.Count).End(xlUp).Row)
    On Error Resume Next
    lig = plage.Find(Target, LookIn:=xlValues, lookat:=xlWhole).Row
    If lig = 0 Then Exit Sub
    For i = 1 To 4
        Select Case Worksheets("Agents").Cells(lig, i + 2)
            Case Is = "Acquis": col = 6
            Case Is = "En cours": col = 7
            Case Is = "A acquérir": col = 8
        End Select
        If col > 0 Then
            With Cells(i + 12, col)
                .Font.Name = "Wingdings 2"
                .Font.Size = 12
                .Value = "R"
            End With
        End If
        col = 0
    Next i
End If
End Sub

- choisissez une valeur dans votre liste de validation

Si ok -->

Cordialement

Bonjour Dan,

Merci beaucoup pour ce morceau de VBA qui me semble encore pour le moment compliqué a déchiffrer, c'est un art.

Apres avoir enlevé les checkbox, j'ai inséré votre code.

J'ai bien les éléments qui ce mettent à chaque agent mais disparaissent a chaque fois sans stockage sur la page "Agents"

Merci

Cordialement,

Bonjour

J'ai bien les éléments qui ce mettent à chaque agent mais disparaissent a chaque fois sans stockage sur la page "Agents"

Je n'ai pas compris lorsque vous dites "sans stockage"

Le code supprime toujours les données dans votre feuil1 si vous changez le nom dans la liste de validation. Cela afin de remettre à jour si vous changer quelque chose dans la feuille Agents

Dites moi