Aide pour corriger code
bonjour le forum,
je viens d'écrire ce code qui ne ramène aucun résultat , pourtant il m'a l'air normal.
qlq peut me dire ce qui ne va pas svp?
merci d'avance
Pedro
'Dim sh1 As Worksheet, sh2 As Worksheet, sh3 As Worksheet
'Dim m As Long, n As Long, o As Long
'Set sh1 = Sheets("Stockpoudre")
'Set sh2 = Sheets("nbreXlotdansdonnee")
'Set sh3 = Sheets("comparaisonGenerix5000")
'For m = 2 To sh1.Range("A" & Rows.Count).End(xlUp).Row
'For n = 2 To sh2.Range("A" & Rows.Count).End(xlUp).Row
'For o = 2 To sh3.Range("A" & Rows.Count).End(xlUp).Row
'sh3.Range("B1:C" & o).Delete Shift:=xlToLeft
'sh3.Cells(o, 1).Value = sh2.Cells(n, 1).Value
'If sh3.Cells(o, 1).Value = sh1.Cells(m, 1).Value Then
'sh3.Cells(o, 2).Value = sh1.Cells(m, 2).Value
'End If
'If sh3.Cells(o, 1).Value = sh2.Cells(n, 1).Value Then
'sh3.Cells(o, 3).Value = sh2.Cells(n, 2).Value
'End If
'Next
'Next
'Next
bonjour,
je ne sais pas ce que tu cherches à faire mais cette instruction me parait très bizarre
sh3.Range("B1:C" & o).Delete Shift:=xlToLeftet en tout cas elle efface les résultats calculés auparavant dans la boucle.
J'efface les anciens résultats dans les colonnes B et C, avant les nouveaux calculs.
bonjour,
oui, mais tu effaces également les nouveaux résultats qui tu viens d'y mettre.
Ah d'accord, le serpent qui se mord la queue !!!
Comment éviter cela svp?
bonjour,
peut-être ainsi
sh3.Range("B" & o & ":C" & o).Delete Shift:=xlToLeft