Format de cellule - Valeur

[lcaxb]

Bonjour a tous

Je doit importer un fichier de 2900 contact dans une application de base de donnée.
Dans ce fichier j'ai plusieur numéro de telephone au format international.
Pour le formatage j'ai utilisé un format de cellule. L'afficage dans excel correspond a ce que je veux importer.
Le problème est que le logiciel dans lequel je doit importer le fichier ne prend pas en compte les formats de cellule mais seulement la valeur saisie.

J'aimerais savoir s'il est possible, par une fonction ou une macro, changer la valeur contenu dans une cellule en fonction du format de cette derniere.

Merci d'avance pour vos réponses

 

[PascalXLD]

Re : Format de cellule - Valeur

Bonjour

En fait le formatage de la cellule n'agit que sur l'affichage mais pas sur la valeur de celle-ci
il faudrait donc que tu te fasses une colonne au format texte qui te mette la valeur au bon format
un petit exemple de ce que tu as et de ce que tu veux serait le bienvenue

 

[lcaxb]

Re : Format de cellule - Valeur

Merci pour la réponse

Ce sont des numéros aux format international donc avec le +, l'indicatif etc

avec mon format de cellule j'affiche : +33 (04) 94 58 23 73
la valeur de la cellule correspondante est : 3305494582373

le + et les espaces sont gérés par le format de la cellule

merci pour votre aide

 

[PascalXLD]

Re : Format de cellule - Valeur

re

si tu mets une formule du genre

="+"&GAUCHE(A1;2)&" ("&STXT(A1;3;2)&") " & STXT(A1;5;2)& " " & STXT(A1;7;2)& " "&STXT(A1;9;2)& " "&STXT(A1;11;2)

là j'ai mis mon téléphone au format nombre en A1
et que tu l'appliques à tous tes numéros tu auras une cellule avec le bon format

 

[mromain]

Re : Format de cellule - Valeur

bonjour lcaxb, PascalXLD

en suposant que tes données sont sur la feuille "Feuil1", cette macro crée une copie de cette feuille sur "Feuil2", avec que du texte.

Sub test()
feuilleSource = "Feuil1"
feuilleDestination = "Feuil2"
For Each curCell In Sheets(feuilleSource).UsedRange.Cells
    Sheets(feuilleDestination).Range(curCell.Address) = CStr(curCell.Text)
Next curCell
End Sub

en espérant que ça répond à ta demande

a+