Fixer des cellules dans une macro

Question

Bonjour, 

J'ai une macro (ci dessous) qui lance le calcul d'un cout de stockage
quand certain cellule change. Comment est ce que je pourrais fixer les
cellules car quand je rajoute une ligne dans mon classeur, ma macro ne
fonctionne plus car au lieu de prendre H206, je devrai prendre H 207
etc...





Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address "$H$206" Or Target.Address "$H$207"  Then

If Target.Value <> "" Then Range("B213") = coutstockage

If Target.Value "" Then Range("B213") "0"

If Target.Value "_" Then Range("B213") "0"



End If

If Target.Address "$B$143" Or Target.Address "$B$144" Or Target.Address = "$H$144" Or Target.Address = "$H$143" Then



command1_click

End If

End Sub





Je rencontre le meme probleme avec une autre macro o&#249; les cellules sont appel&#233; par :

nb = Sheets("D1").Cells(201, 2)



Que dois-je rajouter?



Merci d'avance 

Lyly

boulacmoi · Answer

Peut &#234;tre que cela t'aidera

Il faudrait que tu dise a ta macro de s&#233;l&#233;ctionner une cellule de ta premiere ligne
Ensuite avec Selection.End(xlDown).Select tu te retrouveras a la derniere ligne ou tu as &#233;cris quelque chose, tu pourras r&#233;cup&#233;rer comme &#231;a quel est ta derniere ligne

Fixer des cellules dans une macro

1 réponse

Discussions similaires