Discussion :

[queequeg0226]

Bonjour,

Je débute sur VBA, et malgré toutes mes tentatives je n'arrive pas à faire fonctionner un userform tout simple. Je ne vois pas où j'ai pu me tromper... quelqu'un pourrait m'indiquer une piste SVP ? Merci d'avance.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub UserForm_Initialize()
 
End Sub
 
Private Sub CommandButton1_Click()
Range("a1") = TextBox1_Change.Value
 
End Sub
 
Private Sub Label1_Click()
 
End Sub
 
Private Sub TextBox1_Change()
 
End Sub

[Philippe Tulliez]

Bonsoir,
La lecture de ce tutoriel pour commencer

[queequeg0226]

Merci, je vais me mettre à la lecture de ce document en espérant progresser et y arriver un jour !
Bonne soirée !
Alicia

[ESVBA]

Un cours express :

Syntaxe : NomDeL'Objet.PropriétéDeL'Objet



"_Change" correspond à un évènement changement du contenu de l'objet "TextBox1". Ca n'a rien à faire ici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("a1") = TextBox1_Change.Value

Ici, on veut la "valeur" de l'objet "TextBox1"

Donc la réponse est...


ESVBA

[queequeg0226]

Je dirais textbox1.value ? J'ai droit à un bon point ou pas ?

J'avance tout doucement et commence à me faire au langage même si ça reste très très complexe.

Mon but était de faire quelque chose de simple mais plus on se met dedans plus on veut rajouter d'automatismes...
Pourriez vous m'éclairer sur un point :
J'aimerais en fait insérer un texte dans une cellule que je désignerai avec un numéro. Ex : je veux entrer le mot MACRO dans la cellule n°4 qui correspond en fait à la cellule B1.
Auriez vous une piste à me donner ? j'approfondirai par la suite mais là je ne sais même pas comment m'y prendre, à moins de définir chaque cellule... il y a peut être plus simple ?

Par la suite j'aurai une autre question je pense mais il faut déjà que j'arrive à faire ça...

Merci de votre aide :-)

[casefayere]

Bonsoir,

je veux entrer le mot MACRO dans la cellule n°4 qui correspond en fait à la cellule B1.

Ah bon !
si tu veux donner la valeur de ton textbox à B1 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

range("B1") = textbox1 'si celui-ci se nomme bien "textbox1"

[queequeg0226]

Bonsoir,

Merci mais j'ai mal expliqué ce que je voulais faire.

En fait je veux attribuer un numéro à chacune des cellules d'un tableau de façon à ce que je n'ai plus qu'à entrer le numéro choisi pour y insérer le texte.

Ex : Je rentre le n° 4 puis le nom MARC, en validant le nom s'insère dans la cellule B2 ( B2 préalablement définie comme égale à 4).

J'ai voulu le faire de la sorte :
ActiveWorkbook.Names.Add Name:="4", RefersTo:=Sheets("Feuil1").Range("B2")
Mais ça ne fonctionne pas sachant qu'il attend une lettre et non un chiffre pour le nom de la cellule...

Merci de votre aide