[Vba-E]Bug dans mon code

**antoinelavigne** · 19/06/2006, 10h18

Bonjour,
je viens demander un peu d'aide pour la résolution de mes problèmes de coding en Vba pour Excel. Mon code a pour but d'aller chercher certaines données dans un classeur et de les transférer sur un autre classeur, parfois sans calcul, parfois avec (mais ca reste des calculs assez primaires : additions/soustractions).

Je rencontre seulement 2 problèmes dans mon code, les voici :

Code :

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

1
2
3
4
5
6
7
8
9
ValSource = Range("B4").Value
MsgBox ValSource
Valsource2 = Range("B5")
MsgBox Valsource2
valsource3 = ValSource - Valsource2
MsgBox valsource3
valsource3 = Format(valsource3, "#0.0")
MsgBox valsource3
Workbooks(Var).Worksheets("Synthese").Range("B6").Value = valsource3

En fait il n'arrive pas à extraire les données de B4 et de B5, et les deux premieres Msgbox m'indiquent '0' toutes les 2. Les deux dernières m'indiquent '0,0'. Je ne comprends pas, je suis sur de mes lignes et de mes cases ; Mauvaise syntaxe ?

Deuxième probleme : j'utilise [orange]ValSource = Format(ValSource, "#0.00")[/orange], mais j'aimerais également une fonction pour arrondir : par exemple, quand un nombre se termine par ',0', ce dernier disparaitrait.

Merci d'avance !

**Ania** · 19/06/2006, 10h29

juste une question lorsque tu executes ta macro

Est ce que la feuille où tu "prends" les données est visible / sélectionnée.

car j'ai testé ton code et je n'ai eu aucun problème.

Bon courage

**antoinelavigne** · 19/06/2006, 10h54

Oui oui,mais je viens de trouver le problème à ma premiere question.
Mais par contre pas à la deuxième ! Comment faire ? merci

- Je voudrais savoir dans un premier temps comment centrer les données que j'écrit dans la feuille cible, car les nombre sont automatiquement centrés sur la gauche ; j'ai déjà fait un enregistrement automatique, avec ma souris (vous savez avec les boutons ronds et carrés) mais cela me sort une dizaine de lignes ce qui n'est pas possible d'implanter dans mon code final ; alors je suis à la recherche d'une fonction qui pourrait le faire !

- Dernière chose, les classeurs sur lesquels je travaille demande systématiquement confirmation de fermeture à l'utilisateur : comment faire pour l'ignorer ?

**Ania** · 19/06/2006, 11h47

tiens j'ai créé une fonction qui permet de de changer la police à savoir (Gras Italique et l'alignement.

Code :

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

1
2
3
4
5
6
Function Police(N°Cellule As Variant, Alignement As Variant, Gras As Boolean, Italic As Boolean, Style As String)
  N°Cellule.Font.Bold = Gras
  N°Cellule.Font.Italic = Italic
  N°Cellule.HorizontalAlignment = Alignement
  N°Cellule.NumberFormat = Style
End Function

Son fonctionnement est simple

N°Cellule correspond à la cellule ou à la plage de cellule concernée de la forme [A1] ou cells(N°ligne, N°Colonne) ou Range(x,x)

Alignement correspond comme son nom l'indique à l'alignement a savoir xlcenter, xlright, xlleft

Gras est un booléen, la cellule est en gras à Vrai

Italique est aussi un booléen

Quant à style, il s'agit format du nombre par exemple "0.00" pour avoir un affichage avec 2 chiffres après la virgule.

si tu as d'autres question n'hésites pas

**Ania** · 19/06/2006, 11h49

Pour ce qui est de la fermeture d'un classeur sans la demande de confirmation, il faut que tu ajoutes close.

Code :

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

MonClasseur.Close (False)

bonne continuation et bon courage

**antoinelavigne** · 19/06/2006, 14h24

SAlut,
effectivement ta fonction va bien m'aider, merci !! Cependant j'aiu nautre problème, le voilà :

Code :

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

1
2
3
4
5
6
7
8
If Moisencours = juin Then 
moisavant = mai
moisencourslettre = I
moisencourslettre2 = H
End If 

Valsource = ActiveWorkbook.Worksheets(1).Range("" & moisencourslettre & "34")

Vous l'aurez deviné je veux obtenir I34. Le script plante sur la ligne en Gras. Comment faire pour qu'elle marche ? Je suis contraint apres plus d'une heure de rélfexion d'utiliser cette syntaxe, et il doit y avoir un moyen. Merci .

**Ania** · 19/06/2006, 14h34

je ne fais que passé mais essai en supprimant l'espace que met dans ton range en gros fais ca :

Code :

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

Valsource = ActiveWorkbook.Worksheets(1).Range(moisencourslettre & "34")

ca n'est qu'une rapide idée je repasse tout à l'heure...

[Edit...]
peux tu me donner ton message d'erreur

**antoinelavigne** · 19/06/2006, 14h48

Ca ne marche toujours pas ...
Au cas où j'avais fait ca :

Code :

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

msgbox "" & moisencourslettre & "34"

Mais ca n'affiche que '34' et pas de lettre ...

Mesage d'erreur sinon : Erreur d'éxécution '1004' Erreur definie par l'application ou par l'objet. En débogage il me montre encore et toujours cette premiere ligne. Voilà le début de mon code si ca peut t'aider :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
If Moisencours = juin Then 
moisavant = mai
moisencourslettre = I
moisencourslettre2 = H
End If 
 
'______________________________________________________
 
 
Var = ActiveWorkbook.Name
Source = "E:\Automatisation V2\V2 réalisé " & moisencours & ".xls"
Workbooks.Open Source, , True
 
'----------------------------------------------------------------
Valsource = ActiveWorkbook.Worksheets(1).Range(moisencourslettre & "34")
Valsource = Format(Valsource, "#0.0")
Workbooks(Var).Worksheets("Synthese").Range("B4").Value = Valsource
' ---------------------------------------------------------------