Probleme avec if FOR ET TAB

Bonjour,

Je cherche à écrire une Macro qui récupère selon une condition des valeurs dans une feuille excel et le met dans un tableau. Mon code s’exécute sans erreur mais mon tableau est vide!!!

Voici mon Code :

Sub TempRep()

Dim DernLigne As Long

Dim tab1(2, 2)

Dim i As Integer

DernLigne = Range("A" & Rows.Count).End(xlUp).Row

Worksheets("285077Ibf").Activate

tab1(0, 0) = ""

tab1(0, 1) = "TempReprise"

tab1(0, 2) = "DuréeIntersequence"

tab1(1, 0) = "12"

tab1(2, 0) = "23"

For i = 5 To i = DernLigne

If (Range("A" & i + 1).Value - Range("A" & i).Value = 1) Then

tab1(1, 1) = Range("A" & i).Value

tab1(1, 2) = Cells(i + 1, 17).Value - Cells(i, 18).Value

tab1(2, 1) = Cells(i + 1, 16).Value

tab1(2, 2) = Cells(i + 1, 17).Value - Cells(i, 18).Value

End If

Next

MsgBox tab1(1, 1)

End Sub

Si qqn peut m'aider je suis encore débutante en VBA

Salut,

Difficile à dire sans jeu de données mais tu as un problème de syntaxe dans ton code à ce niveau :

For i = 5 To i = DernLigne

A remplacer par :

For i = 5 To DernLigne

Sinon le code ignore tout le For et va directement à MsgBox tab1(1, 1)

Je m'en suis rendu compte rapidement grâce au débogage pas à pas. Tu exécutes ton code ligne par ligne en appuyant sur F8 à chaque fois. C'est très pratique

Girodo,

Moi je veux parcourir la colonne A et si la valeur de la ligne i = valeur de la ligne i +1 remplir le tableau que j'ai crée par des donnés d'autre colonne dans le classeur .

Voici un exemple simplifier de mon fichier excel

6classeur1.xlsx (11.00 Ko)

Je te propose une solution avec un report direct dans la feuille sans passer par une table (Moins optimisé mais plus facile à comprendre dans un premier temps)

Girodo,

Merci bcoup c'est marché

Rechercher des sujets similaires à "probleme tab"