declaration de variables vba

Question

Bonjour,


es ce que quelqu'un peu m'aider SVP ,
je souhaiterai declarer une variable globale , entrer la valeur de la variale grace a un boutond'option1 qui est place dans un userform1, qui va me permettre de controler un texbox dans un userform2,

exemple : si jappuie sur le boutondoption1 du userform1, celui la m'ouvre le userform2 avec un textbox1 et dans le texbox1 la valeur de la cellule ("C1") 

jai essai ca mais ca ne marche pas 

jai declarer une variable globale , dans le userform2 toute en haut 

Option explicite
Public col As String    

et dans le texbox1 du userform2 jai mis ca 

TextBox1.Text = Sheets(1).Cells(1, col).Value 

 et dans le bouton option1 du  userform 1 

Private Sub OptionButton1_Click()
col = ("C")
Load UserForm2
UserForm2.Show
End Sub

et si je rajoute un bouton doption 2, sa ouvre le userform2 mais la valeur du texbox 1 = D1

Private Sub OptionButton2_Click()

col = ("D")
Load UserForm2
UserForm2.Show

End Sub


merci de votre aide

yg_be · Answer

au lieu de 
TextBox1.Text = Sheets(1).Cells(1, col).Value 
essaie
TextBox1.Text = Sheets(1).Cells(1, Asc(col) - Asc("A") + 1).Value

yg_be · Answer

et pourquoi ne pas faire 

userform2.TextBox1.Text = Sheets(1).Cells(1, Asc(col) - Asc("A") + 1).Value

dans OptionButton2_Click, juste après 
UserForm2.Show

Polux31 · Answer

Bonjour,

Tu ne prends le temps de lire les codes que l'on te passe ... la réponse t'a déjà été donnée.

Userform1 :

Sub Bouton_Option1_Click()
UserForm2.Col = "C"
Load UserForm2
UserForm2.Show
End Sub

Sub Bouton_Option1_Click()
UserForm2.Col = "D"
Load UserForm2
UserForm2.Show
End Sub

UserForm2:

Option Explicit
Public col As String

Sub UserForm_Initialize()
Me.TextBox1.Text = Sheets(1).Cells(1, col).Text 
End Sub


Bon courage

yg_be · Answer

J'ai l'impression que tu ne suis pas nos suggestions...
Peux-tu couper/coller dans le forum le texte exact de ton code (pas le retaper approximativement).
Qu'est-ce qui ne fonctionne pas ?  Tu as un message d'erreur, ou bien rien ne se passe ?

Bidouilleu_R · Answer

je suis tout à fait d'accord avec yg_be et Polux31 et michel_m sur d'autres post.
de plus il est considéré comme impoli ( point de vue personnel ) de reposter une sur problème résolu pour avoir les mêmes conseils ( les miens dans ce cas).
je n'ai pas inventé VBA  je l'utilise comme les autres qui te réponde donc je n'ai pas la science infuse mais je sais lire ( là c'est méchant mais bon....)

d'après tes indications j'ai fait deux userform, textbox et bouton d'option ( dés fois que ...enfin....)
un variable globale.
Chez moi ça marche.

j'imagine que c'est pareil chez les autres.

Voici mon conseil :  écrit ton code sans variable puis mets une variable.
procède par étape.

voici le code que j'obtiens 

public Col as integer

Private Sub UserForm_Initialize()
     UserForm1.TextBox1.Value = Sheets("feuil1").Cells(1, Col).Value
End Sub

Polux31 · Answer

SI TU NOUS DISAIS CLAIREMENT CE QUI NE MARCHE PAS !!!

Où as-tu un message d'erreur ? sur quelle ligne ?

Comme il est dit dans ma signature et comme je te l'ai déjà dit : Ce que l'on conçoit bien s'énonce clairement, Et les mots pour le dire arrivent aisément.. 

As-tu pris le temps d'écrire noir sur blanc (avec un stylo et du papier) ce que tu veux faire exactement ??? Je n'ai vraiment pas l'impression que tu saches exactement ce que tu veux faire.

Que vient faire le post #8 ici ??? :

amine69500, le mercredi 24 juin 2009 à 12:52:43
Avec userform4.show

yg_be · Answer

Il est sans doute possible de faire une sub textbox2.change, et, dans cette sub, de modifier tes cellules.

Polux31 · Answer

C'est "Santa Barbara" sont truc ...

Rien n'est défini et encore moins spécifié, il code au fil de l'eau ...

J'abandonne ... j'ai mourru.

AU SUIVANT !!!

;o)

Bidouilleu_R · Answer

88 messages depuis juin 2009....
Ne serions-nous pas en train de faire un projet de stage ou de fin d'étude...

Je passe.

yg_be · Answer

Tu as suivi des etudes avant de faire ton stage de fin d'etude ?

yg_be · Answer

Alors, je me demande si c'est une bonne idée de découvrir ainsi le VBA, sans formation...

Declaration de variables vba

11 réponses

Discussions similaires

Newsletters