Prendre les 13 premiers chiffres

Prendre les 13 premiers chiffres - VB/VBA/VBS - Programmation

Marsh Posté le 03-07-2010 à 13:02:06    

Bonjour,
 
Je cherche à prendre les 13 premiers chiffres de tout une colonne et de les coller dans la colonne d'une autre feuille, le problème c'est que non seulement ca n'a pas l'aire de prendre e les  13 premiers chiffres mais en plus de cela ca me le colle sous forme scientifique xxxx 10^xx
 
Voici le code :
 

Code :
  1. '13 premier caractere de la colonne 508
  2.      Set cel17 = Worksheets(3).Range("A1:CA1";).Find(508, LookIn:=xlValues)
  3.      For compteur6 = 3 To nombreLigne
  4.         Search6 = Left(Worksheets(3).Cells(compteur6, cel17.Column).Value, 13)
  5.         Worksheets(2).Range("Q" & compteur6).Value = Search6
  6.     Next compteur6


Avez vous une idée sur comment arriver à mon but ?


Message édité par manu f le 03-07-2010 à 18:11:05

---------------
Pire qu'une pierre dans la chaussure, est un grain de sable dans la capote.  Coluche.
Reply

Marsh Posté le 03-07-2010 à 13:02:06   

Reply

Marsh Posté le 03-07-2010 à 20:04:28    

N'est-ce pas juste un problème de format ? mets tes cellules en format "Nombre" plutot que "Standard"
 
par contre tu parles de la colonne 508, mais la ce qu'il va faire c'est prendre la colonne ou il y a le nombre 508 dans une des cellules de A1:CA1.

Message cité 1 fois
Message édité par Arwon le 03-07-2010 à 20:05:22
Reply

Marsh Posté le 03-07-2010 à 21:31:05    

Arwon a écrit :

N'est-ce pas juste un problème de format ? mets tes cellules en format "Nombre" plutot que "Standard"
 
par contre tu parles de la colonne 508, mais la ce qu'il va faire c'est prendre la colonne ou il y a le nombre 508 dans une des cellules de A1:CA1.


C'est ce que je cherche à faire pour le numéro 508, par contre j'ai essayé de le mettre en format Number et ca me me prend + de 13 chiffres, ca m'affiche 13 chiffres + 2 décimal


---------------
Pire qu'une pierre dans la chaussure, est un grain de sable dans la capote.  Coluche.
Reply

Marsh Posté le 03-07-2010 à 21:37:18    

dans le menu Format et sous Nombre,t 'as le choix du nombre de décimales a afficher, mets juste à 0 et ca sera bon.

Reply

Marsh Posté le 03-07-2010 à 22:36:16    

Faut que je trouve le moyen de faire ca en vba car je dois automatiser le truc pour plusieurs fichier excel.
 
(et je dois avouer que je connais quasiment pas le vba :x)


---------------
Pire qu'une pierre dans la chaussure, est un grain de sable dans la capote.  Coluche.
Reply

Marsh Posté le 04-07-2010 à 00:27:06    

rajoute ca a la fin, après ta boucle :
 
Worksheets(2).Columns("Q" ).NumberFormat = "#,##0"

Reply

Marsh Posté le 05-07-2010 à 10:23:23    

Si Excel affiche des exposants, c'est juste que la colonne est trop petite...
Quand c'est du texte et que la colonne est trop petite il met des ######


Message édité par SuppotDeSaTante le 05-07-2010 à 10:23:45

---------------
Soyez malin, louez entre voisins !
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed