Saisie de texte

[olivepao]

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.

 

[olivepao]

Re : Saisie de texte

Bonjour à tous,

un petit test :

Sub AltEntrée()
    Application.OnKey "~", "toto"
End Sub
Sub Entrée()
    Application.OnKey "~"
End Sub
Sub toto()
    SendKeys "{F2}%~"
End Sub

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]

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

 

[olivepao]

Re : Saisie de texte



Je te remercie

Mais cela ne sera pas assez transparant pour les autres utilisateurs.

A +

 

[tototiti2008]

Re : Saisie de texte

que veux-tu dire par pas assez transparent ?

 

[tototiti2008]

Re : Saisie de texte

bon ben rajoutes la fonction là dans le code de la feuille Formulaire :

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

 

[olivepao]

Re : Saisie de texte

Re Re

J'ai dû manquer un passage du film

J'ai mis

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

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]

Re : Saisie de texte

pourtant quand j'essaye ça fonctionne chez moi :

 

[skoobi]

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:

?Application.enableevents

Si "False" s'affiche tappe:

Application.enableevents=true

 

[olivepao]

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++