Problème Rows.Count Tableau

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:

---

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. :calim2:

Merci pour votre aide.

Mr.Anime

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

Code:

---

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

---

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

Code:

---

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

---

Compte bien 193 lignes mais après la ligne

Code:

---

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é. :weird:

remplce ça :

Code:

---

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

---

par

Code:

---

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

---

YES !

Merci pour ton aide :chin:
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

Citation:

---

Envoyé par Mr.Anime

Code:

---

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:

---

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

---