Excel5 vers excel 2003

**SfJ5Rpw8** · 20/03/2006, 22h32

Envoyé par MJMJ

Balises de code rajoutées par: Pouvez vous m'expliquer cette annotation
Merci

quand tu relis tes messages tu ne t'est pas aperçu .. qu'il n'étaient pas présentés pareils selon que le code soit encadré de balise ou pas... ! l'annotation est la pour te rappeller que tu as oublié .. de mettre ces balises et qu'un administrateur s'en est chargé pour toi ! ..

: message 400

:

je comprends pas ou tu lit ce message excel ne renvoit jamais "message 400" ?

**MJMJ** · 21/03/2006, 07h52

Bonjour bbill

Programme toujours bloqué à la ligne suivante

Code :

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

1
2
3
4
5
6
   repere = Val(Range("B" & l).Value + " ") 
   Range("B" & l) = repere 
   If repere = 0 Then 
     Range("B" & l) = "" 
     Range("B" & l & ":B" & l).Interior.ColorIndex = 3 
     GoTo saute_err

Bonne journée

MJM

Balises ajoutées par ouskel'n'or. Penser aux balises Nom de gu !

**MJMJ** · 21/03/2006, 07h58

Voici le bloc ou ets située l'erreur

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
55
56
57
58
59
60
61
62
63
64
Sub Majlin()
   Sheets("Saisie").Select
   l = ActiveCell.Row
   C = ActiveCell.Column
   If l < 15 Then Exit Sub
 'Detection marque,repère & quantité
   marque = UCase(Trim(Range("A" & l)))
   If marque = "0" Or marque = "1" Or marque = "2" Or marque = "3" Or marque = "4" Or marque = "5" Or marque = "6" Or marque = "7" Or marque = "8" Or marque = "9" Then marque = "=" & marque
   Range("A" & l) = marque
   If C <> 3 And Mid(marque, 1, 1) <> "=" And Mid(marque, 1, 1) <> "&" Then Exit Sub
 'Sous totaux
   If marque = "" Then
     Range("B" & l & ":C" & l) = ""
     Union(Range("A" & l & ":C" & l), Range("E" & l & ":E" & l)).Interior.ColorIndex = 16
     GoTo saute_err
   Else
     Range("A" & l & ":C" & l).Interior.ColorIndex = 19
     Range("E" & l & ":E" & l).Interior.ColorIndex = 42
   End If
   If marque = "XX" Or marque = "*" Or marque = "+" Then GoTo Marquexx
   If Mid(marque, 1, 1) = "=" And Len(marque) = 2 Then GoTo MarqueEgal
   If Mid(marque, 1, 1) = "&" And Len(marque) = 2 Then
    C = 3
    Range("A" & l & ":C" & l).Interior.ColorIndex = 8
    GoTo Sortie
   End If
 
   Range("A" & l & ":E" & l).Font.Bold = False
   Range("A" & l & ":E" & l).Font.ColorIndex = xlAutomatic
   Range("E" & l).HorizontalAlignment = xlLeft
 
'Cherche article marque
 
   repere = Val(Range("B" & l).Value + " ")
   Range("B" & l) = repere
   If repere = 0 Then
     Range("B" & l) = ""
     Range("B" & l & ":B" & l).Interior.ColorIndex = 3
     GoTo saute_err
   End If
   On Error GoTo err_marque
   Close #1
   Open "c:\devis\biblexl\" & marque & ".dom" For Random As #1 Len = 100
     K = repere * 8
     For az = 68 To 74
       If az = 70 Then az = 71
       K = K + 1
       Get #1, K, v
       If Chr(az) = "E" Then Range(Chr(az) & l).NumberFormat = "@"
       Range(Chr(az) & l) = v
     Next
   Get #1, 1, K
   If UCase(K) = "DISTRIBUTION" Then
      Range("F" & l).Interior.Pattern = xlSemiGray75
   Else
      Range("F" & l).Interior.Pattern = xlSolid
   End If
   Close #1
   GoTo saute_err
