Bonjour,
Je vous présente mon problème.
J'ai un programme qui marchait parfaitement puis d'un coup il ne veut plus mais je ne comprends pas ce qui le bloque.
Sub DUR()
Dim XTarget As Range
Dim RefTarget As Range
Dim Colonne, Ligne As Integer
Dim T, C As Object
Dim BB As Long
'au cas ou
Set T = Sheets("TABLE")
Set C = Sheets("COMPARAISON")
'BB = 1
compteur = compteur * 8
Set RefTarget = C.Range("A2:C2")
Set XTarget = C.Range("D2")
'Boucle sur les colonnes où il y a les ref
For Colonne = 3 To compteur Step 8
Ligne = Sheets("TABLE").Cells(Rows.Count, Colonne).End(xlUp).Row
For Ligne = 2 To Ligne
RefTarget = Range(Sheets("TABLE").Cells(Ligne, Colonne - 1), Sheets("TABLE").Cells(Ligne, Colonne + 1)).Value ' PROBLEME ICI
Set RefTarget = RefTarget.Offset(1, 0)
XTarget = Sheets("COMPARAISON").Cells(Ligne + 1, Colonne + BB) = "x" 'ET LA
Set XTarget = XTarget.Offset(1, 0)
Next Ligne
Set XTarget = XTarget.Offset(0, 1)
BB = BB + 1
Call Trou
Next Colonne
End Sub
Donc mon programme boucle sur les colonnes d'un tableau avec un step de 8.
Dans un premier temps il récupère 3 valeurs qu'il mets a l'emplacement RefTarget. La quand il tourne il me dit qu'il y a "objet requis" Mais je ne comprends pas trop ce que ça veut dire.
Dans un second j'aimerais mettre un "x" dans les cases de XTarget mais la j'ai pas la syntaxe.....
Si il y a besoin d'un tableau je peux en mettre un il me faut juste le temps de le préparer.
SI vous avez quelconque idée je suis preneurs.
Cordialement
Petit edit apres le message de Loureed le compteur est définit dans d'autre progamme "As long" et quand je mets un msgbox il me donne bien le nombre voulu