Bonjour, j'ai ns=E9r=E9 un combobox et un code VBE pour gerer=20
ce combobox.
je d=E9sire maintenat prot=E9ger ma feuille donc toutes les=20
cellules mais en ce cas mon combobox n'est plus utilisable=20
avec la protection.
Comment faire?
Ci joint mon code VBE
Private Sub ComboBox1_Change()
If ComboBox1.Value =3D "PAS/PC" Then
Range("H7").Value =3D Range("D6").Value * 0.2
Else
Range("H7").Value =3D Range("H6").Value
End If
End Sub
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
Rai
balula wrote:
Bonjour, j'ai nséré un combobox et un code VBE pour gerer ce combobox. je désire maintenat protéger ma feuille donc toutes les cellules mais en ce cas mon combobox n'est plus utilisable avec la protection.
Comment faire?
Ci joint mon code VBE
Private Sub ComboBox1_Change() If ComboBox1.Value = "PAS/PC" Then Range("H7").Value = Range("D6").Value * 0.2 Else Range("H7").Value = Range("H6").Value End If End Sub
Bonjour,
Je vois 2 solutions : - ne pas protèger la cellule H7 - enlever la protection (activesheet.unprotect) juste avant ton if, et la remettre en place (activesheet.protect) après le endif
Si tu consultes l'aide de protect et unprotect, tu trouveras comment gérer le mot de passe (si besoin).
-- Cordialement,
Rai Remplacer point par la ponctuation appropriée pour répondre...
balula wrote:
Bonjour, j'ai nséré un combobox et un code VBE pour gerer
ce combobox.
je désire maintenat protéger ma feuille donc toutes les
cellules mais en ce cas mon combobox n'est plus utilisable
avec la protection.
Comment faire?
Ci joint mon code VBE
Private Sub ComboBox1_Change()
If ComboBox1.Value = "PAS/PC" Then
Range("H7").Value = Range("D6").Value * 0.2
Else
Range("H7").Value = Range("H6").Value
End If
End Sub
Bonjour,
Je vois 2 solutions :
- ne pas protèger la cellule H7
- enlever la protection (activesheet.unprotect) juste avant ton if, et la remettre en place (activesheet.protect) après le endif
Si tu consultes l'aide de protect et unprotect, tu trouveras comment gérer le mot de passe (si besoin).
--
Cordialement,
Rai
Remplacer point par la ponctuation appropriée pour répondre...
Bonjour, j'ai nséré un combobox et un code VBE pour gerer ce combobox. je désire maintenat protéger ma feuille donc toutes les cellules mais en ce cas mon combobox n'est plus utilisable avec la protection.
Comment faire?
Ci joint mon code VBE
Private Sub ComboBox1_Change() If ComboBox1.Value = "PAS/PC" Then Range("H7").Value = Range("D6").Value * 0.2 Else Range("H7").Value = Range("H6").Value End If End Sub
Bonjour,
Je vois 2 solutions : - ne pas protèger la cellule H7 - enlever la protection (activesheet.unprotect) juste avant ton if, et la remettre en place (activesheet.protect) après le endif
Si tu consultes l'aide de protect et unprotect, tu trouveras comment gérer le mot de passe (si besoin).
-- Cordialement,
Rai Remplacer point par la ponctuation appropriée pour répondre...
