Duplication d'un Contrôle de formulaire

Bonjour à tous,

J'ai une colonne de chiffre. En regard je souhaite mettre une case à cocher pour contrôle de formulaire.

Jusque là c'est facile. mais j'ai 200 lignes avec une case de contrôle à mettre. Y a t'il un moyen pour recopier la case sans à refaire la fonction insérer systématiquement ?

Je vous joins un fichier pour visualiser ma demande.

Merci d'avance et bonne journée à vous.

bonjour,

Ce n'est vraiment pas une bonne idée : Contente toi de donc de mettre un "X" dans la colonne : C'est beaucoup plus simple et tout aussi efficace.

Si vraiment tu as envie de faire preuve d'un peu d'originalité inspire toi du classeur ci-joint (mais ça nécessite déjà de connaître un peu les macros...

A+

Merci pour la réponse.

Oui c'est sûrement plus facile avec "x" que de vouloir faire de l'originalité.

Merci et bonne journée

Bonjour,

une autre méthode mais, je préfère celle de Galopin et surtout sans prise de tête

voici ci-joint à remodeler, modifier, tester

crdlt,

Andre

Bonjour,

Un autre code qui ajoute les cases à cocher à droite de tes nombres :

Sub InsererCheckBoxs()
Dim F As Worksheet    'Feuille
Dim P As Range        'Plage des nombres
Dim C As Range        'Cellule recevant la case à cocher
Dim X As Object       'Case à cocher

  ' Définir la feuille cible
  Set F = ActiveSheet
  ' Supprimer les cases à cocher
  F.CheckBoxes.Delete
  ' Definir le 1° cellule de la colonne de chiffres
  Set P = F.Range("A4")
  ' Definir la plage des chiffres
  Set P = F.Range(P, F.Cells(F.Rows.Count, P.Column).End(xlUp))
  ' Explorer chaque cellule de la colonne située à droite des nombres
  For Each C In P.Offset(0, 1).Cells
    ' Ajouter une case à cocher :
    Set X = F.CheckBoxes.Add(C.Left, C.Top, C.Width, C.Height)
    ' - sans titre
    X.Caption = ""
    ' - non cochée
    X.Value = xlOff
    ' - liée à la cellule située à sa droite
    X.LinkedCell = C.Offset(0, 1).Address
    ' - mettre à FAUX le cellule à droite de la case à cocher
    C.Offset(0, 1).Value = False
  Next C

End Sub

Bonjour,

pourquoi avoir créé un doublon ?

https://forum.excel-pratique.com/excel/additionner-des-sommes-cochees-t97467.html

eric

Je n'ai que l'embarras du choix.

J'ai pris la solution de Galopin qui est plus simple pour moi qui suis profane.

En tout cas merci d'avoir pris du temps pour me répondre.

A bientôt