J'ai besoin de l'aide dun pro de vous quoi!! merci

[thuan]

salut
tout d'abord merci de prendre quelque minute pour lire mon pb je t'en remercie d'avance.
mon pb est:
j'ai une combobox avec des éléments dedans
je voudrai que l'on que je choisi un des élements dans ma combobox ben cela agit sur des cases excel en fonction de ce que j'aurai choisi.
exemple
on suppose que dans la case A1 on a écris : aaaa
et dans la case B1 on a écris : 123
ma combobox est composé de:
a
b
c
et lorsque je choisi : a
ben dans la case A1 je veux qu'il soit écris : bbb
et que dans la case B1 je veux quelle efface ce qu'il y avait dedans et qu'elle soit vide aussi.

merci d'avance vous etes trop fort!!!!

 

[Zon]

Salut,

Je ne comprends pas trés bien ce que tu chezrches à faire:

tu incrémentes ta cellule A1 à partir de ta combo si tu choisis A mo mets des B, si on choisis B tu mets des C ???

dans l'évènement change de ta combo

[A1]=chr(Tacombobox.listindex+66) & chr(Tacombobox.listindex+66) & chr(Tacombobox.listindex+66)
[B1].clearcontents

A+++

 

[Celeda]

Bonjour,

salut ZON, au risque de me ridiculiser (mais tu en as vu d'autres avec moi, lol!!!), vite fait quand je lis, euhhhhh ........+66 c'est quoi, SVP ? yé né vois pas du tout.....

Merci et bisous

Celeda

 

[Zon]

Re et salut Celeda,

Chr(65)=A , listindex te renvoie 0 si tu choisis a pour avoir le B listindex +1+65 te donneras B.

A+++

 

[Celeda]

Bonjour,

j'en étais sur de ce truc Chr!!!!!


merci mon grand

Celeda

 

[Jean-Marie]

Bonsoir, Celeda, Zon, Thuan

http://www.asciitable.com/, un lien pour en savoir plus sur les valeurs des caractères.

@+Jean-Marie

 

[Zon]

Re,

Tu peux te la faire aussi sur une feuille excel:

Sub AsciiTable()
Dim I&, J&
For I = 0 To 4
For J = 0 To 51
If I = 4 And J > 47 Then Exit For
Cells(J + 2, I * 2 + 1) = I * 52 + J
Cells(J + 2, I * 2 + 2) = Chr(I * 52 + J)
Next J
Next I
End Sub

 

[thuan]

NON
je ne veux pas savoir la valeurs des caractères en fait ce que je veux faire c'est:
on dit que j'ai écris dans ma case A1: Thomas
et dans la case B1 j'ai écris 19 ans
oki jusque la c'est clair??
bon après on dit que dans ma combobox j'ai une liste de deux éléments, qui sont: élément1 et élément2
pour élément1 j'ai dans ma case A1 : Thomas et dans la case B1 : 19 ans
maintenant je choisi dans ma combobox : élément2, alors je veux que dans la case A1 si soit écris Franc et dans la case B2 écris : 20 ans

oki merci les mecs!!!

 

[Zon]

Re,

Comment tu la construis ta combo ? mets un exemple ça sera plus facile pour tous les deux.

 

[thuan]

oki
donc on garde les met exemple oki je te dis ce que je fais:

Private Sub ComboBox1_1()
ComboBox1.AddItem "élément1" 'ListIndex = 1
ComboBox1.AddItem "élément2" 'ListIndex = 2
ComboBox1.Style = fmStyleDropDownList
End Sub

Voila ce que j'ai écris donc ma combo marche

 

[Zon]

Re,

Pour élément1 listindex=0, tu peux écrire alors

[A1]=Tacombo.list(tacombo.listindex) 'ou tacombo.value
[B1]="autrechose" ' je ne vois toujours pas

Mets un fichier exemple sinon tu me fais tourner ..

 

[thuan]

bon voila un exemple j'espere que tu pourra m'aider merci

 

[thuan]

voila l'exemple merci pour ton tps

 

[Zon]

Salut,

Pour pouvoir écrire autre chose que ce qu'il ya dans la combo il faut une base de données. Regardes je t'ai fait un exemple vite fait , il y a quelques explications dans le code avec 2 façons de faire.

A+++