Utilisation de left

Version imprimable

Utilisation de left

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:

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

Déjà, à ta place, je commencerais par lever les ambiguïtés.

Remplacer :

Code:

If Left(Range("D" & i + 1).Text, 4) = "42GW" Then

par :

Code:

If Left(Range("D" & (i + 1)).Text, 4) = "42GW" Then

Ensuite, ta collection de If Else, pourrait être remplacer par un Select Case qui serait plus lisible.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Select Left(Range("D" & (i + 1)).Value, 4) Case "42GW" Range("A" & (i + 1)).Value = "Cassette eau glacée avec moteur" Case "42EM" Range("A" & (i + 1)).Value = "Ventilo-convecteur gainable en faux plafond avec moteur" Case "42EN" Range("A" & (i + 1)).Value = "Ventilo-convecteur carrossé ou non carrossé avec moteur" Case "42NH" Range("A" & (i + 1)).Value = "Ventilo-convecteur gainable en faux plafond gainée reprise-soufflage" Case "42LH" Range("A" & (i + 1)).Value = "Ventilo-convecteur gainable en faux plafond basse pression en vrac" End Select
Mais, à mon avis, tout ça pourrait être remplacer par de simples RECHERCHEV() sans avoir besoin de passer par du VBA.

06/09/2016, 12h31
dyjatou92

il ya une erreur ou un bout de code incomplet à la solution select case que vous venez de me proposer
06/09/2016, 12h44
Menhir

Code:

Select Case Left(Range("D" & (i + 1)).Value, 4)

C'est quelque chose que tu aurais pu corrigé par toi-même... :roll:
06/09/2016, 12h48
Marc-L

Bonjour, bonjour !

Citation:

Envoyé par dyjatou92

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

Pour trouver l'erreur de conception, le B-A-BA est de suivre la progression du code en mode pas à pas via la touche F8
tout en contrôlant les données de la feuille de calculs et le contenu de la fenêtre Variables locales …

Voilà, voilà !

_________________________________________________________________________________________________________
Je suis Paris, Nice, Bruxelles, Charlie, …
06/09/2016, 12h54
dyjatou92

Eh ben rien ne se produit toujours pas sur la colonne A
06/09/2016, 12h59
Menhir

C'est sans doute parce qu'aucune de tes données ne correspond aux cas que tu décris dans ton code.
06/09/2016, 13h15
Marc-L

Sans l'instruction On Error dans le code et sans message d'erreur, alors le code fonctionne bien …

Par contre la conception / la logique du code peut être défaillante, problème situé entre la chaise et le clavier !
Il suffit juste de vérifier comme pourtant déjà indiqué dans mon précédent message …