XL 2010 Passer en format texte

[lelebl]

Yo, j'utilise ceci, mais il faudrait que les cellules ce copie en texte, ce qui n'est pas le cas et donc m'empêche de réaliser ma RechercheV, que faire ? Bien sure en lgage VBA
'Traitement de la feuille Article

'Copier coller des Colonnes "Articles" du CA et du CNC, sauf si déjà dans la base = Suppression des doublons
Set dico = CreateObject("Scripting.dictionary")
For n = 1 To Sheets("CA").Range("A" & Rows.Count).End(xlUp).Row
x = Sheets("CA").Range("A" & n)
dico(x) = x
Next
For n = 1 To Sheets("CNC").Range("A" & Rows.Count).End(xlUp).Row
x = Sheets("CNC").Range("A" & n)
dico(x) = x
Next
a = dico.keys
Sheets("RenduArticle").Range("A1").Resize(UBound(a) + 1) = Application.Transpose(a)

S

 

[vgendron]

bonjour
après avoir collé ton dictionnaire,
tu peux formater la colonne A
avec range("A1:A" &dico.count).numberformat="standard"

pas testé évidemment, puisque pas de fichier, mais ca devrait te donner une piste

 

[lelebl]

J'étais plus à la recherche d'une piste qu'une réponse,sinon que peux d'apprentissage.
Jo Mckaleway