Cocher automatiquement une case a cocher

Résolu/Fermé

pyrus2047 Messages postés 154 Date d'inscription lundi 3 juillet 2017 Statut Membre Dernière intervention 22 mai 2023 - 5 déc. 2018 à 10:41
pyrus2047 Messages postés 154 Date d'inscription lundi 3 juillet 2017 Statut Membre Dernière intervention 22 mai 2023 - 6 déc. 2018 à 09:56

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 = "" Then
MsgBox "VEUILLIEZ SELECTIONER UNE REFERENCE !"
Else
If Not Application.Intersect(Target, Range("X2")) Is Nothing Then
For i = 5 To 3000
If Sheets("Feuil1").Cells(2, 24).Value = Sheets("Feuil6").Cells(i, 1) Then
Cells(11, 21).Value = Sheets("Feuil6").Cells(i, 2).Value
Cells(13, 20).Value = Sheets("Feuil6").Cells(i, 3).Value
Cells(13, 21).Value = Sheets("Feuil6").Cells(i, 4).Value
Cells(137, 18).Value = Sheets("Feuil6").Cells(i, 5).Value
Cells(15, 21).Value = Sheets("Feuil6").Cells(i, 6).Value
Cells(17, 19).Value = Sheets("Feuil6").Cells(i, 7).Value
Cells(19, 18).Value = Sheets("Feuil6").Cells(i, 8).Value
Cells(19, 20).Value = Sheets("Feuil6").Cells(i, 9).Value
Cells(20, 20).Value = Sheets("Feuil6").Cells(i, 10).Value
Cells(22, 18).Value = Sheets("Feuil6").Cells(i, 11).Value
Cells(24, 18).Value = Sheets("Feuil6").Cells(i, 12).Value
If Sheets("Feuil6").Cells(i, 13).Value = "OUI" Then
Sheets("Feuil1").CheckBox1.Value = True
End If
End If
Next i
End If
End If
End Sub

Configuration: Windows / Chrome 70.0.3538.110

A voir également:

Cocher automatiquement une case a cocher
Comment cocher une case sur word ✓ - Forum Word
Word formulaire cases à cocher ✓ - Forum Word
Cocher une case avec le clavier - Forum Clavier
Supprimer case à cocher excel ✓ - Forum Excel
Excel ( case à cocher formule si) - Forum Excel

2 réponses

Réponse 1 / 2

M-12 Messages postés 1333 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 299
5 déc. 2018 à 11:03

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

pyrus2047 Messages postés 154 Date d'inscription lundi 3 juillet 2017 Statut Membre Dernière intervention 22 mai 2023
5 déc. 2018 à 11:38

Re
merci
non il n'y a pas de formule et c'est bien en majuscule

M-12 Messages postés 1333 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 299
5 déc. 2018 à 11:47

Re,
Alors comment est alimenté cette cellule ??

pyrus2047 Messages postés 154 Date d'inscription lundi 3 juillet 2017 Statut Membre Dernière intervention 22 mai 2023
5 déc. 2018 à 11:54

Re
manuellement

M-12 Messages postés 1333 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 299
5 déc. 2018 à 13:10

Re,

Place un exemple classeur, car normalement le code est bon
Pas de données confidentielles et
Tu vas dans https://www.cjoint.com/
Tu cliques sur "PARCOURIR" pour sélectionner ton fichier
Clic le bouton "CREER LE LIEN"
Clic droit quand le lien est créé "COPIER LE LIEN"
Sur ton message Clic droit "Coller".

ou dans https://mon-partage.fr/

pyrus2047 Messages postés 154 Date d'inscription lundi 3 juillet 2017 Statut Membre Dernière intervention 22 mai 2023
5 déc. 2018 à 14:05

Re
merci tout fonctionnne bien

Réponse 2 / 2

eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 213
Modifié le 5 déc. 2018 à 14:06

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

pyrus2047 Messages postés 154 Date d'inscription lundi 3 juillet 2017 Statut Membre Dernière intervention 22 mai 2023
6 déc. 2018 à 09:56

Bonjour et merci
Non j'ai mis 3000 par hasard
Tout fonctionne bien
Cordialement

Discussions similaires

Excel, agrandir les cases a cocher

cocher sans souris :'(

Cocher un case sur Word

URGENT - codes ALT + ???

Bouton case à cocher grisé

Discussions similaires

Newsletters