Discussion :

[Mr.Anime]

Bonjour à tous,

Je suis actuellement sur une Macro pour trier un tableau de comptabilité et je pioche devant un problème que je ne comprends pas...

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Test()
 
       formula1
 
End Sub
 
Private Sub formula1()
Dim DLig As Long
' Récupérer la dernière ligne du tableau
DLig = Range("B" & Rows.Count).End(xlUp).Row
' Faire soustraction dela colonne C et D jusqu'à la fin du tableau.
Range("M13:M13" & DLig).Formula = "=C13-D13"
End Sub

La dedans, [DLig] contient bien mes 138 lignes mais une fois exécuté, je me retrouve avec 13098 ligne.
Alors que je n'ai aucune entrée plus bas.
Quand je fais pas-à-pas l'exécution de la Macro, j'ai bien "138" lignes dans DLig.
À n'y rien comprendre.

Merci pour votre aide.

Mr.Anime

[BENNASR]

bonjour
aussi autodidacte donc méfiez de mez propositions : pour soustraire C de D et le résultat en M :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub test()
Dim DLig As Long
Dim J As Integer
' Récupérer la dernière ligne du tableau
DLig = Range("B" & Rows.Count).End(xlUp).Row
For J = 2 To DLig
' Faire soustraction dela colonne C et D jusqu'à la fin du tableau.
Range("M" & J) = Range("C" & J) - Range("D" & J)
Next J
 
End Sub

[Mr.Anime]

Merci pour ta proposition mais malheureusement cela ne résout pas mon problème, il survient toujours.
En résumé mon

Code :

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

DLig = Range("B" & Rows.Count).End(xlUp).Row

Compte bien 193 lignes mais après la ligne

Code :

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

Range("M13:M13" & DLig).Formula = "=C13-D13"

le calcule du .Formula s'arrête a la ligne 13198.

De ce fait je penses que l'erreur vient de la ligne avec le .Formula mais comment régler ce cas ? Je n'ai pas encore trouvé.

[BENNASR]

remplce ça :

Code :

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

Range("M13:M13" & DLig).Formula = "=C13-D13"

par

Code :

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

Range("M13:M" & DLig).Formula = "=C13-D13"

[Mr.Anime]

YES !

Merci pour ton aide
J'ai trouvé la solution et en revenant sur le forum j'ai vu ta réponse qui est exactement la même ^^

Merci bien Bennasr.

Bonne journée à vous tous

[Menhir]

Code :

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

Range("M13:M13" & DLig).Formula = "=C13-D13"

La dedans, [DLig] contient bien mes 138 lignes mais une fois exécuté, je me retrouve avec 13098 ligne.

A mon avis, tu te retrouves même avec 13138 lignes.

Parce que, si DLig = 138, alors [C]M13 & DLig[/CODE] est égal à M13138.

Il y a un "13" de trop qui traine, sans doute à cause d'un copier/coller mal nettoyé.

Remplace cette ligne par la ligne suivante et ça devrait s'arranger :

Code :

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

Range("M13:M" & DLig).Formula = "=C13-D13"