Bonjour,
comment faire pour qu'une case à cocher soit cocher si la cellule A4 de la
feuille "alpha01" est égale à "Oui", et qu'elle soit non cochée si la cellule
A4 de la feulle "alpha02" est égale à "Non".
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JPMonnier
Bonjour, Un CheckBox1 dans la feuil1 Code à placer dans VBA F>euil1
Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False If Target.Address = "$A$4" Then If [a4] = "Oui" Then CheckBox1.Value = True Else CheckBox1 = False End If End If End Sub
à adapter ! -- Cordialement
"Sunburn" a écrit dans le message de news:
Bonjour, comment faire pour qu'une case à cocher soit cocher si la cellule A4 de la feuille "alpha01" est égale à "Oui", et qu'elle soit non cochée si la cellule A4 de la feulle "alpha02" est égale à "Non".
Je vous remercie. Yann
Bonjour,
Un CheckBox1 dans la feuil1
Code à placer dans VBA F>euil1
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.Address = "$A$4" Then
If [a4] = "Oui" Then
CheckBox1.Value = True
Else
CheckBox1 = False
End If
End If
End Sub
à adapter !
--
Cordialement
jpmonnier-nospam@neuf.fr
"Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message de
news:128AFBCE-576C-4E78-B8DC-F743BEE94370@microsoft.com...
Bonjour,
comment faire pour qu'une case à cocher soit cocher si la cellule A4 de la
feuille "alpha01" est égale à "Oui", et qu'elle soit non cochée si la
cellule
A4 de la feulle "alpha02" est égale à "Non".
Bonjour, Un CheckBox1 dans la feuil1 Code à placer dans VBA F>euil1
Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False If Target.Address = "$A$4" Then If [a4] = "Oui" Then CheckBox1.Value = True Else CheckBox1 = False End If End If End Sub
à adapter ! -- Cordialement
"Sunburn" a écrit dans le message de news:
Bonjour, comment faire pour qu'une case à cocher soit cocher si la cellule A4 de la feuille "alpha01" est égale à "Oui", et qu'elle soit non cochée si la cellule A4 de la feulle "alpha02" est égale à "Non".
Je vous remercie. Yann
Sunburn
Ok, je te remercie, ça me fais une base de travail. yann
"JPMonnier" a écrit :
Bonjour, Un CheckBox1 dans la feuil1 Code à placer dans VBA F>euil1
Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False If Target.Address = "$A$4" Then If [a4] = "Oui" Then CheckBox1.Value = True Else CheckBox1 = False End If End If End Sub
à adapter ! -- Cordialement
"Sunburn" a écrit dans le message de news: > Bonjour, > comment faire pour qu'une case à cocher soit cocher si la cellule A4 de la > feuille "alpha01" est égale à "Oui", et qu'elle soit non cochée si la > cellule > A4 de la feulle "alpha02" est égale à "Non". > > Je vous remercie. > Yann
Ok, je te remercie, ça me fais une base de travail.
yann
"JPMonnier" a écrit :
Bonjour,
Un CheckBox1 dans la feuil1
Code à placer dans VBA F>euil1
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.Address = "$A$4" Then
If [a4] = "Oui" Then
CheckBox1.Value = True
Else
CheckBox1 = False
End If
End If
End Sub
à adapter !
--
Cordialement
jpmonnier-nospam@neuf.fr
"Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message de
news:128AFBCE-576C-4E78-B8DC-F743BEE94370@microsoft.com...
> Bonjour,
> comment faire pour qu'une case à cocher soit cocher si la cellule A4 de la
> feuille "alpha01" est égale à "Oui", et qu'elle soit non cochée si la
> cellule
> A4 de la feulle "alpha02" est égale à "Non".
>
> Je vous remercie.
> Yann
Ok, je te remercie, ça me fais une base de travail. yann
"JPMonnier" a écrit :
Bonjour, Un CheckBox1 dans la feuil1 Code à placer dans VBA F>euil1
Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False If Target.Address = "$A$4" Then If [a4] = "Oui" Then CheckBox1.Value = True Else CheckBox1 = False End If End If End Sub
à adapter ! -- Cordialement
"Sunburn" a écrit dans le message de news: > Bonjour, > comment faire pour qu'une case à cocher soit cocher si la cellule A4 de la > feuille "alpha01" est égale à "Oui", et qu'elle soit non cochée si la > cellule > A4 de la feulle "alpha02" est égale à "Non". > > Je vous remercie. > Yann