Erreur de compilation Résolu

Question

Bonjour,

j'ai une erreur dans ma macro "erreur de compilation, variable non définie" sur la ligne ReDim Preserve my tab

Voici la macro :

Sub Bouton1_QuandClic()

Private myTab()
Private ind As Long

Public Sub mainTri()

prepareTri
lanceRecap

End Sub

Private Sub prepareTri()
Dim ws As Worksheet
Dim i As Long

Set ws = Worksheets(1)
i = 2
While ws.Range("A" & i).Value <> ""
If doesExist(ws.Range("A" & i).Value) = False Then
ind = ind + 1
ReDim Preserve myTab(ind)
myTab(ind) = ws.Range("A" & i).Value
End If
i = i + 1
Wend

Set ws = Nothing

End Sub

Private Sub lanceRecap()
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim lig1 As Long
Dim lig2 As Long
Dim i As Long
Dim str As Variant

Set ws1 = Worksheets(1)
Set ws2 = Worksheets(2)
lig2 = 2

For i = 1 To ind
lig1 = 2
str = myTab(i)
While ws1.Range("A" & lig1).Value <> ""
If ws1.Range("A" & lig1).Value = str Then
ws1.Range("B" & lig1).Copy Destination:=ws2.Range("A" & lig2)
ws1.Range("A" & lig1).Copy Destination:=ws2.Range("B" & lig2)
ws1.Range("E" & lig1).Copy Destination:=ws2.Range("C" & lig2)
lig2 = lig2 + 1
End If
lig1 = lig1 + 1
Wend
Next i

Set ws1 = Nothing
Set ws2 = Nothing

End Sub

Private Function doesExist(ByVal str As Variant) As Boolean
Dim i As Long

For i = 1 To ind
If myTab(i) = str Then
doesExist = True
Exit Function
End If
Next i

doesExist = False

End Function

End Function

Help SVP.

Cette macro me sert à effectuer un récapitulatif de commande.

Configuration: Windows XP
Internet Explorer 6.0

bestkeeper · Answer

Quelqu'un peut m'aider SVP.

Je suis bloqué.

Polux31 · Answer

bonjour

myTab() doit être déclaré en variable global du module et non dans une procédure.

Tu as "Sub Bouton1_QuandClic()" qui n'a rien à faire ici puisque pas de End Sub.

Idem pourquoi 2 fois End Function à la fin ????

;o)

bestkeeper · Answer

Désolé mais je n'y comprends rien.

Il me semble que c'est toi qui avait écrit la macro, et j'ai du faire une erreur en la recopiant.

Polux31 · Answer

Oui c'est bien moi qui ai fait ce code ... mais ça ne devait pas se présenter comme çà ...

;o)

bestkeeper · Answer

J'ai apporté les modifications.
Le hic, est que cela ne me prends en compte que les données de la première page.

Polux31 · Answer

Comment ça "les données de la première page" ???

bestkeeper · Answer

En fait dans mon premier onglet "commande", je crée une page par commande fournisseur.

Et la macro ne prends en compte que les données de la première page.

en espérant être assez clair.

Polux31 · Answer

Il faut modifier l'objet Worksheets().

Faire : Set ws = Worksheets("nom_de_l'onglet") ou lieu de Worksheets(1) par exemple.

;o)

bestkeeper · Answer

Voici ce que j'ai écrit.
Et toujours le même problème

Option Explicit

Private myTab()
Private ind As Long

Public Sub mainTri()

prepareTri
lanceRecap

End Sub

Private Sub prepareTri()
Dim ws As Worksheet
Dim i As Long

Set ws = Worksheets("commandes")
i = 2
While ws.Range("A" & i).Value <> ""
If doesExist(ws.Range("A" & i).Value) = False Then
ind = ind + 1
ReDim Preserve myTab(ind)
myTab(ind) = ws.Range("A" & i).Value
End If
i = i + 1
Wend

Set ws = Nothing

End Sub

Private Sub lanceRecap()
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim lig1 As Long
Dim lig2 As Long
Dim i As Long
Dim str As Variant

Set ws1 = Worksheets(1)
Set ws2 = Worksheets(2)
lig2 = 2

For i = 1 To ind
lig1 = 2
str = myTab(i)
While ws1.Range("A" & lig1).Value <> ""
If ws1.Range("A" & lig1).Value = str Then
ws1.Range("B" & lig1).Copy Destination:=ws2.Range("A" & lig2)
ws1.Range("A" & lig1).Copy Destination:=ws2.Range("B" & lig2)
ws1.Range("E" & lig1).Copy Destination:=ws2.Range("C" & lig2)
lig2 = lig2 + 1
End If
lig1 = lig1 + 1
Wend
Next i

Set ws1 = Nothing
Set ws2 = Nothing

End Sub

Private Function doesExist(ByVal str As Variant) As Boolean
Dim i As Long

For i = 1 To ind
If myTab(i) = str Then
doesExist = True
Exit Function
End If
Next i

doesExist = False

End Function

Polux31 · Answer

Tu dois faire pareil dans lanceRecap() pour ws1 (onglet origine) et ws2 (onglet destination)

bestkeeper · Answer

ça ne marche toujours pas. Option Explicit Private myTab() Private ind As Long Public Sub mainTri() prepareTri lanceRecap End Sub Private Sub prepareTri() Dim ws As Worksheet Dim i As Long Set ws = Worksheets("commandes") i = 2 While ws.Range("A" & i).Value <> "" If doesExist(ws.Range("A" & i).Value) = False Then ind = ind + 1 ReDim Preserve myTab(ind) myTab(ind) = ws.Range("A" & i).Value End If i = i + 1 Wend Set ws = Nothing End Sub Private Sub lanceRecap() Dim ws1 As Worksheet Dim ws2 As Worksheet Dim lig1 As Long Dim lig2 As Long Dim i As Long Dim str As Variant Set ws1 = Worksheets("commandes") Set ws2 = Worksheets("recap") lig2 = 2 For i = 1 To ind lig1 = 2 str = myTab(i) While ws1.Range("A" & lig1).Value <> "" If ws1.Range("A" & lig1).Value = str Then ws1.Range("B" & lig1).Copy Destination:=ws2.Range("A" & lig2) ws1.Range("A" & lig1).Copy Destination:=ws2.Range("B" & lig2) ws1.Range("E" & lig1).Copy Destination:=ws2.Range("C" & lig2) lig2 = lig2 + 1 End If lig1 = lig1 + 1 Wend Next i Set ws1 = Worksheets("commandes") Set ws2 = Worksheets("recap") End Sub Private Function doesExist(ByVal str As Variant) As Boolean Dim i As Long For i = 1 To ind If myTab(i) = str Then doesExist = True Exit Function End If Next i doesExist = False End Function

Polux31 · Answer

As-tu une erreur ? si oui quel est le message et sur quelle ligne se produit-elle ?

bestkeeper · Answer

Je n'ai pas d'erreur.
La macro s'execute, et seules les données de la première page de l'onglet "commande" apparaissent.

Polux31 · Answer

la macro recopie des données de l'onglet "commande" vers l'onglet "recap", je ne vois pas le problème.

bestkeeper · Answer

peut-être des sauts de page?

J'en ai sur mon onglet commande.

Polux31 · Answer

C'est à cause des cellules fusionnées ou vides ... le test se fait sur la colonne A. Pour parcourir toute la feuille, il ne faut ni cellules vides en A, ni cellules fusionnées.

bestkeeper · Answer

Ok, donc moi j'ai des cellules vides.

Je fais un test avec uniquement des cellules pleines, et je te tiens au courant.

Merci

Polux31 · Answer

ok

;o)

bestkeeper · Answer

ça marche en supprimant les cellules vides.

Cependant, la récap ne me tri pas les références article par ordre alphabétique.
Cela serait plus facile à la lecture.

Merci

Polux31 · Answer

Regarde si ça fonctionne, je n'ai pas pu tester

Private Sub lanceRecap()
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim lig1 As Long
Dim lig2 As Long
Dim i As Long
Dim str As Variant
 
   Set ws1 = Worksheets("commandes")
   Set ws2 = Worksheets("recap")
   lig2 = 2

   Call TriTab(True)   'True tri croissant, False tri décroissant

   For i = 1 To ind
      lig1 = 2
     str = myTab(i)
    While ws1.Range("A" & lig1).Value <> ""
       If ws1.Range("A" & lig1).Value = str Then
          ws1.Range("B" & lig1).Copy Destination:=ws2.Range("A" & lig2)
          ws1.Range("A" & lig1).Copy Destination:=ws2.Range("B" & lig2)
          ws1.Range("E" & lig1).Copy Destination:=ws2.Range("C" & lig2)
          lig2 = lig2 + 1
      End If
      lig1 = lig1 + 1
   Wend
  Next i 

Set ws1 = Worksheets("commandes")
Set ws2 = Worksheets("recap")

End Sub 

Sub TriTab(bASC As Boolean)
    Dim i As Long, j As Long
    Dim Temp As String
    
    If bASC Then    '  croissant
        For i = LBound(myTab()) To UBound(myTab()) - 1
            For j = i + 1 To UBound(myTab())
                If myTab(i) > myTab(j) Then
                    Temp = myTab(j)
                    myTab(j) = myTab(i)
                    myTab(i) = Temp
                End If
            Next j
        Next i
    Else            ' décroissant
        For i = LBound(myTab()) To UBoundmyTab()) - 1
            For j = i + 1 To UBound(myTab())
                If myTab(i) < myTab(j) Then
                    Temp = myTab(j)
                    myTab(j) = myTab(i)
                    myTab(i) = Temp
                End If
            Next j
        Next i
    End If
