Affecter des plagesen fonction de la nature d'un compte

Question

Bonjour,
J'ai crée une petite application qui devrait me permettre de comparer deux balances comptables de 2 exercices différents.
Une balance comptable déroule une liste de compte commencant à la classe 1 et se terminant, en principe' à 799999. Elle se présente ainsi dans la forme:
N° Compte             Libellé Compte                Montant N                Montant N-1
611100                   Sous traitance                  1000                         500
622500                   Deplacements                   2000                         800

Ce que je souhaite est de récupérer certaines catégories de comptes commencant par exemple par 61 et 62 et l'affecter dans des cellules appropriés situés dans une autre feuille (Exemple Feuil3 "ChargesExternes").

Je ne sais pas comment comment je peux sélectionner ces comptes en fonction de leur radical et les copier dans les cellules des feuilles appropriés.

Il faut savoir que la liste de comptes est susceptible de se modifier d'une année sur l'autre. Une solution figée est donc à proscrire.

Si quelqu'un peut m'aider pour solutionner ce problème je l'en remercie vivement.

Bonne journée

mortalino · Answer

salut,

sert toi de Left$ :
If Left$(cells(i, 1).Value, 2) 61 or Left$(cells(i, 1).Value, 2) 62 then
    With Sheets("ChargesExternes")
        .Range("A1").Value = Cells(i, 1).Value
        .Range("B1").Value = Cells(i, 2).Value
    'etc..
    End With
End If

Ce n'est qu'un exemple, à toi d'adapter 

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

Affecter des plagesen fonction de la nature d'un compte

1 réponse

Votre réponse

Discussions similaires