Discussion :

[Runsh63]

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 !

[neupont]

Bonjour,
je pense que le problème est que vous voulez définir AccClass avant d'avoir défini Account :

Code :

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

AccClass = Left(Cells(Account), 1)

Ce n'est pas possible en VBA.

[Runsh63]

En effet, j'ai changé entre temps mais rien n'y fait, le code ne marche pas.
Je vais essayer d'une autre manière...

Merci quand même, ça m'a déja donné une piste et appris quelque chose de plus en VBA ^^

[neupont]

Et en déplaçant cette ligne rouge dans la boucle, ça ne marche pas ?

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
                
        For Each Account In Range("B2:B" & LastRow)
            AccClass = Left(Cells(Account), 1)
            If AccClass.Value = "5" Then Account.Offset(0, 1).Value = "R"
        Next Account
    
End Sub

Bon j'ai modifié un peu le code :

Code :

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

1
2
3
4
5
6
7
    Dim LastRow As Long, AccClass As String, Account As Range
        LastRow = Range("A65536").End(xlUp).Row
                
        For Each Account In Range("B2:B" & LastRow)
            AccClass = Left(Account.Value, 1)
            If AccClass = "5" Then Account.Offset(0, 1).Value = "R"
        Next Account

Tout d'abord le type de AccClass, car la fonction Left renvoie une string et pas un byte.
Puis j'ai utilisé directement Account.Value, au lieu de cells(Account...)
Enfin AccClass étant une string et pas un objet, il n'a pas de propriété .value (ça aurait été pareil s'il avait été un byte).
Là ça tourne, après je ne sais si ça fait exactement ce qui est voulu

[Runsh63]

J'ai cru que j'allais devenir dingue ! Je viens juste de me connecter et je remplace mon code par le premier que tu as posté (celui de ta 2ème réponse). J'essaye et ça ne fait rien, je reviens à peine deux minutes plus tard, je recopie le code (car j'avais essayé de le modifer mais je voulais repartir de ta base) du dernier post (pensant que c'était le même) et là ça fonctionne !
Donc merci beaucoup car donc, ça marche et en plus c'est exactement le résultat voulu.
Ce qui m'agac plus : Je débute en VBA, j'essaye de faire des bouts de code, je lis les tutos et tout, mais rien à faire, je suis pas suffisamment doué pour trouver tout seul les corrections à apporter. Je doute d'y arriver un jour. En tout cas merci, celui-là fonctionne et je pense qu'il m'aidera dans la construction de mes boucles futures !

Bonne fin de journée !

Runsh

[neupont]

Ce n'est pas une histoire d'être doué, il suffit de pratiquer et petit à petit les choses se mettent en place
Le plus dur c'est au début, alors courage