Bonjour,

Dans une feuille excel, j'ai diverses macro associées à diverses cellules pour effectuer des calculs mais lorsque je rajoute une ligne ou une colonne la macro ne se decalle pas avec la ligne. 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
14
15
16
17
18
19
20
 
Sub Entree01_application_inputbox()
Dim donnée As Integer
donnée = Application.InputBox("De combien souhaitez-vous AUGMENTER le stock FIBRE DE VERRE ?", Type:=1)
Range("c4").Value = Range("C4").Value + donnée
If donnée > 100 Then
traiteerreur:
Dim reponse As Integer
reponse = MsgBox("Confirmez-vous la donnée superieure à 100 unitées ?", 35, "Attention !")
Select Case reponse
Case 6
Case 7
Range("c4").Value = Range("C4").Value - donnée
Case 2
Range("c4").Value = Range("C4").Value - donnée
donnée = Application.InputBox("De combien souhaitez-vous AUGMENTER le stock ! FIBRE DE VERRE ! ?", Type:=1)
Range("c4").Value = Range("C4").Value + donnée
End Select
End If
End Sub


Le problème est sur mon "range C4" quand je rajoute une ligne il reste C4 et je veut qu'il devienne c5?

merci de votre aide.