Discussion :

[charline33]

Bonjour,

Je ne connais encore Visual Basic et pour commencer je voudrais faire apparaitre dans une "TextBox" le nombre qu'il y a dans la cellule A1 de mon tableau Excel.

J'ai lu beaucoup de tutoriels mais je bloque quand même..

Comment je dois m'y prendre?

Merci beaucoup!

[Krovax]

Code :

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

textbox1=cells(numligne,numcolonne)

Remplace textbox1 par le nom de ta textbox numligne et numcolonne par les coordonnée de la cellule que tu veux mettre dedans

[charline33]

Merci beaucoup pour ta réponse Krovax!

Ca me marque désormais le nom de ma cellule "C11" , Il n'y a pas une possibilité de changer de format?

Si ma mémoire est bonne j'ai lu un tutoriel où il y avait Format(i), il faudrait un truc dans le genre non?

[laetitia]

bonjour charline33 Krovax le forum en complement dans un userform

Code :

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

1
2
3
Private Sub UserForm_Initialize()
TextBox1 = [a1]
End Sub

[charline33]

OK alors c'est bon ça marche. Merci Beaucoup à vous deux !

Maintenant j'ai réussi a programmer le fait que je choisis ma cellule en fonction de mes semaines donc ma variable s'appelle cellule$

Lorsque je met "CA_par_jour = cellule$" ça m'affiche le nom de la cellule.

Vous avez une idée pour modifier ça?

Merci beaucoup pour votre aide précieuse !

[Krovax]

On va dire que ce n'est pas aléatoire (du au hasard) mais que cela varie après corrige moi si c'est vraiment aléatoire

Code :

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

1
2
3
4
5
6
7
'déclaration des variable
dim numligne as double
dim numcolonne as double
 
numligne= ' ta facon de connaitre le numéro de ta ligne
numcolonne='ta facon de connaitre ton numéro de colonne
textbox1=feuil1.cells(numligne,numcolonne).value

Tu peut directement utiliser des commande dans le cells

Edit pour la version aléatoire

Code :

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

1
2
3
4
5
6
Dim numligne As Double
Dim numcolonne As Double
Randomize
numligne = Int((65536 - 1 + 1) * Rnd + 1)
numcolonne = Int((256 - 1 + 1) * Rnd + 1)
textbox1=feuil1.cells(numligne,numcolonne).value

Edit arf c'est pas bien d'éditer ton post maintenant le mien est hors sujet alors que je me suis amusé a faire de l'aléatoire

Pour te répondre CA_parjour c'est quoi?
Cellule vaux quoi? contient quoi? tu déclare tes variable au début de ta macro?

[charline33]

Edit arf c'est pas bien d'éditer ton post maintenant le mien est hors sujet alors que je me suis amusé a faire de l'aléatoire

Je suis désolée..

Pour te répondre CA_parjour c'est quoi?
Cellule vaux quoi? contient quoi? tu déclare tes variable au début de ta macro?

Alors CA_parjour c'est ma TextBox que j'ai renommée.
Et cellule ça contient les valeurs des colonnes en fonction des semaines choisis, donc par exemple A, B, C...

J'ai pas déclaré cellule mais je met toujours un $ derriere.


Alors sinon j'ai pris quand même le premier post que tu as mis , ça donne ça :

Code :

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

1
2
3
4
5
6
Dim numligne As Double
                Dim numcolonne As Double
 
                numligne = 11
                numcolonne = cellule$
                CA_par_jour = feuil1.Cells(numligne, numcolonne).Value

Mon numligne ne change pas. Et sinon j'ai une erreur à la ligne numcolonne = cellule$ il me met "incompatibilité de type" Alors est ce que ça peut venir du fait que numcolonne est défini en Double alors que c'est des lettres?

Encore désolé !!!

Et encore merci