chaine de caractere

[akramenergie]

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]

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]

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]

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]

Re : chaine de caractere

bonjour akramenergie

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

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

 

[akramenergie]

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]

Re : chaine de caractere

Re

dans ce cas teste

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

Le point a la place de l'espace

 

[akramenergie]

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]

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]

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]

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]

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