Bonjour,
Je pose beaucoup de questions en ce moment sur le forum alors que j'ai encore plusieurs codes que vous avez eu l'obligeance de me fournir à "digérer". C'est que j'ai plusieurs fichiers sur le grill.
Heureusement que vous êtes toujours au rendez-vous.
Aussi je me permets de vous soumettre un autre problème que je rencontre.
Dans un tableur, lorsque je veux cocher mes cases à cocher, j'ai le message suivant :
Impossible d'executer la macro "cases à cocher" etc...
Pourtant je n'ai pas de macro derrière ces cases à cocher.
D'ailleurs je ne sais plus s'il s'agit de contrôles de formulaires ou d'autre chose. Quand je veux visualiser le code j'ai "référence non valide" ou bien je finis par réussir à cocher certaines cases et je vois le code suivant par exemple:
Sub Caseàcocher92_Clic()
End Sub
Je finis par ne plus savoir de quel sorte d' "objet" il s'agit !!
A l'origine dans mon fichier j'avais utilisé le code suivant pour avoir une série de cases à cocher.
Sub generer_cases_a_cocher()
Dim Chekbox As OLEObject
Dim lig As Integer, col As Byte, lig_fin As Integer
Dim Target As Range
'parametres
lig = 2 'ligne de départ
lig_fin = 50 'ligne fin
col = 2 'colonne d'implantation
Do Until lig = lig_fin + 1
Set Target = ActiveSheet.Cells(lig, col)
Set Chekbox = ActiveSheet.OLEObjects. _
Add(ClassType:="Forms.CheckBox.1", _
Left:=Target.Left, Top:=Target.Top, Width:=Target.Width, Height:=Target.Height)
lig = lig + 1
Loop
End Sub
Ensuite, comme j'ai voulu mettre une formule dans la colonne adjacente à celle contenant les cases à cocher, suivant que la case était cochée ou pas, j'ai préféré mettre des contrôles de formulaire de type "cases à cocher". J'ai donc supprimé le code ci-dessus ( enfin je crois ou alors il est resté qq chose).
J'ai vérifié dans centre de confidentialité s'il y avait un blocage des macros, que nenni.
Je ne vois pas d'où vient le problème.
Par ailleurs, pourquoi ai-je "mode de compatibilité" dans le format de mon fichier ( .....XLS mode de compatibilité)? Qu'est-ce que ça signifie?
Au secours.
Ci-joint mon fichier que j'ai simplifié.
@+
Je pose beaucoup de questions en ce moment sur le forum alors que j'ai encore plusieurs codes que vous avez eu l'obligeance de me fournir à "digérer". C'est que j'ai plusieurs fichiers sur le grill.
Heureusement que vous êtes toujours au rendez-vous.
Aussi je me permets de vous soumettre un autre problème que je rencontre.
Dans un tableur, lorsque je veux cocher mes cases à cocher, j'ai le message suivant :
Impossible d'executer la macro "cases à cocher" etc...
Pourtant je n'ai pas de macro derrière ces cases à cocher.
D'ailleurs je ne sais plus s'il s'agit de contrôles de formulaires ou d'autre chose. Quand je veux visualiser le code j'ai "référence non valide" ou bien je finis par réussir à cocher certaines cases et je vois le code suivant par exemple:
Sub Caseàcocher92_Clic()
End Sub
Je finis par ne plus savoir de quel sorte d' "objet" il s'agit !!
A l'origine dans mon fichier j'avais utilisé le code suivant pour avoir une série de cases à cocher.
Sub generer_cases_a_cocher()
Dim Chekbox As OLEObject
Dim lig As Integer, col As Byte, lig_fin As Integer
Dim Target As Range
'parametres
lig = 2 'ligne de départ
lig_fin = 50 'ligne fin
col = 2 'colonne d'implantation
Do Until lig = lig_fin + 1
Set Target = ActiveSheet.Cells(lig, col)
Set Chekbox = ActiveSheet.OLEObjects. _
Add(ClassType:="Forms.CheckBox.1", _
Left:=Target.Left, Top:=Target.Top, Width:=Target.Width, Height:=Target.Height)
lig = lig + 1
Loop
End Sub
Ensuite, comme j'ai voulu mettre une formule dans la colonne adjacente à celle contenant les cases à cocher, suivant que la case était cochée ou pas, j'ai préféré mettre des contrôles de formulaire de type "cases à cocher". J'ai donc supprimé le code ci-dessus ( enfin je crois ou alors il est resté qq chose).
J'ai vérifié dans centre de confidentialité s'il y avait un blocage des macros, que nenni.
Je ne vois pas d'où vient le problème.
Par ailleurs, pourquoi ai-je "mode de compatibilité" dans le format de mon fichier ( .....XLS mode de compatibilité)? Qu'est-ce que ça signifie?
Au secours.
Ci-joint mon fichier que j'ai simplifié.
@+
Pièces jointes
Dernière édition: