Discussion :

[PeaceMaker]

Bonjour,

Je cherche à développer une balance comptable consolidée sur Excel, grâce à l'onglet "Données / Consolider...".

Le seul problème étant que je peux lier les données consolidées aux données sources, mais je ne peux pas intégrer de nouvelles données (écritures).

j'ai donc opté pour une macro permettant de "refaire" la balance consolidée après l'ajout d'écritures.

Voici les colonnes de ma balance consolidée une fois la consolidation réussie :

N° compte - Débit - Crédit

Je veux donc constituer une macro me permettant, une fois cette balance faite (je l'ai déja programmé en macro), de rajouter une colonne Solde (calculé Débit-Crédit) et d'intégrer des conditions pour réaliser la mise en forme

Je veux en fait ajouter la formule "=Débit-Crédit" dans la colonne Solde, mais uniquement pour les lignes incorporant un numéro de compte dans la colonne N° Compte.

Voici donc ma question :

Comment faire pour intégrer la condition suivante : SI il y a une valeur ds la colonne 'N° compte' ALORS remplir la ligne correspondante en jaune et intégrer la formule "=DX-EX" dans la colonne Solde, toujours de la ligne correspondante.

X étant le numéro de la ligne correspondante

Je vous remercie d'avance pour votre aide.

[Krovax]

faut commencer par parcourir ta colonne et tester chaque ligne si j'ai bien compris?
Essaye ca
(je l'ai tapé directement vérifie qu'il ny ai pas d'erreure de frappe)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
dim i as long, DerniereLigne  as long
dim colcompte as integer
dim colsolde as integer
 
colcompte=3 'ton numéro de colonne n° de compte
colsolde=5 'ton numéro de colonne de solde
DerniereLigne = Range("D65536").End(xlUp).Row ' remplace le D par une colonne qui est remplie jusqu'a la dernière ligne je pense que D doit aller
for i= 2 to DerniereLigne 
   if cells(i,colcompte)<>"" then
      cells(i,colcompte).entirerow.Interior.ColorIndex=6
      cells(i,colcompte).formula= "=D" & i & "-" & "E" & i
   endif
next i

[PeaceMaker]

Merci Krovax !

J'ai remplacé où il fallait et c'est bon.

Tu m'as donné une base pour travailler. Maintenant je vais l'améliorer car en fait je ne veux pas que la couleur se prolonge sur toute la ligne, mais juste sur le début de la ligne qui correspond aux colonnes de mon tableau.

Je vais étudier ça de mon côté.
Mais si tu connais bien le code, un coup de main supplémentaire ne serait pas de refus !!

Merci encore de ton aide !

[PeaceMaker]

if cells(i,colcompte)<>"" then
cells(i,colcompte).entirerow.Interior.ColorIndex=6
cells(i,colcompte).formula= "=D" & i & "-" & "E" & i
endif
next i

Dans ce code VBA, l'EntireRow permet en fait de remplir en jaune l'ensemble de la ligne alors qu'en fait je veux remplir uniquement les colonnes A, B, C, D, E et F de la ligne.

J'ai cherché le code mais, après plusieurs tests, Excel me refuse tous mes tests.

Merci d'avance pour votre aide

[Krovax]

en gros pour la ligne 15 tu veux

Code :

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

range("A15:F15").Interior.ColorIndex=6

A15:F15 est une chaine de caractère puisque entouré de " "
par concéquent tu peux le manipuler comme tel.
& permet de "coller" des chaine de caractère

Code :

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

1
2
i=15
msgbox "A" & i

affiche A15

Code :

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

1
2
i=15
msgbox "A" & i & ":F" & i

affiche A15:F15

tu peux donc faire

Code :

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

1
2
 
range("A" & i & ":F" & i).Interior.ColorIndex=6

[PeaceMaker]

C'est bon ta solution était la bonne.

j'avais essayé une technique dans le même genre, mais la syntaxe était inexacte.

Il me reste plus qu'un problème du coup.

Pour la mise en forme, j'ai envie d'encadrer ma balance, mais le truc c'est qu'à chaque fois que j'exécute la macro qui construit la balance, le nombre de lignes n'est pas exactement le même.

Donc comment programmer en VBA pour que la sélection prenne uniquement les lignes contenant un numéro de compte dans la colonne "N° compte"

[Krovax]

Je te laisse regarder ctte contribution d'Ouskel'n'or

Dernière ligne et la dernière colonne renseignées d'une feuille

J'utilise principalement

Code :

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

 DerniereLigne = Range("A65536").End(xlUp).Row

en remplaçant A par ta colonne

[PeaceMaker]

Je saisis bien Krovax. Merci de ton aide.

Le truc c'est qu'au lieu de faire une sélection "classique" du genre :

Code :

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

Range("A1:A35").Select

Je voudrais plutot ça :

Code :

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

Range("A1:A" DerniereLigne = Range("A65536").End(xlUp).Row"").Select

Mai je ne sais pas comment programmer cela.

j'ai essayer en la déclarant comme variable, mais comme je n'y connais pas grand choses en déclaration de variables...