inclure un formule dans VB6 pour Excel

Question

bonjour
dans mon projet [VB6] j'ai mis cette formule pour l'ouverture d'une feuille Excel,la pas de probleme &#231;a fonctione
Private Sub open_Click()
Dim fichier1 As String
Dim DevisExcel As Object
Dim MAVALEUR As String
Dim Plage As Range, Col, Lgn&
'test d'existence si un fichier excel a &#233;t&#233; s&#233;lectionner
If fichier.ListIndex = -1 Then
MsgBox "vous n'avez selectionni&#233; aucun fichier", vbCritical, "Erreur"
Else
fichier1 = fichier.Path & "" & fichier.FileName
'ouvrir le fichier excel selectionner


Set DevisExcel = CreateObject("excel.Application")
Workbooks.open FileName:=fichier1, Editable:=True
  Application.ScreenUpdating = False
Range("a2:E8500").Sort Key1:=Columns(3) 'tri des colonnes
Range("H2:H8500").FormulaR1C1 = "=""<""&30/24/60/60"
Range("F3:F8500").Formula = "=(C3=C2)*(B3-B2)"
Range("I2").Select 'nbrs de d&#233;fauts
    ActiveCell.FormulaR1C1 = _
        "=COUNTIF(RC[-3]:R[8500]C[-3],RC[-1])-COUNTIF(RC[-3]:R[8500]C[-3],0)" '=NB.SI(F2:F50;H2)-NB.SI(F2:F50;0)
Range("F3:F8500").NumberFormat = "[s]"
Columns("F:K").ColumnWidth = 0 'colonnes cach&#233;es
Range("A1").Select
moteur_de_recherche.Hide
MAVALEUR = Range("I2").Value
MsgBox " D&#233;fauts < 30s est de " & vbCrLf & MAVALEUR, vbExclamation, "Nbrs de d&#233;fauts inf&#233;rieur &#224; 30s"
Range("c1").FormulaR1C1 = "NOMBRES DE DEFAUTS :" & MAVALEUR
 Range("c1").Font.Bold = True
 FontStyle = "Gras"
        Size = 12
  Range("c1").Font.ColorIndex = 3
   Application.ScreenUpdating = True
DevisExcel.Visible = True
DevisExcel.Application.DisplayAlerts = True
End If
End Sub
Mais je voudrais inclure cette formule,et c'est la que &#231;a pose probleme ,&#231;a me met plein d'erreur,quelqu'un aurait il une id&#233;e pour inclure cette formule avec l'autre du dessus.
Dim Plage As Range, Col, Lgn&
  Application.ScreenUpdating = False
  With Feuil1
    Set Plage = .Range("A2", .Range("A65536").End(xlUp)).Resize(, 11)
    End With
  Col = Plage.Value
  For Lgn = UBound(Col, 1) To LBound(Col, 1) Step -1
    With Plage.Rows(Lgn)
      If Col(Lgn, 6) < TimeSerial(0, 0, 30) And Col(Lgn, 6) > 0 Then
        .Font.ColorIndex = 3
      Else
        .Delete
      End If
    End With
  Next Lgn
  Application.ScreenUpdating = True
merci
@plus
petchy

cs_Stephane33 · Answer

Dim Plage As Range
Dim Col, Lgn as Integer
D'ailleurs ces deux variables sont d&#233;clar&#233;e dans la fonction pr&#233;cendente et &#224; priori non utilis&#233;es

......
  With Feuil1
    Set Plage =  .Range("A2", .Range("A65536").End(xlUp)).Resize(, 11)
    End With
C'est un peu lourd et pas trop compr&#233;hensible
reprend par &#233;tapes quitte &#224; &#233;crire deux ligne de plus

(.......
Je vois pas trop ou tu veux en venir revoit ta syntaxe et vu le nom tu peux te permettre
Set Plage = Feuil1.Range......
Je sais pas &#224; quoi correspond  .Range("A65536").End(xlUp)   A savoir si End(xlUp) est une prori&#233;t&#233; de .range("A65536") ou si c'est .range("A65536",Feuil1.End(xlUp)
CE ne serait pas plut&#244;t
Set Plage =Feuil1.range("A2",Feuil1.End(xlUp))   ............)

Juste faites-le

cs_petchy · Answer

Re St&#233;phane
en fait cette formule s&#233;lectionne toutes  les lignes et celles qui sont inf&#233;rieur &#224; 30 secondes les met en rouges et supprime les autres lignes qui sont sup&#233;rieur &#224; 30 secondes.
mais bon si tu as plus simple et que j'arrive &#224; int&#233;gr&#233; &#224; VB6 je prends,


merci
petchy

galopin01 · Answer

galopin01 · Answer

galopin01 · Answer

bonjour, 
Sorry, vraiment zarbi ce forum ! pourquoi les messages ne passent-ils pas dans le textbox évolué ?
...

Je suis bien d'accord que cette expression est un peu obscure, mais elle est (probablement )exacte.
par contre cette expression est (probablement) fautive :
Col = Plage.Value

