Cocher automatiquement une case a cocher
Résolu
pyrus2047
Messages postés
156
Statut
Membre
-
pyrus2047 Messages postés 156 Statut Membre -
pyrus2047 Messages postés 156 Statut Membre -
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
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
- Supprimer case à cocher excel - Forum Excel
- Enlever une case à cocher excel 2007 ✓ - Forum Excel
- Raccourci clavier case à cocher - Forum Clavier
- Case à cocher libre office - Forum LibreOffice / OpenOffice
- Case à cocher outlook - Forum Outlook
2 réponses
Bonjour,
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
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
Bonjour,
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
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
merci
non il n'y a pas de formule et c'est bien en majuscule
Alors comment est alimenté cette cellule ??
manuellement
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/
merci tout fonctionnne bien