Bonjour,

Tout est dans le tire, je ne comprends pas ce qu'il faut changer dans le code suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
    'Définition du type de compte
 
    Dim LastRow As Long, AccClass As Byte, Account As Range
        LastRow = Range("A65536").End(xlUp).Row
        AccClass = Left(Cells(Account), 1)
 
        For Each Account In Range("B2:B" & LastRow)
            If AccClass.Value = "5" Then Account.Offset(0, 1).Value = "R"
        Next Account
 
End Sub
Mon but, écrire "R" en Cx si 1er caractère de gauche de la cellule Bx est &gale à 5. Excel me renvoie "Invalid qualifier" à l'exécution, pourtant ça me semblait pas mal...
Pouvez-vous m'aider SVP ?
Merci d'avance !