Discussion :

[gregory.d]

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.

[Bugzy1963]

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 :

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
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

[gregory.d]

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

[Bugzy1963]

A quelle ligne s'arrête le programme ?

[gregory.d]

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

[Bugzy1963]

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 ?

[gregory.d]

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

merci pour ta recherche

[Bugzy1963]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[gregory.d]

Ok merci je vais tester