Associer une cellule excel à une macro

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:

---

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.

Bonjour Gregory

Une façon quie je règlerais ce problème serait d'utiliser le Traget.row.

T'appele ta routine avec l'entrée de la donnée dans ta cellule.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub Entree01_application_inputbox(ByVal Target as Range) Dim Ligne as integer Dim donnée As Integer Ligne = target.row ' cela donne la valeur de la ligne où se trouve ta cellule donnée = Application.InputBox("De combien souhaitez-vous AUGMENTER le stock FIBRE DE VERRE ?", Type:=1) cells(Ligne, 4) = cells(Ligne, 4) + Donnée '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 cells(Ligne, 4) = cells(Ligne, 4) - Donnée 'Range("c4").Value = Range("C4").Value - donnée Case 2 cells(Ligne, 4) = cells(Ligne, 4) - Donnée ,Range("c4").Value = Range("C4").Value - donnée donnée = Application.InputBox("De combien souhaitez-vous AUGMENTER le stock ! FIBRE DE VERRE ! ?", Type:=1) cells(Ligne, 4) = cells(Ligne, 4) + Donnée 'Range("c4").Value = Range("C4").Value + donnée End Select End If End Sub

---

Essai les changements et revient nous si cela ne fonctionne pas.

Bon travail

malheureusement cela ne fonctionne pas code d'erreur : argument non facultatif

A quelle ligne s'arrête le programme ?

il ne demarre pas et je n'arrive pas à voir dans vba ou sa plante

Où se trouve ta macro ?

Est-ce que tu veux que ta macro soit activée automatiquement sur L'entrée de ta donnée ?

ma macro se trouve en B4 et oui je veut quelle s'active à la saisie d'une donnée

merci pour ta recherche

Bon il est plus facile d'activer une routine automatiquement si celle-ci se trourve dans la FEUILLE de ton classeur.

En utilisant la sub

Code:

---

Private Sub Worksheet_Change(ByVal Target As Range)

---

Ainsi lorsqu'il y aura un changement dans une des cellules de ta feuille la routine s'activera. Tu auras à identifier si la cellule que tu veux gérer est bien celle qui a eu un changement.

Ok merci je vais tester