Erreur de syntaxe
Fermé
Lid2405
Messages postés
5
Date d'inscription
mercredi 18 septembre 2013
Statut
Membre
Dernière intervention
25 février 2014
-
Modifié par pijaku le 25/02/2014 à 16:12
romain7254 Messages postés 1020 Date d'inscription mardi 23 décembre 2008 Statut Membre Dernière intervention 10 janvier 2018 - 25 févr. 2014 à 15:10
romain7254 Messages postés 1020 Date d'inscription mardi 23 décembre 2008 Statut Membre Dernière intervention 10 janvier 2018 - 25 févr. 2014 à 15:10
A voir également:
- Erreur de syntaxe
- Erreur 0x80070643 - Guide
- Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Guide
- Erreur 1001 outlook - Guide
- Erreur 10016 epson - Forum Imprimante
- Erreur g030 - Forum Bbox Bouygues
2 réponses
Zoul67
Messages postés
1959
Date d'inscription
lundi 3 mai 2010
Statut
Membre
Dernière intervention
30 janvier 2023
149
25 févr. 2014 à 15:02
25 févr. 2014 à 15:02
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+
romain7254
Messages postés
1020
Date d'inscription
mardi 23 décembre 2008
Statut
Membre
Dernière intervention
10 janvier 2018
297
25 févr. 2014 à 15:10
25 févr. 2014 à 15:10
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
