Discussion :

[Zenerox]

Bonjour,

je récupère une variable contenant éventuellement un ";".
le problème est que quand j'ajoute cette variable dans un additem, il passe ce qui est après le ";" dans la colonne suivante. Vous me direz c'est normal car il croit que je ferme la colonne mais dans ce cas comment faire pour garder mon ";" dans la variable?

Merci d'avance

[mikeGo20]

Pour ajouter ton ";", il faut lancer le .additem 2 fois ....
en plus, insérer le ; entre deux simple quote ... assez subtil ....

Code :

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

1
2
3
 
Me.MaListe.AddItem ("';'")
Me.MaListe.AddItem ("';'")

[Zenerox]

le problème est que mon ";" est contenu dans une variable var.
Donc pour l'ajout ça donne Me.zone_texte.additem(var1 & ";" & var2 & ";".....).

[mikeGo20]

Combien de colonne ton contrôle liste?

si une colonne et que tu assignes d'un seul coup, il faut prendre plutôt

Code :

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

1
2
 
Me.MaListe.RowSource = "'ba'" & ";" & "';'" & ";" & "'mm'"

ou encore

Code :

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

1
2
 
Me.MaListe.RowSource = Chr(39) & Var1 & Chr(39) & ";" & Chr(39) & Var2 & Chr(39) & ";" & Chr(39) & Var3 & Chr(39)

[Zenerox]

J'ai 7 colonnes et la structure de mon additem est
additem(var1 & ";" & var2 & ";" & var3 & ";" & var4 & ";" & var5 & "; ;" & var6)
le souci est dans ma var5 qui contient des adresses mails récupérées par requête et s'il y en a plusieurs ma var5 est égale à : adresse1;adresse2;adresse3....

[Invité]

Bonjour

Es-tu obligé de mettre le ; comme séparateur de ton adresse mail ? A moins que tu l'utilises derriere pour envoyer des mails en série.

Je te propose de remplacer tes ; par des , lorsque tes données arrivent dans ta zone de liste, et de les remplacer par un ; pour les envoyer par mail.

En utilisant la fonction Replace dans les deux cas.

Starec

[Zenerox]

J'ai déja utilisé Replace mais mon tuteur veut que les ";" apparaissent dans la zone de texte

[mikeGo20]

as tu essayer comme indiqué plus haut avec le RowSource??? en insérent des simples quotes de chaque côté de tes variables ...

Code :

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

1
2
 
MaListe.AddItem(Chr(39) & Var1 & Chr(39) & ";" & Chr(39) & Var2 & Chr(39) & ";" & Chr(39) & Var3 & Chr(39) ....)

[mikeGo20]

Désolé ...ça ne marche pas non plus ...

là, je sèche ...

[Invité]

Bonjour

Une autre solution de sioux, remplacer ta zone de liste par un sous-formulaire en mode feuille de donnée, avec comme source une requête.

Starec