VBA - Boucle For Fermé

Question

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

Polux31 · Answer

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)

Railbird · Answer

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.

Railbird · Answer

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.

VBA - Boucle For

3 réponses

Discussions similaires