A voir également:
- Erreur de syntaxe
- Erreur 0x80070643 - Accueil - Windows
- Corriger l'erreur 0x80070643 de la mise à jour KB5034441 de Windows 10 - Accueil - Windows
- Erreur 4201 france tv ✓ - Forum Réseaux sociaux
- J'aime par erreur facebook notification - Forum Facebook
- Java code erreur 1603 ✓ - Forum Windows
2 réponses
Bonjour,
Essaie
A+
Essaie
Sub testet()
Dim i As Integer
For i = 6 To 600
If sheets("Feuil3").Cells(i, 1).Value = sheets("Feuil3").Cells(6, 1).Value Then
sheets("Feuil3").Cells(i, 3).Value = sheets("Feuil3").Cells(i, 2).Value - sheets("Feuil2").Cells(2, 3).Value
End If
Next i
End Sub
A+
Bonjour,
Sans fichier d'exemple, difficile de comprendre quelque chose.
Est-ce-que cela se rapproche de ce que vous voulez ?
Sans fichier d'exemple, difficile de comprendre quelque chose.
Est-ce-que cela se rapproche de ce que vous voulez ?
Sub test()
Dim rng As Range, cell As Range
Dim i As Integer
Set rng = Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
For Each cell In rng.Cells
For i = 6 To 60
If Worksheets(3).Cells(i, 1).Value = Worksheets(3).Cells(6, 1).Value Then
Worksheets(3).Cells(i, 3).Value = Worksheets(3).Cells(i, 2) - Worksheets(2).Cells(2, 3)
End If
Next i
Next
End Sub
