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) ...