Format Monétaire

Résolu
Deudeu79 Messages postés 58 Date d'inscription   Statut Membre Dernière intervention   -  
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   -
Bonjour tout le monde,

je vous écrit car j'ai un souci en faite je met dans une cellule un nombre t excel me le met en monétaire alors que je veux qu'il soit en standard et j'ai tout essayer faire le format des cellule a la main et en vba mais rien ne change des que je refais la manipulation il me le met en monétaire donc es ce que quelqu'un sait d'ou sa peux venir sil vous plait. Alors que dans le feuille ou je prend les info, les donées ne sont en monétaire mais bien en standard

voici mon code si cela peux vous aider 

Sub Importation()

    Dim IGP As Currency
    
    Dim NomFichier As String
    Dim Categorie As String
    Dim Eleveur As String
    Dim Adresse As String
    
    Dim NumLignecaveb As Integer
    Dim NumLignedonnee As Integer
    Dim NumLigne As Integer
    Dim Boucle As Integer
    
    Dim Cheptel As Long
    
    Dim Age As String
    
    NomFichier = ThisWorkbook.Name
    Sheets("Feuil3").Cells.Clear
    
    'ouvre le fichier caveb.csv et fait la bonne mise en page dans excel
    Workbooks.Open Filename:= _
        "\\Srv-2008\commun\13- Dossier d'échange\caveb.csv", Local:=True
                
    Workbooks("caveb").Activate
    
    NumLignecaveb = 2
    
    While Sheets("caveb").Cells(NumLignecaveb, 14) <> ""
    
        NumLignecaveb = NumLignecaveb + 1
    
    Wend
    
    'Selectionne toutes les informations du fichier de la caveb et la copie
    Range(Cells(2, 1), Cells(NumLignecaveb - 1, 14)).Select
    Selection.Copy
    
    'Active le fichier et ouvre la feuil3 et copie toutes les informations dedans
    Windows(NomFichier).Activate
    Sheets("Feuil3").Select
    Range("A1").Select
    ActiveSheet.Paste
    
    'vide la presse papier pour ne pas avoir de message
    Application.CutCopyMode = False
    Application.CutCopyMode = True
    
    'ferme le classeur caveb
    Workbooks("caveb").Close
    
    NumLignedonnee = 1
    
    While Sheets("Feuil3").Cells(NumLignedonnee, 14).Value <> ""
    
        IGP = Sheets("Feuil3").Cells(NumLignedonnee, 2).Value
        Boucle = Sheets("Feuil3").Cells(NumLignedonnee, 3).Value
        Categorie = Sheets("Feuil3").Cells(NumLignedonnee, 4).Value
        Age = Sheets("Feuil3").Cells(NumLignedonnee, 6).Value
        Cheptel = Sheets("Feuil3").Cells(NumLignedonnee, 7).Value
        Eleveur = Sheets("Feuil3").Cells(NumLignedonnee, 8).Value
        Adresse = Sheets("Feuil3").Cells(NumLignedonnee, 9).Value
        
        NumLigne = 4
        
        While Sheets("Feuil1").Cells(NumLigne, 3).Value <> IGP And Sheets("Feuil1").Cells(NumLigne, 3).Value <> ""
        
            NumLigne = NumLigne + 1
        
        Wend
        
        Sheets("Feuil1").Cells(NumLigne, 3).Value = IGP
        Sheets("Feuil1").Cells(NumLigne, 4).Value = Boucle
        Sheets("Feuil1").Cells(NumLigne, 5).Value = Categorie
        Sheets("Feuil1").Cells(NumLigne, 8).Value = Cheptel
        Sheets("Feuil1").Cells(NumLigne, 9).Value = Eleveur
        Sheets("Feuil1").Cells(NumLigne, 10).Value = Adresse
        
        'met oui si il faut tester la bete en fonction de son age
        'If Age < 50 And Age <> "" Then
        
            'Sheets("Feuil1").Cells(NumLigne, 7).Value = "Oui"
        
       'End If
        
        NumLignedonnee = NumLignedonnee + 1
    
    Wend
    
    Columns("C:C").NumberFormat = "General"
                
End Sub


je vus remercie par avance de votre aide

cordialement
A voir également:

1 réponse

Réponse 1 / 1
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
Bonjour,

Suis en attente de réponse à la dernière aide que je t'ai fournit...

Sinon, cela semble concerner ta colonne C. Soit Column = 3. Soit là ou tu comptes stocker le contenu de ta variable IGP. IGP Déclarée as currency.
Qu'est ce donc que ce type de variable, le Currency???
Currency Les variables de type Currency sont stockées sous la forme de nombres de 64 bits (8 octets).
Ce type de données est utilisé dans les calculs monétaires ou dans les calculs à virgule fixe pour lesquels une grande précision est requise.
Cela peut éventuellement venir de là.
Regarde à remplacer cela par un Double : 
Dim IGP As Double
0
Deudeu79 Messages postés 58 Date d'inscription   Statut Membre Dernière intervention   23
 
bonjour pijaku,

merci de ton aide cela fonctionne à merveille et pour ce qui est de la question que je t'ai posé je n'ai pas eu le temps encore de la tester mais je la test dans l'après midi et te tient au courant

cordialement,
0
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761 > Deudeu79 Messages postés 58 Date d'inscription   Statut Membre Dernière intervention  
 
Pas de souci.
A tantôt alors.
0