Discussion :

[dyjatou92]

Bonjour je me demandes bien pourquoi le code que j'ai écrit ne marche pas. A l'exécution rien ne se produit. De l'aide svp

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
For i = 1 To 376
If Left(Range("D" & i + 1).Text, 4) = "42GW" Then
Range("A" & i + 1).Text = "Cassette eau glacée avec moteur"
    Else
    If Left(Range("D" & i + 1).Text, 4) = "42EM" Then
    Range("A" & i + 1).Text = "Ventilo-convecteur gainable en faux plafond avec moteur"
            Else
            If Left(Range("D" & i + 1).Text, 4) = "42EN" Then
            Range("A" & i + 1).Text = "Ventilo-convecteur carrossé ou non carrossé avec moteur"
                Else
                If Left(Range("D" & i + 1).Text, 4) = "42NH" Then
                Range("A" & i + 1).Text = "Ventilo-convecteur gainable en faux plafond  gainée reprise-soufflage"
                    Else
                    If Left(Range("D" & i + 1).Text, 4) = "42LH" Then
                    Range("A" & i + 1).Text = "Ventilo-convecteur gainable en faux plafond  basse pression en vrac"
                    End If
                End If
            End If
    End If
End If
Next i