bonjour,

j'ai créé la procedure suivante pour lire le premier caractère d'une cellule et rajouter un T à la valeur de la cellule si elle ne commence pas par T ou N.
Or lorque je lance la procedure, j'obtiens comme variable lettre="A" au lieu de "T" lorsque je teste ma premiére cellule or elle a comme valeur "T11000"

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
Sub rajoutT(destinxlsfile, u)
 
Dim z As Integer
Dim lettre As String, nlvaleur As String
 
Windows(destinxlsfile).Activate
For z = 2 To u
       lettre = Left(("A" & z), 1)
       MsgBox (lettre)
       If lettre <> "T" Or "N" Then
            nlvaleur = "T" & Range("A" & z)
            Range("A" & z) = nlvaleur
        End If
Next z
End Sub
Je ne vois pas où je fais l'erreur. Si vous avez une idée, merci pour vos remarques.

bonne journée