O olivepao XLDnaute Occasionnel 29 Août 2008 #1 Bonjour le forum Depuis plusieurs jours, je cherche le moyen de saisir du texte dans un formulaire. Lorsque je saisi des données tels que nom, prénom, année de naissance sur une ou deux cellules, aucun problème ! Mais comment faire pour que l'utilisateur puisse saisir du texte dans une zone, faire des retour à la ligne et de la mise en forme comme il le désire. Si je fusionne plusieurs cellules sur les colonnes et les lignes, la saisie ne peut se faire qu'au "kiliomètre". J'ai bien essayé de le faire avec les outils "formulaire" ou "Boîte à outils de contrôle" mais sans succès. Si une idée traine dans le coin, je suis preneur. Merci de votre aide.
Bonjour le forum Depuis plusieurs jours, je cherche le moyen de saisir du texte dans un formulaire. Lorsque je saisi des données tels que nom, prénom, année de naissance sur une ou deux cellules, aucun problème ! Mais comment faire pour que l'utilisateur puisse saisir du texte dans une zone, faire des retour à la ligne et de la mise en forme comme il le désire. Si je fusionne plusieurs cellules sur les colonnes et les lignes, la saisie ne peut se faire qu'au "kiliomètre". J'ai bien essayé de le faire avec les outils "formulaire" ou "Boîte à outils de contrôle" mais sans succès. Si une idée traine dans le coin, je suis preneur. Merci de votre aide.
O olivepao XLDnaute Occasionnel 29 Août 2008 #16 Re : Saisie de texte tototiti2008 à dit: Bonjour à tous, un petit test : Code: Sub AltEntrée() Application.OnKey "~", "toto" End Sub Sub Entrée() Application.OnKey "~" End Sub Sub toto() SendKeys "{F2}%~" End Sub Cliquez pour agrandir... Hello Je viens de tester mais ça marche pô ! J'ai fais le test dans "feuille" et dans "workbook", il doit me manquer un neurone pour que ça fonctionne. A++ Vote positif 0 Vote négatif
Re : Saisie de texte tototiti2008 à dit: Bonjour à tous, un petit test : Code: Sub AltEntrée() Application.OnKey "~", "toto" End Sub Sub Entrée() Application.OnKey "~" End Sub Sub toto() SendKeys "{F2}%~" End Sub Cliquez pour agrandir... Hello Je viens de tester mais ça marche pô ! J'ai fais le test dans "feuille" et dans "workbook", il doit me manquer un neurone pour que ça fonctionne. A++
tototiti2008 XLDnaute Barbatruc 29 Août 2008 #17 Re : Saisie de texte pour que ça marche tu lances AltEntrée puis tu essayes quand tu en as assez tu lances Entrée voilou Vote positif 0 Vote négatif
Re : Saisie de texte pour que ça marche tu lances AltEntrée puis tu essayes quand tu en as assez tu lances Entrée voilou
O olivepao XLDnaute Occasionnel 29 Août 2008 #18 Re : Saisie de texte Je te remercie Mais cela ne sera pas assez transparant pour les autres utilisateurs. A + Vote positif 0 Vote négatif
Re : Saisie de texte Je te remercie Mais cela ne sera pas assez transparant pour les autres utilisateurs. A +
tototiti2008 XLDnaute Barbatruc 29 Août 2008 #19 Re : Saisie de texte que veux-tu dire par pas assez transparent ? Vote positif 0 Vote négatif
tototiti2008 XLDnaute Barbatruc 29 Août 2008 #20 Re : Saisie de texte bon ben rajoutes la fonction là dans le code de la feuille Formulaire : Code: Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$C$9:$C$18" Then AltEntrée Else Entrée End If End Sub Edit : désolé il y a avait une erreur Dernière édition: 29 Août 2008 Vote positif 0 Vote négatif
Re : Saisie de texte bon ben rajoutes la fonction là dans le code de la feuille Formulaire : Code: Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$C$9:$C$18" Then AltEntrée Else Entrée End If End Sub Edit : désolé il y a avait une erreur
O olivepao XLDnaute Occasionnel 29 Août 2008 #21 Re : Saisie de texte Re Re J'ai dû manquer un passage du film J'ai mis Code: Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$C$9:$C$18" Then AltEntrée Else Entrée End If End Sub dans "Formulaire" (nom de ma feuille) et les macros Code: Sub AltEntrée() Application.OnKey "~", "toto" End Sub Sub Entrée() Application.OnKey "~" End Sub Sub toto() SendKeys "{F2}%~" End Sub dans un module. Si j'appuye sur ENTER je suis tjs renvoyé sur la dernière cellule. A++ Vote positif 0 Vote négatif
Re : Saisie de texte Re Re J'ai dû manquer un passage du film J'ai mis Code: Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$C$9:$C$18" Then AltEntrée Else Entrée End If End Sub dans "Formulaire" (nom de ma feuille) et les macros Code: Sub AltEntrée() Application.OnKey "~", "toto" End Sub Sub Entrée() Application.OnKey "~" End Sub Sub toto() SendKeys "{F2}%~" End Sub dans un module. Si j'appuye sur ENTER je suis tjs renvoyé sur la dernière cellule. A++
tototiti2008 XLDnaute Barbatruc 29 Août 2008 #22 Re : Saisie de texte pourtant quand j'essaye ça fonctionne chez moi : Pièces jointes Formulaire(1).xls 23 KB · Affichages: 22 Formulaire(1).xls 23 KB · Affichages: 24 Formulaire(1).xls 23 KB · Affichages: 24 Vote positif 0 Vote négatif
skoobi XLDnaute Barbatruc 29 Août 2008 #23 Re : Saisie de texte Re, olivepao, à tout hazard, vérifie que l'éxécution des macros évenementielles n'est pas désactivé. Dans la fenètre d'exécution (Alt+G), tappe: Code: ?Application.enableevents Si "False" s'affiche tappe: Code: Application.enableevents=true Vote positif 0 Vote négatif
Re : Saisie de texte Re, olivepao, à tout hazard, vérifie que l'éxécution des macros évenementielles n'est pas désactivé. Dans la fenètre d'exécution (Alt+G), tappe: Code: ?Application.enableevents Si "False" s'affiche tappe: Code: Application.enableevents=true
O olivepao XLDnaute Occasionnel 8 Septembre 2008 #24 Re : Saisie de texte Re tout le monde Après recherches et essais pas conculants, je vais utiliser l'option ALT+ENTREE pour faire mes retour à la ligne. Merci à tous et A++ Vote positif 0 Vote négatif
Re : Saisie de texte Re tout le monde Après recherches et essais pas conculants, je vais utiliser l'option ALT+ENTREE pour faire mes retour à la ligne. Merci à tous et A++