Définir une variable par une feuille
Bonjour a tous,
Petite question qui doit vous paraître débile, mais et ce que mon code est bon ? ( je post que la partie problématique)
Car pendant ma boucle, le programme n'arrive pas a passer l'étape ('Analyser le Delta)...
C'est lié au "Set delta = Sheets(4)" qui n'est peut être pas bon ?
Sub MAJdeltasiepr()
Dim tabl1 As Variant, tabl2 As Variant, delta As Variant, deltab As Variant
Dim libd%, intitD%, totald%, libt1%, intitt1%, total1%, libt2%, intitt2%, total2%
Dim iRT1%, iRT2%, iRD%
Dim tablo(3, 12)
Dim iRto%, iCtO, k%
'Déterminer le fichier principal
Set deltab = ThisWorkbook
'Déterminer les fichiers tableaux
Set tabl1 = Sheets(2)
Set tabl2 = Sheets(3)
Set delta = Sheets(4)
'Analyser le Delta
iRD = 4
Do Until delta.Cells(iRD, 2).Value = "FIN"
libd = delta.Cells(iRD, 2).Value
intitD = delta.Cells(iRD, 16).Value
Loop
End SubBonjour
iRD ne varie pas dans ta boucle, donc tu testes sans arrêt la même cellule, normal ou non ?
Si pas ça
Hum possible de t'envoyer ça par mail ? Et du coup me l'envoyer par MP ?
Disons que c'est pas un fichier que je veux poster a la vue de tout le monde