err_marque:
   On Error GoTo 0
   Range("A" & l & ":G" & l) = ""
   Range("A" & l).Select
   Exit Sub

Balises "corrigées" par ouskel'n'or : Tu sélectionnes ton code et tu cliques sur [Code]
En bas de page, elles ne servent à rien du tout...
Faut tout y dire !

**ouskel'n'or** · 21/03/2006, 09h14

Programme toujours bloqué à la ligne suivante
repere = Val(Range("B" & l).Value + " ")

Ex : dans val(20+" ") par exemple, ton espace ne sert à rien. Est bien possible que ce soit ça qui provoque l'erreur ! D'ailleurs, je ne vois pas du tout à quoi il sert, ton espace.

A+

**MJMJ** · 21/03/2006, 21h47

Programme toujours bloqué à la ligne suivante depuis 24h c'est long

Code :

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

1
2
 
repere = Val(Range("B" & l).Value + " ")

**jmfmarques** · 21/03/2006, 21h54

je vois qu'en dépit de ce que t'a expliqué ouskel'nor, tu tacharnes à calculer la valeur d'une concaténation avec un espace...

**MJMJ** · 21/03/2006, 22h02

Autre probleme pour ce soir, toutes les macros se réfèrent à mon disque G . Comment les repasser sur le disque C .
Message : Impossible de trouver la macro G:\devis\xlprog\minute.xls'!Minute.

Cela vient du fait qu'a un moment la feuille "Saisie " a été utilisée et enregistrée sur le disque G

De plus en plus dur de comprendre ce que je dis !!!!!!!

Mais je suis en bonne voie dans cette interminable traduction.

Pour info, cette méthode de chiffrage de devis à laquelle se rapporte ces feuilles a d'abord été utilisé sur papier avant l'existance de l'informatique industrielle puis sur Apple II vers 1980 puis adaptée à Excel5 vers 1995 et enfin je tente de l'adapter à Excel 2003 sous Xp; le développeur de l'époque ayant disparu de la circulation.Et en plus je n'y connais rien en VB.Mais je ne désespère pas . Nous avançons à petits pas, mais surement.
MJM

**MJMJ** · 21/03/2006, 22h12

C'est le mieux que je puisse faire comme espace. A l'enregistrement tout est remis comme çi dessous et ca bloque

Code :

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

1
2
 
repere = Val(Range("B" & l).Value + "")

**MJMJ** · 21/03/2006, 23h56

Comme ca cça passe

Code :

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

1
2
 
repere = Val(Range("B" & l).Value + "")

Code :

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

1
2
 
repere = Val(Range("B" & l).Value)

Autre probleme pour la nuit

Code :

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

1
2
 
Workbooks("Minute.xls").DialogSheets("Lib_sTot").DrawingObjects("Case d'option 14").Value = xlOn

**SfJ5Rpw8** · 22/03/2006, 09h01

pour le probléme de la nuit il me semble t'avoir déjà dit de remplacer

Code :

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

.....DrawingObjects("Case d'option 14")...

Code :

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

....DrawingObjects("Option Button 14")...

en fait dans ton projet tu fais recherche/remplace projet complet :

"Case d'option
par
"Option Button

**ouskel'n'or** · 22/03/2006, 14h49

Je réponds à ça :

Message : Impossible de trouver la macro G:\devis\xlprog\minute.xls'!Minute.

Si tu sais où se trouve la macro "Minute", tu as le choix mais je ne propose que la solution qui semble la plusse mieux sioux :
Tu fais une sauvegarde du module la contenant (exporter le module dans VBEditor) et tu fais un import dans ton nouveau projet.
Ensuite tu supprimes l'adresse de la commande de ton ancien fichier pour ne laisser sur la ligne de ton nouveau projet que le nom de la macro.
Si c'était "Call G:\devis\xlprog\minute.xls'!Minute", tu remplaces par "Minute"
Et ça suffit.

Maintenant, si tu ne sais pas où est la macro minute et qu'elle est censée faire quelque chose dans ton nouveau fichier, et que tu ne sais pas quoi... T'es pas bien du tout...

A+

**MJMJ** · 22/03/2006, 19h51

