Erreur de syntaxe Fermé

Question

Bonjour,

je suis débutante sur VBA et cherche à faire une boucle For mais j'ai une erreur dans ma syntaxe que je n'arrive pas à détecter. J'ai 3 feuilles dans mon classeur. Quand je tombe sur le contenu de la cellule en ligne 6 colonne A, je veux faire la différence entre cells(6,2) de la feuille 3 et cells(2,3) de la feuille 2 et mettre cette valeur dans la cells(6,3).
Je veux faire cela pour toutes les celulles de la colonne A d'ou la necessité de la boucle For.


Merci beaucoup d'avance pour l'aide.
Voici la macro :

Sub testet()

Dim i As Integer
For i = 6 To 600

If sheets(Feuil3).Cells(i, 1) = sheets(Feuil3).Cells(6, 1) Then sheets(Feuil3).Cells(i, 3) = sheets(Feuil3).(Cells(i, 2) - sheets(Feuil2).Cells(2, 3)

Next i

End Sub

Zoul67 · Answer

Bonjour,

Essaie
Sub testet()Dim i As IntegerFor i = 6 To 600If 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).ValueEnd IfNext iEnd Sub

A+

romain7254 · Answer

Bonjour,

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 RangeDim i As IntegerSet 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 iNextEnd Sub

Erreur de syntaxe

2 réponses

Discussions similaires