VBA - Boucle For
Railbird
-
Railbird -
Railbird -
Bonjour,
For d = X To FinX
' Ajoute les dates au tableau 1
Call Excel_selectionFeuille(1)
Excel_sheet.Select
Excel_Application.Visible = False
For i = 62 To Last_Cell
k = 1
Excel_sheet.Cells(i, k) = d
Next i
'Ajoute les dates au tableau 2
Call Excel_selectionFeuille(2)
Excel_sheet.Select
Excel_Application.Visible = False
For i = 62 To Last_Cell
k = 1
Excel_sheet.Cells(i, k) = d
Next i
'Ajoute les dates au tableau 3
Call Excel_selectionFeuille(3)
Excel_sheet.Select
Excel_Application.Visible = False
For i = 62 To Last_Cell
k = 1
Excel_sheet.Cells(i, k) = d
Next i
Next d
Les valeurs ajoutées dans les cellules sont toujours les mêmes et correspondent à la dernière valeur que prend la variable "d".
Pourtant quand je met un MsgBox d après le For, les dates s'incrémente 1 à 1.
Si quelqu'un voit d'où provient le problème.
Cdlt,
RailBird
For d = X To FinX
' Ajoute les dates au tableau 1
Call Excel_selectionFeuille(1)
Excel_sheet.Select
Excel_Application.Visible = False
For i = 62 To Last_Cell
k = 1
Excel_sheet.Cells(i, k) = d
Next i
'Ajoute les dates au tableau 2
Call Excel_selectionFeuille(2)
Excel_sheet.Select
Excel_Application.Visible = False
For i = 62 To Last_Cell
k = 1
Excel_sheet.Cells(i, k) = d
Next i
'Ajoute les dates au tableau 3
Call Excel_selectionFeuille(3)
Excel_sheet.Select
Excel_Application.Visible = False
For i = 62 To Last_Cell
k = 1
Excel_sheet.Cells(i, k) = d
Next i
Next d
Les valeurs ajoutées dans les cellules sont toujours les mêmes et correspondent à la dernière valeur que prend la variable "d".
Pourtant quand je met un MsgBox d après le For, les dates s'incrémente 1 à 1.
Si quelqu'un voit d'où provient le problème.
Cdlt,
RailBird
A voir également:
- VBA - Boucle For
- Downloader for pc - Télécharger - Téléchargement & Transfert
- Idm for mac - Télécharger - Téléchargement & Transfert
- Copytrans heic for windows - Télécharger - Visionnage & Diaporama
- Instagram for pc - Télécharger - Divers Communication
- Microsoft store download for pc - Guide
3 réponses
Bonjour,
Il serait bien de dire qu'elle est le problème ? d'indiquer la ligne et le message d'erreur également ... On veut bien aider mais pas faire les devins ...
;o)
Il serait bien de dire qu'elle est le problème ? d'indiquer la ligne et le message d'erreur également ... On veut bien aider mais pas faire les devins ...
;o)
C'étair précise.
Le code fonctionne, mais le problème est le suivant :
Les valeurs qui s'ajoutent dans mon tableau, prennent tous la valeur de "d", autrement dit la valeur que "d" prend en fin de boucle.
Or, j'aimerais que pour chaque cellule d s'incrémente de 1 en 1.
Pourtant lorsque je met un MsgBox d l'incrémentation se fait.
Le code fonctionne, mais le problème est le suivant :
Les valeurs qui s'ajoutent dans mon tableau, prennent tous la valeur de "d", autrement dit la valeur que "d" prend en fin de boucle.
Or, j'aimerais que pour chaque cellule d s'incrémente de 1 en 1.
Pourtant lorsque je met un MsgBox d l'incrémentation se fait.
C'étair précise.
Le code fonctionne, mais le problème est le suivant :
Les valeurs qui s'ajoutent dans mon tableau, prennent tous la valeur de "d", autrement dit la valeur que "d" prend en fin de boucle.
Or, j'aimerais que pour chaque cellule d s'incrémente de 1 en 1.
Pourtant lorsque je met un MsgBox d l'incrémentation se fait.
Le code fonctionne, mais le problème est le suivant :
Les valeurs qui s'ajoutent dans mon tableau, prennent tous la valeur de "d", autrement dit la valeur que "d" prend en fin de boucle.
Or, j'aimerais que pour chaque cellule d s'incrémente de 1 en 1.
Pourtant lorsque je met un MsgBox d l'incrémentation se fait.