Discussion :

[clem16031983]

Bonjour j' ai un petit problème VBA-EXCEL.

J' ai un code VB récupérant un grand nombre de valeurs issu de fichiers différents vers un fichier global.

Dans ce dernier, pour une certaine plage de valeurs (unique!) je ne récupére pas la valeur des cellules source mais ce sont des zéros qui s' affichent. Des zéros sont stockés uniquement sur cette plage de valeurs, sur aucune autre du document.

j' ai joué sur les formats celà ne change rien.

Quelqu 'un aurait-il eu un problème similaire?

Merci par avance.

Cdlt

[Pierre Fauconnier]

Bonjour

Ce serait plus simple avec le code...

[clem16031983]

Bonjour le code type qui a toujours une structure équivalente à celle ci dessous:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
    source10.Sheets(1).Activate
    source10.Sheets(1).Select
    Range("D12").Select
    Selection.Copy
    cible.Sheets(1).Activate
    ActiveWindow.WindowState = xlNormal
    ActiveWindow.WindowState = xlNormal
    Range("F290:F325").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,   SkipBlanks:= _False, transpose:=True
    With ActiveCell
    .NumberFormat = "General"
    End With

avec dimensionnement au préalable des classeurs source10 et cible non insérés. Le but étant comme explicité dans le code de copier la cellule D12 du classeur source10 vers le classeur cible sur la range F290:F235 ( on récupère uniquement la valeur)
Et j' ai ce souci uniquement pour cette plage de valeur, or ce code est structurellement identique pour d' autres plages de valeurs récupérées et recopiées vers cible et celà ne pose aucun souci pour toutes les autres.

[aalex_38]

bonjour à tous,


es si tu supprimes ce code ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With ActiveCell
    .NumberFormat = "General"
    End With

[clem16031983]

Bonjour.

Oui j' avais déja essayé merci quand même.

[aalex_38]

Bonjour,


Ton code peu être simplifié :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
source10.Sheets(1).Range("D12").Copy 
cible.Sheets(1).Range("F290:F325").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,   SkipBlanks:= False, transpose:=True

Avec ce code je n'ai pas de problèmes si les cellules de départ sont à blanc elles le sont aussi lorsque collées