XL 2010 Passer en format texte

lelebl

XLDnaute Nouveau
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

XLDnaute Barbatruc
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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas