Erreur de compilation

De rien, c'est avec plaisir.
N'oublie pas de mettre résolu.

Bonne continuation et bon courage.

;o)

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

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)

Je la colle après la lanceRecap?

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

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

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.

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.

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

ou doit-elle être ?

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

;o)

Le message est le suivant :

Erreur de compilation Sub ou fonction non définie.
Et il signale la ligne indiquée ci-dessus.

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)

Bonjour,

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

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)

Merci beaucoup

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)

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

Peux tu remettre l'ensemble de ton code ici stp ?

J'aimerai comprendre pourquoi cela ne fonctionne pas ...

Merci

;o)

Ne t'embêtes pas, je ferai un tri manuel.

Merci du temps que tu m'as consacré.

Sympa.