Case à cocher avec report de données sur un autre onglet

[Bruno M]

Bonsoir tout le monde,

Je parcours le forum depuis quelques temps pour résoudre des problèmes mais pour une fois je sèche complètement.

J'ai un fichier que je prépare pour mon travail d'enseignant que je vous ai d'ailleurs mis en PJ. La solution à mon problème peut être résolu avec visual basic mais je ne gère pas du tout la programmation. Dans le fichier que je vous ai joint, je souhaiterais ajouter des cases à cocher dans la colonne E de l'onglet "Livret de compétences". Lorsque je double-cliquerais sur ces cases à cocher, les références des colonnes B et C de cet onglet serait automatiquement copier sur les colonnes A et B de l'onglet "Fiche de positionnement. Et enfin, lorsque je double-cliquerais à nouveau sur les cases à cocher de la première colonne E, les références disparaîtraient . Un post similaire a été publié il y a quelques années, la solution a été donné, mais en récupérant le fichier, je n'arrive pas à transposer la programmation sur mon fichier. HELP!!!!

Cordialement,

Bruno M

 

[CHALET53]

Un essai sans case à cocher
Un double click dans la colonne E :
inscrit Vrai dans la cellule choisie et remplit la feuille Fiche de positionnement pour toutes les valeurs à Vrai dans la feuille Livret de compétences
Un nouveau double click supprime les données de la 2ème feuille
a+

 

[ChTi160]

Bonjour Bruno M
Bonjour le Fil (CHALET53) ,le Forum
histoire de participer Lol
j'ai modifié la procédure de CHALET53 (qui fonctionne très bien d'ailleurs !)
Après avoir supprimé la fusion des Lignes noires et de la Rouge (mis centrer sur plusieurs Colonnes)
j'ai mis ce code :
On teste en plus , si la colonne "B" est non vide ( Target.Offset(, -3) <> "").

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Stop
Cancel = False
 Target.Value = IIf(Target.Value = "" And Target.Offset(, -3) <> "", "VRAI", "")
Cancel = True
Set ws_source = Sheets("Livret de compétences")
 Set ws_cible = Sheets("Fiche de positionnement TP")
    With ws_cible
          .Range("A8:Q17").ClearContents 'On efface les données présentes
    ligne = 7 'on définit la première Ligne Cible
    For I = 4 To 106
        If ws_source.Range("E" & I) = "VRAI" Then
        ligne = ligne + 1 'on incrémente la Ligne Cible
             .Range("A" & ligne) = ws_source.Cells(I, 2)
             .Range("B" & ligne) = ws_source.Cells(I, 3)
        End If
    Next I
    End With
End Sub

En espérant avoir fait avancer le schimilimblick lol
Bonne journée
Amicalement
jean marie