référence de variable incorrecte dans NEXT)

[Michel_ja]

Bonjour à tous,
j'ai écrit une petite macro assez simple et pour la première fois je vois apparaître le message suivant "Référence de variable incorrecte dans Next" !! Il me surligne en bleu le code Next j (j étant la variable ligne) et en jaune le nom de la macro ! Si je retire le j après Next la macro se lance mais la boucle change de colonne avant de changer de ligne !!! Est-ce que vous savez d'où cela peut venir ?? merci d'avance


Sub PlanningMarque()


Dim Marque As String
Dim Compteur As Double
Dim Compteur2 As Double
Dim Model As String
Dim Segment As String
Dim BodyType As String
Dim Temps As String
Dim StrConcatenation As String


'Initiatlisation des variables
Compteur = -3 'colonne Concatener
Compteur2 = -2 'colonne Transfert
Compteur3 = -5
Compteur4 = -4

For j = 5 To 40 'j = Lignes
For i = 6 To 31 'i = Colonnes

' traitement des variables
Marque = Cells(2, i).Value
Temps = Cells(1, i).Value
Segment = Cells(j, 1).Value
BodyType = Cells(j, 2).Value


Cells(j, i).Offset(0, Compteur).Select
StrConcatenation = Segment & BodyType & Marque & Temps
ActiveCell.Value = StrConcatenation
Cells(j, i).Select
Cells(j, i).Offset(0, Compteur2).Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],Tableau!R6C1:R213C13,6,FALSE)"
Model = Cells(j, 4).Value
Cells(j, i).Select


If Cells(4, i).Value = "" Then
Cells(j, i).Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(StrModel+ StrBodyType, StrMarque, StrTemps)"

ElseIf Cells(4, i).Value <> "" Then
Cells(j, i).Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(StrModel,Tableau!R6C1:R213C13, 6, False)"

End If


Next j
Compteur = Compteur - 1
Compteur2 = Compteur2 - 1

Next i

End Sub

 

[Michel_ja]

Re : référence de variable incorrecte dans NEXT et IsNA(cell)

Il semblerait que le code If WorksheetFunction.IsNA(cell) = True ne prenne pas en compte la variable Model en lieu et place de (Cell) par contre je viens d'essayer If WorksheetFunction.IsNA(Cells(j, 4)) et ça fonctionne !!!! youhouuuu !

 

[Michel_ja]

Re : référence de variable incorrecte dans NEXT)

Il semblerait que le code If WorksheetFunction.IsNA(cell) = True ne prenne pas en compte la variable Model en lieu et place de (Cell) par contre je viens d'essayer If WorksheetFunction.IsNA(Cells(j, 4)) et ça fonctionne !!!! youhouuuu !