Discussion :

[secours75011]

Bonjour à tous,

J'ai un soucis avec un bug sur le fichier quand je veux éditer une note de débit, et novice dans excel, je ne sais pas ce qui ne va pas.

Pouvez vous m'aider à solutionner le problème ?

J'ai mis le fichier en question en pièce jointe.

Merci d'avance !

Yann C

[ANOVA]

Il n'y a pas de fichier joint. Tu as du essayer de joindre un fichier *xls à partir de ton disque mais ce n'est pas possible de joindre un fichier avec cette extension. Modifie l'extension de ton fichier en *.doc, on n'aura plus qu'à remodifier l'extension pour récupérer ton fichier.

[Invité]

Bonsoir,

ANOVA :

Tu as du essayer de joindre un fichier *xls à partir de ton disque mais ce n'est pas possible de joindre un fichier avec cette extension.

Où avez-vous trouvé qu'il n'était pas possible de joindre une fichier .xls ?

C'est tout à fait possible, sauf s'il dépasse la taille admise auquel cas il faut essayer de l'envoyer en fichier compressé .zip, mais ce n'est tout simplement pas conseillé dès la première question pour un sujet.

Il vaut mieux bien expliquer le problème, avec éventuellement des exemples.

[secours75011]

Oups !

Il me semblait avoir édité mon message...

Bon je vous copie/colle la page qui pose soucis...

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Sheets("base de données").Unprotect
Sheets("Note de débit DPS").Unprotect
 
 
 
Sheets("base de données").Range("CK" & j) = notedebitacompte
 
Sheets("Note de débit DPS").Range("F7") = ""
Sheets("Note de débit DPS").Range("F8") = ""
Sheets("Note de débit DPS").Range("H12") = ""
Sheets("Note de débit DPS").Range("E16") = ""
Sheets("Note de débit DPS").Range("E17") = ""
Sheets("Note de débit DPS").Range("E18") = ""
Sheets("Note de débit DPS").Range("E19") = ""
Sheets("Note de débit DPS").Range("F26") = ""
Sheets("Note de débit DPS").Range("F27") = ""
Sheets("Note de débit DPS").Range("F28") = ""
Sheets("Note de débit DPS").Range("F29") = ""
 
 
 
 
 
 
Sheets("Note de débit DPS").Range("F7") = Sheets("base de données").Range("C" & j)
 
Sheets("Note de débit DPS").Range("F8") = Sheets("base de données").Range("D" & j)
 
Sheets("Note de débit DPS").Range("H12") = Date
 
Sheets("Note de débit DPS").Range("E16") = Sheets("base de données").Range("A" & j)
 
Sheets("Note de débit DPS").Range("E17") = Sheets("base de données").Range("N" & j)
 
Sheets("Note de débit DPS").Range("E18") = Sheets("base de données").Range("P" & j)
 
Sheets("Note de débit DPS").Range("E19") = Sheets("base de données").Range("O" & j)
 
Sheets("Note de débit DPS").Range("F26") = Sheets("base de données").Range("BX" & j)
 
Sheets("Note de débit DPS").Range("F27") = Sheets("base de données").Range("BY" & j) * Tarifs_note_débit.nbheuresupp
 
Sheets("Note de débit DPS").Range("F28") = Sheets("base de données").Range("BZ" & j) * Tarifs_note_débit.Nbrepas
 
Sheets("base de données").Range("CL" & j) = Sheets("base de données").Range("BZ" & j) * Tarifs_note_débit.Nbrepas
 
Sheets("base de données").Range("CM" & j) = Sheets("base de données").Range("BY" & j) * Tarifs_note_débit.nbheuresupp
 
Sheets("Note de débit DPS").Range("F29") = Sheets("base de données").Range("CK" & j)
 
Sheets("Note de débit DPS").Range("F30") = Sheets("base de données").Range("CL" & j) + Sheets("base de données").Range("CM" & j) + Sheets("base de données").Range("CB" & j) - Sheets("base de données").Range("CK" & j)
 
Sheets("base de données").Protect
Sheets("Note de débit DPS").Protect

ce serait la ligne Range("F30") qui va pas

et je suis sur Excel 2007

Merci d'avance

[AlexL.]

Bonjour,

Peux-tu nous dire quel est le problème exactement ? (bug VBA, macro qui ne fait ce qu'elle "devrait" faire... ?)

[secours75011]

Bonjour,

apparement, une erreur apparait au niveau de la ligne

Code :

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

Sheets("Note de débit DPS").Range("F30") = Sheets("base de données").Range("CL" & j) + Sheets("base de données").Range("CM" & j) + Sheets("base de données").Range("CB" & j) - Sheets("base de données").Range("CK" & j)

erreur d'éxecution "13"
incompatibilité de type.

Merci d'avance

[Invité]

Bonjour,

Vous avez vérifié que dans la feuille "base de données", les cellules :

"CL" & j, "CM" & j, "CB" & j, "CK" & j

contiennent bien des données numériques ?

Et particulièrement la "CK" & j dans laquelle il semble que vous affectez au début de la procédure la valeur d'une variable :

Code :

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

Sheets("base de données").Range("CK" & j) = notedebitacompte