End Sub

;o)

bestkeeper · Answer

Non.

j'ai une erreur ici

Private Sub prepareTri()
Dim ws As Worksheet
Dim i As Long

    Set ws = Worksheets("commandes")
    i = 2
    While ws.Range("A" & i).Value <> ""
        If doesExist(ws.Range("A" & i).Value) = False Then   (sur le doesExist)

Polux31 · Answer

bizarre ... cette ligne n'a rien à voir avec la fonction doesExist qui fonctionnait avant ...

Ce problème vient d'ailleur.

bestkeeper · Answer

Ne t'embêtes pas, je ferai un tri manuel.

Merci du temps que tu m'as consacré.

Sympa.

Polux31 · Answer

Peux tu remettre l'ensemble de ton code ici stp ?

J'aimerai comprendre pourquoi cela ne fonctionne pas ...

Merci

;o)

bestkeeper · Answer

Voici l'ensemble du code.

Petite question, la macro ne fonctionne pas si j'ajoute dans ma récap une colonne dans laquelle j'ai une formule du type SI(ESTNA...
En fait cela me copie la formul et non le résultat.

Option Explicit

Private myTab()
Private ind As Long

Public Sub mainTri()

prepareTri
lanceRecap

End Sub

Private Sub prepareTri()
Dim ws As Worksheet
Dim i As Long

Set ws = Worksheets("commandes")
i = 2
While ws.Range("A" & i).Value <> ""
If doesExist(ws.Range("A" & i).Value) = False Then
ind = ind + 1
ReDim Preserve myTab(ind)
myTab(ind) = ws.Range("A" & i).Value
End If
i = i + 1
Wend

Set ws = Nothing

End Sub

Private Sub lanceRecap()
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim lig1 As Long
Dim lig2 As Long
Dim i As Long
Dim str As Variant

Set ws1 = Worksheets("commandes")
Set ws2 = Worksheets("recap")
lig2 = 2

Call TriTab(True) 'True tri croissant, False tri décroissant

For i = 1 To ind
lig1 = 2
str = myTab(i)
While ws1.Range("A" & lig1).Value <> ""
If ws1.Range("A" & lig1).Value = str Then
ws1.Range("B" & lig1).Copy Destination:=ws2.Range("A" & lig2)
ws1.Range("A" & lig1).Copy Destination:=ws2.Range("B" & lig2)
ws1.Range("E" & lig1).Copy Destination:=ws2.Range("C" & lig2)
lig2 = lig2 + 1
End If
lig1 = lig1 + 1
Wend
Next i

Set ws1 = Worksheets("commandes")
Set ws2 = Worksheets("recap")

End Sub

Sub TriTab(bASC As Boolean)
Dim i As Long, j As Long
Dim Temp As String

If bASC Then ' croissant
For i = LBound(myTab()) To UBound(myTab()) - 1
For j = i + 1 To UBound(myTab())
If myTab(i) > myTab(j) Then
Temp = myTab(j)
myTab(j) = myTab(i)
myTab(i) = Temp
End If
Next j
Next i
Else ' décroissant
For i = LBound(myTab()) To UBoundmyTab()) - 1
For j = i + 1 To UBound(myTab())
If myTab(i) < myTab(j) Then
Temp = myTab(j)
myTab(j) = myTab(i)
myTab(i) = Temp
End If
Next j
Next i
End If
End Sub

Polux31 · Answer

J'ai fait une petite erreur en bas de la Sub LanceRecap(), il faut remplacer :

Set ws1 = Worksheets("commandes")
Set ws2 = Worksheets("recap") 

par

Set ws1 = Nothing
Set ws2 = Nothing

mais ça n'a aucune influence sur le code.

Je ne vois pas d'autres erreurs suceptibles de l'empêcher de tourner.

Quant à la recopie de la formule à la place du résultat, je ne sais pas trop, il faut que je regarde dans l'aide. Je regarderai demain et je te dis si j'ai trouvé quelque chose.

Bonne soirée.

;o)

bestkeeper · Answer

Merci beaucoup

Polux31 · Answer

Bonjour,

Voilà comment copier les valeurs et non les formules :
Private Sub lanceRecap()
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim lig1 As Long
Dim lig2 As Long
Dim i As Long
Dim str As Variant

Set ws1 = Worksheets("commandes")
Set ws2 = Worksheets("recap")
lig2 = 2

