cases à cochés et renvois a la ligne

[noxfs]

Salut a tous,

Aprés de multiple recherche je viens vers vous tous pour:

effectuer un retour a la ligne ou un renvois automatique dans le champ text dans la case a cocher.

je joins un fichier exemple
merci d'avance pour tous

 

[PMO2]

Re : cases à cochés et renvois a la ligne

Bonjour,

La cause du problème est dû à l'obsolescence du contrôle Excel.CheckBox que vous avez, je suppose,
utilsé à travers la "Boîte à outils Contrôles"

Pour y remédier, il faut construire un contrôle MSForms.CheckBox par programmation VBA.
Une fois construit, vous pourrez y intervenir pour lui assigner une macro.

1) copiez le code suivant dans un module standard

Sub CreerCheckBoxWordWrap()
Dim OL As OLEObject
Dim CB As MSForms.CheckBox
Dim A$
A$ = "Afin de faciliter la compréhension de votre demande il est conseillé de placer votre exemple et explications dans un fichier. Pour l'envoyer, cliquez sur le bouton ''Gérer les pièces jointes'' dans la zone ''Options supplémentaires'' ci-dessous. Ensuite cliquez sur le bouton ''Parcourir'', et sélectionnez-le (après l'avoir compressé s'il dépasse les 50Ko)."
Set OL = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", _
    Link:=False, DisplayAsIcon:=False, Left:=40, Top:=40, Width:=100, Height:=100)
Set CB = OL.Object
CB.AutoSize = True
CB.WordWrap = True
CB.Caption = A$
End Sub

2) sélectionnez une feuille et lancez la macro CreerCheckBoxWordWrap
3) modifiez le texte en mode création (clic droit Objet Case à cocher/Edition)
les sauts de ligne peuvent être obtenus en faisant Ctrl+Entrée

Cordialement.

PMO
Patrick Morange