Parcourir deux colonnes dans un seul code

Bonjour,

Une facon de faire

Sub date_propose()
    Dim resultat As Date
    Dim i As Long
    
    With ThisWorkbook.Sheets("Feuil1")
        Derlig = .Range("A" & .Rows.Count).End(xlUp).Row
        For i = 2 To Derlig
            .Range("B" & i).Value = .Range("A" & i).Value - 21
        Next i
    End With
End Sub

Bonjour,

Fichier avec le code que j'ai mis a dispo

 https://www.cjoint.com/c/MKvgNh7P0Dg

Bonjour à tous les deux

>mimi : si tu as mis ton code dans le module de la feuille, il doit fonctionner tel que, si tu l'as mis dans un module général (Module1 par ex), et que tu l'exécutes depuis une autre feuille,  il va manquer un point'.' devant Range("A" & i).value et Range("B" & i) .value pour attacher ces références à la feuille "Feuil1" (With .... End With)

Pour ce qui est de ta boucle, il vaut mieux utiliser une variable qui contiendra la dernière ligne comme l'a proposé f894009 histoire de ne pas la recalculer à chaque tour.

Cdlmnt

Sub date_propose()
Dim resultat As Date
Dim i As Integer
Dim J As Integer
With ThisWorkbook.Sheets("Feuil1")
  For i = .Range("A" & .Rows.Count).End(xlUp).Row To 2 Step -1
    resultat = .Range("A" & i).Value
    resultat = resultat - 21
    .Range("B" & i).Value = resultat
  Next i
End With
End Sub