[Catégorie modifiée VB6 - VBA] Problème récupération données EXCEL dans boite dRésolu

Question

Bonjour,
Aidez-moi ! Je suis en panne !javascript:void(0);
J'ai un document word qui affiche une boite de dialogue à l'ouverture dans laquelle sont récupérées des données numériques provenant d'un tableau EXCEL contenant des formules de calcul.
Hors, les données numériques récupérées dans ma boîte de dialogue ne s'affichent pas comme dans mon tableau (exemple : 2,00 ou 2,50 dans mon tableau se transforment en 2 ou 2,5 dans ma boite de dialogue). J'ai beau cherché comment les récupérer à l'identique mais je sèche !

Merci d'avance pour vos réponses !


Moi pas tout comprendre

cs_Jack · Accepted Answer

L'utilisation de syntaxe écourtée peut être un problème :
Tu utilises le format :
.Cell(x, y)
Par défaut, la synatxe prise en compte par VBA (*) est
.Cell(x, y).Value

> Revoir ma première réponse

(*) et pas VB6 : catégorie modifiée

ucfoutu · Answer

Bonjour,
par quel code les récupères-tu et par quel code les envoies-tu vers ta boîte ?


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

cs_Jack · Answer

Salut

Sous Excel, il y a des différences entre .Value, .Value2 et .Text
Certains sont des données brutes, d'autres fournissent la données formatées telles qu'elles apparaissent à l'écran

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

mounie85 · Answer

Bonjour,

Voici mon code de récupération dans ma boite :

[i]Private Sub LSalaire_Change()

 With VExcel2.ActiveWorkbook.Worksheets("Récapitulatif")
       .Cells(LIdentMajeur.ListIndex + 2, 6)
        TSalaire = .Cells(LIdentMajeur.ListIndex + 2, 9)
        TEntretien = .Cells(LIdentMajeur.ListIndex + 2, 18)
        TLoyer = .Cells(LIdentMajeur.ListIndex + 2, 19)
        TTotal = .Cells(LIdentMajeur.ListIndex + 2, 20)
        TJRS1 = .Cells(LIdentMajeur.ListIndex + 2, 10)
        TMIG1 = .Cells(LIdentMajeur.ListIndex + 2, 11)
        TMMIG1 = .Cells(LIdentMajeur.ListIndex + 2, 12)

      
    End With  
End Sub/i

et le module pour insérer mes données :

[i]Sub InsertionDonnées2()
    
    With Boite2
           
            ActiveDocument.Bookmarks("Salaire").Select
            Selection.TypeText .TSalaire
            ActiveDocument.Bookmarks("Entretien").Select
            Selection.TypeText .TEntretien
            ActiveDocument.Bookmarks("Loyer").Select
            Selection.TypeText .TLoyer
            ActiveDocument.Bookmarks("Total").Select
            Selection.TypeText .TTotal
            ActiveDocument.Bookmarks("JRS1").Select
            Selection.TypeText .TJRS1

ActiveDocument.Bookmarks("MIG1").Select
            Selection.TypeText .TMIG1

ActiveDocument.Bookmarks("MMIG1").Select
            Selection.TypeText .TMMIG1

End With
End Sub/i



Qu'en pensez-vous ? Je ne maitrise pas vraiment VBA, il y a certainement une solution mais laquelle ?

Merci d'avance pour vos réponses !


Moi pas tout comprendre

mounie85 · Answer

Je viens de faire comme tu m'as dit Jack en rajoutant .Value après chaque .Cells(x,y) mais c'est toujours pareil !

Moi pas tout comprendre

ucfoutu · Answer

Bonjour,

Et qu'as-tu en utilisant la propriété Text ? puis ce qu'il t'a également dit à propos de Value2 Essaye ce que t'a dit Jack à ce propos.


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

mounie85 · Answer

YEESSS ! C'est tout bon avec .Text. Merci à vous 2 ! Mon document est nickel !


Moi pas tout comprendre

[Catégorie modifiée VB6 -> VBA] Problème récupération données EXCEL dans boite d

7 réponses

Votre réponse

Discussions similaires