Convertir Integer en String

[Marjounette]

Bonjour à tous,

Mon problème est le suivant:

J'importe des données d'un autre classeur dans mon Excel courant (cela fonctionne bien). Cependant, certaines de ces valeurs importées (en utilisant le code ci-dessous) sont des Integer. Je voudrais convertir mes données importées en String. Possible ou non ?

            For i = 8 To 207
                For j = 1 To 6
                    Dest.Sheets("Engagements").Cells(i - 6, j) = Src.Sheets("EMARGEMENT").Cells(i, j)
                Next j
            Next i

PS: J'ai essayé la fonction CStr() mais ça n'a pas l'air de fonctionner.

 

[david84]

Re : Convertir Integer en String

Bonjour,
que code as-tu essayé avec CStr ?
A+

 

[Marjounette]

Re : Convertir Integer en String

En étant optimiste j'ai testé ça:

            For i = 8 To 207
                For j = 1 To 6
                    Dest.Sheets("Engagements").Cells(i - 6, j) = Cstr(Src.Sheets("EMARGEMENT").Cells(i, j))
                Next j
            Next i

 

[Staple1600]

Re : Convertir Integer en String

Bonjour à tous

Marjounette
Et tu as testé un truc du genre ?

For i = 8 To 207
                For j = 1 To 6
                    Dest.Sheets("Engagements").Cells(i - 6, j) = Src.Sheets("EMARGEMENT").Cells(i, j).Text
                Next j
            Next i

 

[Marjounette]

Re : Convertir Integer en String

Ok le .Text c'est pas mal. Ca m'enleve déjà tout les 0 que j'avais lorsqu'il y avait des cellules vides.

Après je pense que je vais simplement changer mon code entièrement.

Le souci c'est que j'utilise des TextBox pour remplir ma base de données. Mais lorsque j'insère des nombres il me dit: "Le nombre dans cette cellule est au format texte ou précédé d'une apostrophe."

Du coup quand j'importe des données d'un autre classeur, elles ne sont pas du même type que si j'utilise mes TextBox. (et donc mes algo de recherche et de comparaison ne fonctionnent pas avec les données importées)

Je sais pas si je me suis bien fait comprendre là

 

[Staple1600]

Re : Convertir Integer en String

Re

Je sais pas si je me suis bien fait comprendre là

Je connais un moyen de se faire bien comprendre
Il est indiqué dans la charte du forum
Je te laisse deviner à quel point de la section Demandeur je fais allusion

 

[Marjounette]

Re : Convertir Integer en String

Ouais mais j'ai des données perso là et je vais passer un temps fou à tout enlever.

Je vais me débrouiller, c'est pas grave.

 

[Staple1600]

Re : Convertir Integer en String

Re

Marjounette
Il suffit de créer deux fichiers exemple vides
de nommer deux feuilles Engagements et EMARGEMENT et ce dans les classeurs idoines
de coller ton code VBA dedans
de mettre des données bidons dans les colonnes qui seront importées
et enfin de zipper le tout et de joindre le zip ici.

Montre en main, cela doit prendre moins de 7 minutes et 27 secondes

 

[Marjounette]

Re : Convertir Integer en String

C'est bon j'ai résolu mon problème j'ai juste fais un CInt(UserForm1.TextBox1.Value) pour mettre en format "nombre" les nombres lol.

C'est même plus propre comme ça.