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

[Menhir]

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

Remplacer :

Code :

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

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

par :

Code :

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

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 :

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

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.

[dyjatou92]

il ya une erreur ou un bout de code incomplet à la solution select case que vous venez de me proposer

[Menhir]

Code :

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

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

C'est quelque chose que tu aurais pu corrigé par toi-même...

[Marc-L]

Bonjour, bonjour !

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, …

[dyjatou92]

Eh ben rien ne se produit toujours pas sur la colonne A

[Menhir]

C'est sans doute parce qu'aucune de tes données ne correspond aux cas que tu décris dans ton code.

[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 …