Plage étant un tableau (de plusieurs cellules) : Col est un tableau (Array à 2 dimensions) 
En fait tu fait en VBA (a peu près) la même erreur de formulation que dans ton explication :
"sélectionne toutes  les lignes et celles qui sont inférieur à 30 secondes"
( les lignes ne sont jamais inférieures inférieures à 30 secondes, seule une cellule de cette ligne peut avoir une valeur...)

De ce fait si tu essaies d'évaluer Col aussitot après
Col = Plage.Value  'avec un msgbox
MsgBox Col          'tu produits une erreur, il faudrait écrire 
MsgBox Col(1,1)   '(par exemple)

Dans ces conditions il est très difficile d'évaluer la suite de ton code, dans tous les cas cette expression :
UBound(Col, 1)    'n'a pas de sens
A+

cs_petchy · Answer

salut
en fait cette formule marche tr&#233;s bien avec excel,&#231;a me s&#233;lectionne bien les lignes qui sont inf&#233;rieurs &#224; 30s et le met en rouge,et les autre lignes sont supprimer.


la ligne qui me fait une erreur c'est :
  Set Plage = .Range("A2", .Range("A65536").End(xlUp)).Resize(, 11)
bon apr&#233;s c'est "col ",donc c'est pour &#231;a que je ne peut pas l'int&#233;ger dans VB6.je vais encore chercher
merci d'avoir r&#233;pondu
petchy

rvblog · Answer

Salut 55913 petchy, salut aux autres aussi, je m'incruste juste un peu pour dire à =353504 galopin01 qu'il se trompe quand il dit "UBound(Col, 1) 'n'a pas de sens". Ubound(Col,1) renvoie le plus grand indice de la 1ère dimension, en l'occurence ici 2 Ubound(Col,2) renvoie le plus grand indice de la 2ème dimension, en l'occurence ici 11. Ensuite, 52847 Stephane33 a raison en ce qui concerne les "re-déclarations", ne les mets pas, ça va mieux sans (mais je crois que tu le sais) :) Enfin, = 55913 petchy (eh, il s'intéresse à moi? c'est pas trop tôt), le message d'erreur que tu as sur cette ligne doit être : Erreur d'exécution 424, un objet est requis (Mince un télépathe! qui voit à distance! un visiopathe?) Et pour cause, si tu prends directement ton 2ème bloc d'instructions (ah oui, on ne dit pas formule, mais bloc d'instructions, je te bloque là un peu pour te faire ton instruction :) ), qui est sûrement directement issu d'Excel (bon reflexe pour apprendre vite et bien), et que tu l'implémentes dans ton code VB, VB n'arrivera pas à résoudre la référence présente dans ton rationnaliseur de code (un bloc With ...End With est un rationnaliseur de code)! Feuil1 est une de classe qui existe de façon implicite cad pas besoin d'écrire Set Feuil1 = ActiveWorkbook.Sheets("Feuil1") ), mais qui n'existe pas de façon implicite dans VB! Comment faire pour qu'elle existe dans VB? Ben, la réponse est soulignée entre les parenthèses de la phrase ci-dessus! PS : ré-examine bien ton code, il y a d'autres instructions dans (à peu près) le même cas, qui ne déclenchent pas encore d'erreur, mais ça viendra un jour ou l'autre ! (et peut-être pas dans ce bloc d'instructions, cf effet de bord) PS2 : plus simple, c'est pas forcément possible, plus modulaire, ça l'est sûrement : Pourquoi ne pas faire une fonction FichierExiste() ? Pourquoi ne pas faire une fonction TrierColonne() ? Etc, comme ça, tu isoles les problèmes dans des blocs précis, et quand tu poses une question, elle ne fait pas peur, au demeurant, et on trouve des solutions à chaque problème, et toi, tu comprendras mieux la globalité de ton code, car tu jongleras avec des petites boites au lieu d'une palette SNCF de petites boites. allez, gardes la pêche, à+ rvblogn^{Je veux ton bien... et je l'aurais}

cs_petchy · Answer

salut
merci rvblog d'avoir r&#233;pondu &#224; l'appel de la d&#233;tresse :(
mais pourrais tu m'expliquer un peu plus :
Pourquoi ne pas faire une fonction FichierExiste() ?
Pourquoi ne pas faire une fonction TrierColonne() ?
et me donner un exemple
merci
petchy

rvblog · Answer

Salut petchy, ce n'était qu'une approche méthologique pour t'inciter à découper un peu ton code, afin d'éviter d'avoir une si grande procédure à nous présenter (alors qu'il n'y a qu'une ligne en erreur!). Cette approche s'appelle la modularité, et elle consiste à créer des modules, atomiques (le plus petit possible) et génériques (rendant le plus de services possibles aux plus grand nombre possible). Une fois que tu as créé des petits outils, on ne trouve dans ta procédure que les appels à tes outils (donc, moins de lignes de code). voilà, c'est tout! au fait, ça marche maintenant? à+ rvblogn^{Je veux ton bien... et je l'aurais}

Inclure un formule dans VB6 pour Excel

9 réponses

Discussions similaires