chaine de caractere

akramenergie · 6 Mai 2008

bonjour tous le monde
un petis soussi dans une application j'ai un bouton de modification ce boutan récupere des donneés déjat enregistrer sous une page excel
le probleme dans mon interface il ya deux comboboxe que je rassemble leur information dans la mm cellule cad (Cells(i, i)=combobox5.value + comboboxe8.value) lorsque je clik sur le bouton de modification je charge les information de la page excel vers les comboboxe il me charge l'information de la cellul dans un seul comboboxe alors que moi je doit avoir chaque information dans sa comboboxe le probleme se resume comment partager le contenue d'une cellul dans deux combobox????
si joint la partie de mon code qui traite la récuperation des information des cellul d'excel
Merci

--------------------------------------------------------------------------Sub afficherFiche()
lig = Liste1.ListBox1.ListIndex
ligSel = listEnt(lig)
For i = 1 To 7
Affec_tach.Controls.Item("ComboBox" + Format(i)) = Sheets("BDD").Cells(ligSel, i)
Next i

End Sub

fanfan38 · 6 Mai 2008

Re : chaine de caractere

Bonjour
Pour ajouter 2 combobox dans la même cellule:
range("a1").value=nom
range("a1").value=range("a1").value & " " & prenom
ou
range("a1").value=nom & " " & prenom

A+ François

akramenergie · 6 Mai 2008

Re : chaine de caractere

la probleme c la récuperation de l'information d'une cellil vesrs deux comboboxe differernt et bien sur cette information doit ce partager suivant une chine de caractere???*
comment faire

tototiti2008 · 6 Mai 2008

Re : chaine de caractere

bnojuor amenekragerie,

qu'est-ce qui sépare les 2 informations de ta cellule ? un caractère précis ? une longueur de caractères ?

pierrejean · 6 Mai 2008

Re : chaine de caractere

bonjour akramenergie

Si (et seulement si) Nom et Prenom sont séparés par un espace

Code:

x=split(Cells(i,i)," ")
Combobox5=x(0)
Combobox8=x(1)

akramenergie · 6 Mai 2008

Re : chaine de caractere

la cellule contien une date mois + années (janv.2008) moi je doit récuperer le mois janv dans la comboboxe5 et 2008 dans la comboboxe8

pierrejean · 6 Mai 2008

Re : chaine de caractere

Re

dans ce cas teste

Code:

x=split(Cells(i,i),".")
Combobox5=x(0)
Combobox8=x(1)

Le point a la place de l'espace

akramenergie · 6 Mai 2008

Re : chaine de caractere

j'ai testé sa mais ca marche pas

Sub afficherFicheModif()
lig = Liste1.ListBox1.ListIndex
ligSel = listEnt(lig)

For i = 1 To 4
Affec_tach_Modif.Controls.Item("ComboBox" + Format(i)) = Sheets("BDD").Cells(ligSel, i)
Next i
X = Split(Cells(ligSel, 5), ".")
ComboBox5 = X(0)
ComboBox8 = X(1)

End Sub

pierrejean · 6 Mai 2008

Re : chaine de caractere

Re

A ce point il faut un fichier avec ce qui est concerné par le problème !!
Est-tu sur qu'il y a quelque chose de la forme janvier.2008 dans Cells(ligSel, 5) ?
note: pour le savoir mets
msgbox(Cells(ligSel, 5)) apres next i

akramenergie · 6 Mai 2008

Re : chaine de caractere

tout a fait le messagebox affiche janv.2008
mais toujour le mm proble j'arrive pas a remplir mes comboboxe par les valeur volue

pierrejean · 7 Mai 2008

Re : chaine de caractere

Re

Vois le fichier ci-joint
Et je repete:
Avec un fichier exemple contenant les elements posant problème , on irait infiniment plus vite !!

akramenergie · 7 Mai 2008

Re : chaine de caractere

oui c vrai ca marche mais peut etre moi j'ai des combobox et non pas des textbox
je voulais transmettre le fichier mai il est trés grand

chaine de caractere

akramenergie

XLDnaute Occasionnel

fanfan38

XLDnaute Barbatruc

akramenergie

XLDnaute Occasionnel

tototiti2008

XLDnaute Barbatruc

pierrejean

XLDnaute Barbatruc

akramenergie

XLDnaute Occasionnel

pierrejean

XLDnaute Barbatruc

akramenergie

XLDnaute Occasionnel

pierrejean

XLDnaute Barbatruc

akramenergie

XLDnaute Occasionnel

pierrejean

XLDnaute Barbatruc

Pièces jointes

akramenergie

XLDnaute Occasionnel

Discussions similaires