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.

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.

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

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

Erreur de compilation - Page 3

Résolu

Réponse 41 / 42
bestkeeper Messages postés 93 Statut Membre

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
-1
Réponse 42 / 42
Polux31 Messages postés 7219 Statut Membre 1 204

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

Bonne continuation et bon courage.

;o)
-1

Discussions similaires

Erreur 3005 sur France TV

Erreur de lecture sur iptv smarters

Problème streaming France 2

Erreur code 4001

Erreur 0x80070570 sur clé USB

Forum Programmation

Trouvez des réponses à vos questions sur les langages, les frameworks et les astuces de codage. Échangez avec d'autres développeurs passionnés pour améliorer vos compétences en programmation et rester au fait des dernières tendances du secteur.

Newsletters

Actu du jour

Voir un exemple