Discussion :

[semas]

Bonjour à tous!

J'ai un tableau avec 2 colonnes:
-numero d'immatriculation
-poids net

J'ai écrit un bout de code qui me permet en fonction du numero d'immatriculation de me recopier dans une 3eme colonne le poids net ou alors de le diminuer de 2Tn.

Voila mon code:

Code :

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

1
2
3
4
5
6
    For i = 2 To shtPoidsSem.Range("A" & Rows.Count).End(xlUp).Row
        If InStr(1, shtPoidsSem.Cells(i, 5), "S1015") Then
            shtPoidsSem.Cells(i, 10) = shtPoidsSem.Cells(i, 9) - 2000
        Else: shtPoidsSem.Cells(i, 10) = shtPoidsSem.Cells(i, 9)
        End If
    Next i

Ce que je voudrais c'est que pour toutes les immatriculations du type Sxxxx le poids net soit diminuer de 2Tn.

Mon code marche pour une immatriculation mais comment faire pour qu'il marche pour tous les Sxxxx?

Merci de votre aide.

[Fouinard]

Salut,

Tu peux utiliser comme test :

Code :

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

If Left(tonImmatriculation, 1) = "S" Then ...

[semas]

Le problème c'est que j'ai des immatriculation du SS1029AB et celles la je ne veux pas les diminuer de 2Tn.

[ucfoutu]

Bonjour,

dans ce cas :

Code :

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

If tonImmatriculation like  "S#*" Then ...

devrait aller

[semas]

Ca fonctionne!

Code :

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

1
2
3
4
5
6
    For i = 2 To shtPoidsSem.Range("A" & Rows.Count).End(xlUp).Row
        If shtPoidsSem.Cells(i, 5) Like "S####" Then
            shtPoidsSem.Cells(i, 10) = shtPoidsSem.Cells(i, 9) - 2000
        Else: shtPoidsSem.Cells(i, 10) = shtPoidsSem.Cells(i, 9)
        End If
    Next i

Merci a vous tous!