psgman277
Messages postés5Date d'inscriptionmardi 24 mars 2009StatutMembreDernière intervention25 mars 2009
-
25 mars 2009 à 15:04
Genildf
Messages postés270Date d'inscriptionlundi 12 janvier 2009StatutMembreDernière intervention30 décembre 2015
-
25 mars 2009 à 17:22
Bonjour,
Voilà mon problème,
Je travaille dans la comptabilité, et je souhaiterai créer un programme vba mais je suis débutant et je ne suis pas très à l'aise mais je ne demande qu'a apprendre
Je vous explique mon projet,
J'ai une feuille excel avec un balance comptable,
j'ai une deuxième feuille excel avec des fourchettes de comptes,
j'aimerai pouvoir créer un programme qui me regroupe les comptes de la balance par rapport aux fourchettes de comptes,
psgman277
Messages postés5Date d'inscriptionmardi 24 mars 2009StatutMembreDernière intervention25 mars 2009 25 mars 2009 à 15:37
Alors en fait le premier tableau se présente comme suit :
Colonne A : N° compte
Colonne B : Libellé
Colonne C: Débit
Colonne D : Crédit
Le deuxième tableau se présente comme suit :
Colonne A : Rubrique
Colonne B : Libellé
Colonne C : compte de début
Colonne D : compte de fin
Colonne E : sens du compte
Un exemple concret
dans le premier tableau j'ai :
le compte n° 2814000 Amortissement des constructions pour un crédit de 100 euros
et le compte n° 2815000 Amortissement des outils industriels pour un crédit de 200 euros
dans le deuxième quand je regarde la fourchette de compte je vois que ces 2 comptes vont allez dans la même rubrique 2810 qui a pour fourchette de 281 à 2818
Le but étant d'avoir au final une seule ligne qui me dit telle rubrique pour tel montant
Genildf
Messages postés270Date d'inscriptionlundi 12 janvier 2009StatutMembreDernière intervention30 décembre 20151 25 mars 2009 à 15:54
for o = 1 to nb de ligne dans tableau 1
for p =1 to nb de ligne dans tableau 2
intermin = worksheets(2).cells(p,3).value
intermax = worksheets(2).cells(p,4).value
worksheets(3).cells(1,p).value = "Entre " & inetermin ":" & intermax
if worksheets(1).cells(o,1).value> intermin and worksheets(1).cells(o,1).value"" then
worksheets(3).cells(m,p).value = worksheets(1).cells(o,1).value
goto sortfor
end if
next
sortfor:
end if
next
next
Je suis pas trop sur de mon code g fait sa vitte fait comme sa je te conseil de faire un backup avant de lancer sa
Genildf
Messages postés270Date d'inscriptionlundi 12 janvier 2009StatutMembreDernière intervention30 décembre 20151 25 mars 2009 à 17:22
For o = 1 To 65000
For p = 1 To 30
intermin = Worksheets(2).Cells(p, 3).Value
intermax = Worksheets(2).Cells(p, 4).Value
If Worksheets(1).Cells(o, 1).Value > intermin And Worksheets(1).Cells(o, 1).Value < intermax Then
Worksheets(3).Cells(1, p).Value = "Entre " & intermin & ":" & intermax
For m = 2 To 65000
If Worksheets(3).Cells(m, p).Value = "" Then
Worksheets(3).Cells(m, p).Value = Worksheets(1).Cells(o, 1).Value
GoTo sortfor
End If
Next
Worksheets(3).Cells(1, p).Value = "Entre " & inetermin & ":" & intermax
sortfor:
End If
Next
Next
Voila et la sa marche
Par contre jou un peut avec les inferieure ou egale sinon tu va perdre des choses