Call TriTab(True) 'True tri croissant, False tri décroissant

    For i = 1 To ind
    lig1 = 2
    str = myTab(i)
    While ws1.Range("A" & lig1).Value <> ""
        If ws1.Range("A" & lig1).Value = str Then
            ws1.Select
            ws1.Range("B" & lig1).Copy
            ws2.Select
            ws2.Range("A" & lig2).Select
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
            ws1.Select
            ws1.Range("A" & lig1).Copy
            ws2.Select
            ws2.Range("B" & lig2).Select
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
            ws1.Select
            ws1.Range("E" & lig1).Copy
            ws2.Select
            ws2.Range("C" & lig2).Select
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
            lig2 = lig2 + 1
        End If
    lig1 = lig1 + 1
    Wend
    Next i

Set ws1 = Nothing
Set ws2 = Nothing

End Sub


;o)

bestkeeper · Answer

Bonjour, 

même soucis sur le Private Sub Prepare tri
Erreur sur la ligne  if DoesExist

Polux31 · Answer

C'est erreur de ne vient pas de ce code ... la fonction doesExist() fonctionnée avant et celle-ci n'a rien à voir avec. Le problème est ailleur.

;o)

bestkeeper · Answer

Le message est le suivant : 

Erreur de compilation Sub ou fonction non définie.
Et il signale la ligne indiquée ci-dessus.

Polux31 · Answer

dans le dernier ensemble de ton code, la fonction doesExist() n'y est pas ... ne l'aurais-tu pas effacée ???

;o)

bestkeeper · Answer

ou doit-elle être ?

Polux31 · Answer

peu importe, elle doit être dans le même module.

bestkeeper · Answer

Ok autant pour moi, j'avais zappé cette partie de la macro.
Maintenant il me sort une erreur de compilation sur le Private Sub lanceRecap() à la ligne CallTriTab.

Polux31 · Answer

Erreur de compilation sur cette ligne :

Call TriTab(True) 

Je ne comprends pas, j'ai testé les procédures hier soir chez moi et ça fonctionnait, je pouvais faire le tri dans les 2 sens. Je ne vois pas d'où ça peut venir.

bestkeeper · Answer

Voici la macro dans sa globalité, peut-être y verras tu une erreur ? Option Explicit Private myTab() Private ind As Long Public Sub mainTri() prepareTri lanceRecap End Sub Private Sub prepareTri() Dim ws As Worksheet Dim i As Long Set ws = Worksheets("commandes") i = 2 While ws.Range("A" & i).Value <> "" If doesExist(ws.Range("A" & i).Value) = False Then ind = ind + 1 ReDim Preserve myTab(ind) myTab(ind) = ws.Range("A" & i).Value End If i = i + 1 Wend Set ws = Nothing End Sub Private Sub lanceRecap() Dim ws1 As Worksheet Dim ws2 As Worksheet Dim lig1 As Long Dim lig2 As Long Dim i As Long Dim str As Variant Set ws1 = Worksheets("commandes") Set ws2 = Worksheets("recap") lig2 = 2 Call TriTab(True) 'True tri croissant, False tri décroissant For i = 1 To ind lig1 = 2 str = myTab(i) While ws1.Range("A" & lig1).Value <> "" If ws1.Range("A" & lig1).Value = str Then ws1.Select ws1.Range("B" & lig1).Copy ws2.Select ws2.Range("A" & lig2).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False ws1.Select ws1.Range("A" & lig1).Copy ws2.Select ws2.Range("B" & lig2).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False ws1.Select ws1.Range("E" & lig1).Copy ws2.Select ws2.Range("C" & lig2).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False lig2 = lig2 + 1 End If lig1 = lig1 + 1 Wend Next i Set ws1 = Nothing Set ws2 = Nothing End Sub Private Function doesExist(ByVal str As Variant) As Boolean Dim i As Long For i = 1 To ind If myTab(i) = str Then doesExist = True Exit Function End If Next i doesExist = False End Function

Polux31 · Answer

Il manque la procédure TriTab() ... :o|

bestkeeper · Answer

Je la colle après la lanceRecap?

Polux31 · Answer

tu peux la coller même après doesExist(), l'emplacement n'a pas d'importance, le tout c'est qu'elle y soit ;o)

bestkeeper · Answer

C'est bon ça marche.
Merci mille fois Polux 31, pour ton aide plus que précieuse et le temps que tu m'as consacré.

A bientôt et bonne continuation

Polux31 · Answer

De rien, c'est avec plaisir.
N'oublie pas de mettre résolu.

Bonne continuation et bon courage.

;o)

Erreur de compilation

42 réponses

Discussions similaires

Newsletters