Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2730 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Prendre les 13 premiers chiffres

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Prendre les 13 premiers chiffres

n°2006876
manu f
L'art ephémère.
Posté le 03-07-2010 à 13:02:06  profilanswer
 

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.
mood
Publicité
Posté le 03-07-2010 à 13:02:06  profilanswer
 

n°2006912
Arwon
Posté le 03-07-2010 à 20:04:28  profilanswer
 

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
n°2006922
manu f
L'art ephémère.
Posté le 03-07-2010 à 21:31:05  profilanswer
 

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.
n°2006923
Arwon
Posté le 03-07-2010 à 21:37:18  profilanswer
 

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.

n°2006930
manu f
L'art ephémère.
Posté le 03-07-2010 à 22:36:16  profilanswer
 

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.
n°2006939
Arwon
Posté le 04-07-2010 à 00:27:06  profilanswer
 

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

n°2007059
SuppotDeSa​Tante
Aka dje69r
Posté le 05-07-2010 à 10:23:23  profilanswer
 

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 !

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Prendre les 13 premiers chiffres

 

Sujets relatifs
codage hexadécimal vers chiffres normaux. Mais...prendre des cellules en fonction du n° client
[bat]affichage de l'heure sur 2 chiffres, meme si <10Recuperer les 10 derniers enregistrements puis en prendre 4 aléatoirem
Regex :: séparation de chiffres par un signe ( xx.xxx.xxx.xxx )Prendre la valeur après un ping
Recherche des 10 premiers caractères d une cellule dans 3 tableaux.Calcul avec 2 chiffres après la virgule
Affichage chiffres a virgulescombinaison d'un nombre a 12 chiffres + contraintes
Plus de sujets relatifs à : Prendre les 13 premiers chiffres


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR