Bonjour à toutes et à tous,
Voilà je cherche à déclarer des variables dans une boucle pour pouvoir ainsi réutiliser ces variables dans une autres boucles. Mais forcément cela ne fonctionne pas !
Je déclare mes variables :
Et là je m'en sert :
Et là il me dit que " Lot_colonne(recherche) " = "" mais que "(recherche)" = 1
Avez vous des réponses à ma question ?
Merci d'avance pour votre aide.
Voilà je cherche à déclarer des variables dans une boucle pour pouvoir ainsi réutiliser ces variables dans une autres boucles. Mais forcément cela ne fonctionne pas !
Je déclare mes variables :
Code:
Dim Lot() As String
Dim Lot_colonne() As String
Dim Lot_debut() As String
dernier = 0
For i = 2 To fin
If Cells(i, colonne_hierarchie) = "1" Then
Workbooks(classeur).Sheets("planning").Range("IV1").End(xlToLeft).Offset(0, 1).Select
Selection = Cells(i, colonne_nom)
ReDim Preserve Lot_colonne(i)
Lot_colonne(i) = Selection.Column
ReDim Preserve Lot(i)
Lot(i) = Cells(i, colonne_nom)
ReDim Preserve Lot_debut(i)
Lot_debut(i) = Cells(i, colonne_nom).Row
dernier = dernier + 1
End If
Next i
Et là je m'en sert :
Code:
For client_lot = 2 To fin
client_a_trouver = Workbooks(classeur).Sheets("planning").Cells(client_lot, colonne_nom_planning)
For recherche = 1 To dernier
Set x = Workbooks(classeur).Sheets("base").Columns(3).Find(client_a_trouver, , xlValues, 1, 1, 2, 0)
If Not x Is Nothing Then
Workbooks(classeur).Sheets("Planning").Cells(client_lot, Lot_colonne(recherche)) = Cells(x.Row, colonne_jour)
End If
Next recherche
Next client_lot
Et là il me dit que " Lot_colonne(recherche) " = "" mais que "(recherche)" = 1
Avez vous des réponses à ma question ?
Merci d'avance pour votre aide.