Cocher automatiquement une case a cocher Résolu/Fermé

Question

Bonjour, 
Dans un tablaeu feuille 2 je souhaite
cocher automatiquement une case a cocher de la feuille 1 
si dans la feuille 2 la cellule de la colonne 13 de ligne (i) = oui

J'ai fais comme ca mais la case ne se coche pas
si vous avez une solution

Private Sub Worksheet_Change(ByVal Target As Range)If Range("X2").Value = "" ThenMsgBox "VEUILLIEZ SELECTIONER UNE REFERENCE !"ElseIf Not Application.Intersect(Target, Range("X2")) Is Nothing ThenFor i = 5 To 3000If Sheets("Feuil1").Cells(2, 24).Value = Sheets("Feuil6").Cells(i, 1) ThenCells(11, 21).Value = Sheets("Feuil6").Cells(i, 2).ValueCells(13, 20).Value = Sheets("Feuil6").Cells(i, 3).ValueCells(13, 21).Value = Sheets("Feuil6").Cells(i, 4).ValueCells(137, 18).Value = Sheets("Feuil6").Cells(i, 5).ValueCells(15, 21).Value = Sheets("Feuil6").Cells(i, 6).ValueCells(17, 19).Value = Sheets("Feuil6").Cells(i, 7).ValueCells(19, 18).Value = Sheets("Feuil6").Cells(i, 8).ValueCells(19, 20).Value = Sheets("Feuil6").Cells(i, 9).ValueCells(20, 20).Value = Sheets("Feuil6").Cells(i, 10).ValueCells(22, 18).Value = Sheets("Feuil6").Cells(i, 11).ValueCells(24, 18).Value = Sheets("Feuil6").Cells(i, 12).ValueIf Sheets("Feuil6").Cells(i, 13).Value = "OUI" ThenSheets("Feuil1").CheckBox1.Value = TrueEnd IfEnd IfNext iEnd IfEnd IfEnd Sub
Configuration: Windows / Chrome 70.0.3538.110

M-12 · Answer

Bonjour,

If Sheets("Feuil6").Cells(i, 13).Value = "OUI" Then
Avec quoi est alimenté la cellule (cells(i,13)

Si c'est par formule, vérifier que le "oui" soit en MAJUSCULE, le VBA respecte la casse

eriiic · Answer

Bonjour,

For i = 5 To 3000 
si vraiment tu comptes mettre 3000 checkbox sur ta feuille je te conseille de changer ton fusil d'épaule.
Excel gère très mal les objets sur feuille et merdouille dès qu'il en a trop (trop pour lui des fois c'est 10...)
Utilise une colonne avec une coche dedans ou un simple x. Plus facile à gérer, et même plus joli si tu choisis des wingdings adéquats que tu peux mettre en couleur (coche verte et croix rouge par exemple)
eric

Cocher automatiquement une case a cocher

2 réponses

Discussions similaires