Renseigner des cellules avec un TextBox

bonjour

plusieurs solutions:

-Sélectionner la cellule avant d'activer la Userform: le plus simple à mettre en oeuvre
-une boite de dialogue (inputbox) où l'utilisateur saisira la cellule :inconvénient il faut gérer le format et la validité des références saisies
-comme vous l'avez dit une combobox contenant le choix des cellules: simple(relativement) et sûr.
- et peut être d'autres auxquelles je n'ai pas pensé ....;

En fonction du choix, il n'y a plus qu'à !

A bientôt

re,

dans la Sub Initialize() de la Userform:
pour éviter d'ajouter les références de cellule une par une, on fait une boucle :

For i = 1 To 12
   ComboBox1.AddItem Chr(68 + i) & 21 ' crée de E21 à P21
Next

ensuite créer un CommandButton et dans sa Sub Click():

If ComboBox1.Value <> "" Then
    Range(ComboBox1.Value) = TextBox1.Value
Else
    Msgbox "Vous devez choisir une référence de cellule ...."
End If

à adapter au nom de la Combobox.

Bonne suite ou A+

Bonjour Paf, forum

Merci pour ta réponse et pour le petit code, c'est bien gentil a toi, j'ai essayer et j'ai bien l'affichage des references des cellules dans le combobox2, que je peux sélectionner OK

après je n'arrive pas a placer la valeur entrer dans le TextBox2 dans la
cellule choisie.

Je te remercie pour ton aide, une bonne journée en attendant le soleil.

Cordialement Ray

SVP, Si tu a le temps de me corriger , pas moi (LOL) le code hihihihi, merci

Private Sub Commandbutton5_Click()
If ComboBox2.Value <> "" Then
    Range(ComboBox2.Value) = TextBox2.Value
Else
    MsgBox "Choisir une référence de cellule."
End If
End Sub

'*** Set Ws = Sheets("Compte") est le nom de ma Feuil1
Private Sub TextBox2_Change()

Ws.Cells(21, ComboBox2.Value) = TextBox2.Value    ' Erreur a cette ligne

End Sub

Bonjour,

tu as aussi l'objet refEdit qui permet à l'utilisateur d'aller cliquer sur la cellule désirée.
Clic-droit sur la boite à outil pour ajouter un élément absent.

eric

Re,

il y surement des détails que tu n'as pas précisés au départ. Ce qui ressort du premier post:
une feuille ,une userform ,une combobox.
on choisit les référence de cellule dans la combobox et on écrit dans la même feuille dans la cellule choisie ce qu'on vient d'entrer dans la textbox.

Si c'est bien ça, le code proposé fonctionne, en l'utilisant dans un commandbutton, comme a priori tu l'as fait.

Vouloir lancer l'écriture dans la cellule choisie depuis la Sub TextBox2_Change() n'est pas une bonne idée puisqu'elle se déclenche dès le premier caractère saisi. (d'où l'idée de déclencher le code par un bouton après la saisie de la textbox.)

Par ailleurs, dans Ws.Cells(21, ComboBox2.Value), ComboBox2.Value contient E21ou F21 ou G21 ou ..... , c'est comme si tu écrivais :Ws.Cells(21, E21) . La syntaxe n'est pas bonne.

le principe est donc celui donné dans mon post précédent aux modifications près:

Private Sub Commandbutton5_Click()
If ComboBox2.Value <> "" Then
    Sheets("Compte").Range(ComboBox2.Value) = TextBox2.Value
Else
    MsgBox "Choisir une référence de cellule."
End If
End Sub

A+

Salut Paf,

Merci pour la modification et pour tes explications non moins enrichissantes, alors essais concluant tout fonctionne bien.

Encore un petit service svp pour paufiner le code si tu veux bien

j'ai plusieurs Textboxs de 1 à 5 pour l'instant.

je souhaiterai svp faire en sorte de controler les entrées dans ces TextBoxs, qui ne seront que des chiffres avec le point ou la virgule.

Te serait'il svp possible (si tu a du temps dispo) de faire une boucle des 5 TextBoxs afin de controler que l'on entre bien que des chiffres.

Afin d'éviter des codes répétitifs dans chaque TextBoxs

Ex: une sub qui serait appeller quand il y aurai besoin d'un test

Je te remercie beaucoup pour le coup de main apporter, en plus j'ai encore appris quelques trucs dont ce code que je connaissais pas ni mème vu sur le net

 ComboBox1.AddItem Chr(68 + i) & 21     ' crée de E21 à P21  

cela me sera bien pratique a l'avenir

Bonne après midi a toi

A plus tard Ray

RE

J'ai regarder les liens que tu m'a envoyer effectvement ce n'ai pas trop simple

je pensais une petite macro Sub appeler quand on est dans un Textbox et cela

qui controle si on entre bien que des chiffres.

Bon tant pis

je te remercie de t'etre interresser a mes quelques soucis, c'est très sympa

et grace a toi mon fichier avance doucement.

A plus tard sans doute et encore merci

Cordialement Raymond

Re,

Plus simplement tu peux contrôler la saisie au fil de l'eau et si elle est numérique la préserver dans le tag pour la restituer si une saisie est non numérique, après un message d'alerte.

Private Sub TextBox1_Change()  
    If IsNumeric(TextBox1) Or TextBox1 = "" Then  
        Tag = TextBox1  
    Else  
        MsgBox ("valeur numérique uniquement")  
        TextBox1 = Tag  
    End If  
End Sub

Tu peux faire un contrôle plus fin aussi : 2 décimales maxi, limites mini maxi etc

eric

Bonjour eric

C'est pour ma compta perso , alors deux décimales maxi c'est amplement suffisant pour moi

Par contre virgule ou point, pas facile car je ne sais pas pourquoi parfois c'est la virgule ou le point qui marche

Pour infos j'ai pour l'instant 5 TextBoxs ou je n'entre que des chiffres

Merci de ton aide bonne journée

Cdlt Ray

Salut eric

Vu comme ça une petite vérification pour savoir que c'est bien des chiffres suffira bien alors

merci pour ta réponse et pour l'info sur la virgule et le point

je te souhaite une bonne après midi et merci pour ton aide

a plus tard sans doute

Cordialement Ray