Bonjour Bbil
Bonne réponse pour "Option Button. Mais voici la suivante

Code :

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

1
2
 
if CInt(quantite) <> quantite Then Range("C" & l).NumberFormat = "###0,00;[rouge]-###0,00;""""" Else Range("C" & l).NumberFormat = "###0;[Rouge]-###0;"""""

Rouge ou Red ne change rien !

**SfJ5Rpw8** · 23/03/2006, 07h35

ben ? pour moi suffit de mettre [red] à la place de [rouge] ...,

tu pourrai nous dire le message d'erreur ... ou le probléme...? avant de te répondre l'on doit toujours commencer par essayer de deviner quel est le probléme !!

**MJMJ** · 23/03/2006, 07h53

Bonjour bbil
Apres Else tout est surligné en jaune et le message qui apparait parfois est :Office ne parvient pas à utiliser le format de nombre ...

La cellule correspondande s'affiche d'ailleur en rouge en tant q'erreur dans le développement du programme.Le rouge correspondant à la saisie d'un article qui n'existe pas danx un fichier bible!!!.Pas facile à expliquer
MJM

**MJMJ** · 23/03/2006, 13h10

Ca ne donne rien de bon, voici le Sub complet si quelqu'un a une idé

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
 
'******************** Sub-Presentation
Sub presentation(l, C)
   'MAJ tableau de calcul & CALCULS
   If Range("C3") = "ON" Or Trim(Range("F" & l)) = "" Then Range("F" & l) = Range("C2").Value
   On Error GoTo errpres
    quantite = CDbl(0 + Range("C" & l).Value + " ")
retourerr:
   On Error GoTo 0
 
   If CInt(quantite) <> quantite Then Range("C" & l).NumberFormat = "###0,00;[rouge]-###0,00;""""" Else Range("C" & l).NumberFormat = "###0;[rouge]-###0;"""""
   Select Case Range("F" & l).Value
     Case 1
       Range("R1") = 1
     Case 2
       Range("U1") = 1
     Case 3
       Range("X1") = 1
   End Select
   If C = 3 Then
     Range("A" & l & ":M" & l).Select
       Selection.Borders(xlRight).Weight = xlThin
       Selection.Borders(xlBottom).Weight = xlThin
     Range("M" & l).Select
     With Selection.Interior
       .ColorIndex = 33
       .Pattern = xlDown
       .PatternColorIndex = 4
     End With
   End If
   Range("D" & l & ":D" & l).Interior.ColorIndex = 40
   Range("F" & l & ":F" & l).Interior.ColorIndex = 37
   Range("G" & l & ":J" & l).Interior.ColorIndex = 33
   Exit Sub
errpres:
   quantite = 0
   Range("C" & l & ":C" & l).Interior.ColorIndex = 3
   Resume retourerr
End Sub

**MJMJ** · 23/03/2006, 13h22

Et voila le bug suivant, sans message d'erreur, seulement un point d'arrêt du programme.

Code :

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

1
2
 
   Workbooks("Minute.xls").Sheets("Lib_sTot").DrawingObjects("ListBoxes 28").ListFillRange = "Libellés!A1:A" & Sheets("Libellés").Range("B1").Value

Le probleme précédent n'étant pas résolu
Bon appetit
MJM

**SfJ5Rpw8** · 23/03/2006, 13h25

Envoyé par bbil

ben ? pour moi suffit de mettre [red] à la place de [rouge] ...,

tu pourrai nous dire le message d'erreur ... ou le probléme...? avant de te répondre l'on doit toujours commencer par essayer de deviner quel est le probléme !!

**MJMJ** · 23/03/2006, 14h02

Red à la place de rouge c'est pire

A ce soir peut être
MJM

**ouskel'n'or** · 23/03/2006, 14h08

Oui, remplace sheets par worksheets

Code :

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

Workbooks("Minute.xls").WorkSheets("Lib_sTot").DrawingObjects("ListBoxes 28").ListFillRange = "Libellés!A1:A" & WorkSheets("Libellés").Range("B1").Value

Tu dis