[VBA-E] Incrémentation automatique d'une valeur suite à l'insertion de ligne

Bonjour,

J'ai une cellule A1 qui contient le numéro de ligne d'une autre cellule qui est passé comme paramètre à un sub.
Lorsque j'insère une nouvelle ligne, je suis obligé d'incrémenter le contenu de
A1 par 1.
Est ce il y a une possibilité de l'incrémenter automatiquement suite à l'insertion d'une ligne ?

Merci.

Par soft, tu peux faire

Code:

---

Cells(1, 1) = Range("A1").SpecialCells(xlCellTypeLastCell).Row

---

Dans Excel, chaispas :(
A+

Normalement Excel te modifie ta formule automatiquement. Si tu as une formule du genre =LIGNE(A18) en A1 et que tu insères une ligne entre la ligne 1 et 18, la formule de A1 devient =LIGNE(A19).
En revanche dans VBA, ça ne le fait pas. Du coup, perso, je nomme ma cellule A18 et je l'appelle dans ma procédure avec

Code:

---

NumeroLigneCelluleToto=Range("NomCellule").Row

---

, comme ça j'ai pas à me soucier des insertions de lignes

Merci cwai, ton idée est bonne mais comment récupère-t-il le N° de la dernière ligne dans A1 ? Faudrait qu'il mette une formule "=Ligne" dans la dernière ligne et je ne suis pas sûr qu'il puisse faire ça ;)
A+

Heu, en fait je comprends pas trop la question :aie: , j'ai pas compris qu' abdelghani_k voulait faire quelque chose avec la dernière ligne ??

T'as raison, moi non plus je n'ai pas trop compris la question... :mouarf:
C'est cette ligne qui m'a "insufflé" ma réponse

Citation:

---

Est ce il y a une possibilité de l'incrémenter automatiquement suite à l'insertion d'une ligne ?

---

mais dans le fond, je ne sais pas... Je crois qu'on devrait attendre que abdelghani_k il se manifeste de nouveau ;)
A+

Une possibilité:
Dans A1, mettre la formule

Code:

---

=A20

---

par exemple.

Dans le code, pour faire référence à la ligne 20 en allant chercher le contenu de A1:

Code:

---

MsgBox Range(Mid([A1].Formula, 2)).Row

---

Quelque soit le nombre de lignes que tu insères entre A1 et A20, l'adresse renvoyée sera toujours la bonne.

Une autre méthode serait de nommer la cellule de référence.
Plus besoin de garder sa position en A1.

Code:

---

MsgBox Range(Split(ActiveWorkbook.Names.Item("UnNom").RefersTo, "!")(1)).Row

---

Salut,

j'éclaircis mon problème :

sur la feuille du classeur excel,
contenu A1 = coordonée impot.
contenu B1 = 10 (Ligne cellule qui contient le résultat impot)
contenu C1 = 2 (Colonne cellule impot)

Cellule(10,2)=B10

contenu A10 : impot.
contenu B10 = 215 (résultat sub calculimpot)
voici calculimpot :

Code:

---

1 2 3 4 5 6 7 8 9

Sub calculimpot (L As Integer, C As Integer) 'L est la ligne de la cellule qui contient le resultat de calcul 'C est sa colonne ... RESULTAT= expression ... Worksheets(Sheet).Cells(L, C).Value = RESULTAT End Sub

---

Je fais un appel à calculimpot comme suit :

Code:

---

1 2	calculimpot Range("B1").Value, Range("C1").Value

---

défois je suis obligé d'insérer des lignes pour d'autres charges autres que impot.

si on insère une ligne avant la ligne d'impot donc :

contenu B1 = 10
contenu C1 = 2

contenu A10 = vide
contenu B10 = vide

contenu A11 : impot.
contenu B11 = 215

Je veux que le contenu de B1 s'incrémente automatiquement parceque B1 va contenir 11 et non pas 10 aprés l'insertion d'une ligne.
Mais je le fais manuellement.

Merci de votre collaboration.

As-tu lu (et essayé) ce que j'ai écrit?

Citation:

---

Du coup, perso, je nomme ma cellule A18 et je l'appelle dans ma procédure avec
Code :
NumeroLigneCelluleToto=Range("NomCellule").Row
, comme ça j'ai pas à me soucier des insertions de lignes

---

Citation:

---

Une autre méthode serait de nommer la cellule de référence.
Plus besoin de garder sa position en A1.
Code :

MsgBox Range(Split(ActiveWorkbook.Names.Item("UnNom").RefersTo, "!")(1)).Row

---

Nomme ta cellule impôt puis tu y fais appel comme suit :

Code:

---

Range("IMPOT").Value = RESULTAT

---

Pour nommer ta cellule dans Excel, tu cliques dessus, et à gauche de la barre de fonction (fx), tu remplaces B10 par IMPOT ou le nom que tu veux