Boucles IF problème
Bonjour,
J'ai un léger soucis, voici mon code :
Sub ANAL_DYS()
Dim i As Long
Dim j As Integer
Dim k As Integer
Dim v As Integer
Dim w As Integer
Dim x As Integer
Dim m As String
For j = 2 To 21
m = Worksheets("Adys").Cells(j, 1) 'il s'agit d'une chaine de caractère
For i = 2 To 13 'on cherche une valeurse trouvant sous m dans un premier tcd
If m = Worksheets("tcd").Cells(4, i) Then
v = Worksheets("tcd").Cells(5, i).Value
End If
Next i
For i = 2 To 13 'on cherche une valeur se trouvant sous m dans un deuxième tcd, et on l'aditionne avec la première
If m = Worksheets("tcd").Cells(10, i) Then
w = Worksheets("tcd").Cells(11, i).Value
v = v + w
End If
Next i
For i = 2 To 13 'on cherche une valeur se trouvant sous m dans un deuxième tcd, et on l'aditionne avec la seconde
If m = Worksheets("tcd").Cells(17, i) Then
x = Worksheets("tcd").Cells(18, i).Value
v = v + x
End If
Next i
Worksheets("Adys").Cells(j, 2) = v On rempli un tableau avec la valeur finale de v
Next j ' On continue pour tous les m
End Sub
Cela me renvoit bien des chiffres mais pas les bons, c'est comme si m n'était pas reconnu dans les tcd.
MERCI de votre aide
Bonjour,
Toujours compliqué de deviner les bugs à distance ... sans le fichier ...
Sub ANAL_DYS()
Dim i As Long
Dim j As Integer
Dim k As Integer
Dim v As Integer
Dim w As Integer
Dim x As Integer
Dim m As String
For j = 2 To 21
m = Worksheets("Adys").Cells(j, 1).Value 'il s'agit d'une chaine de caractère
For i = 2 To 13 'on cherche une valeur se trouvant sous m dans un premier tcd
If m = Worksheets("tcd").Cells(4, i).Value Then
v = Worksheets("tcd").Cells(5, i).Value
End If
Next i
For i = 2 To 13 'on cherche une valeur se trouvant sous m dans un deuxième tcd, et on l'aditionne avec la première
If m = Worksheets("tcd").Cells(10, i).Value Then
w = Worksheets("tcd").Cells(11, i).Value
v = v + w
End If
Next i
For i = 2 To 13 'on cherche une valeur se trouvant sous m dans un deuxième tcd, et on l'aditionne avec la seconde
If m = Worksheets("tcd").Cells(17, i).Value Then
x = Worksheets("tcd").Cells(18, i).Value
v = v + x
End If
Next i
Worksheets("Adys").Cells(j, 2).Value = v 'On remplit un tableau avec la valeur finale de v
Next j ' On continue pour tous les m
End Sub
Désolé! Le voici!
Re,
Merci pour le fichier ...
Attention aux doublons des appareils (en rouge) ...