Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel vba

vba

6 réponses
Avatar
lolo
j'ai mis ceci dans le module de feuille "vn"
j'aimerais que cela s'applique a d'autre cellule que ka d6 comment dois je
faire pour recopier ?

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
>> > If Target.Address <> "$D$6" Then Exit Sub
>> > [d6] = Application.Sum([a6:c6])
>> > s = Val(InputBox("Entrez le montant à déduire", "Montant"))
>> > If s = 0 Then
>> > Exit Sub
>> > Else
>> > [d6] = [d6] - s
>> > End If
>> > End Sub
>> > '----------
>> > JJ
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel
Pour déclencher l'évènement en colonne A :
If Intersect(Columns(1), Target) Is Nothing Then Exit Sub
A la place de :
If Target.Address <> "$D$6" Then Exit Sub
Cordialement.
Daniel
"lolo" a écrit dans le message de news:
434e1243$0$630$
j'ai mis ceci dans le module de feuille "vn"
j'aimerais que cela s'applique a d'autre cellule que ka d6 comment dois je
faire pour recopier ?

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address <> "$D$6" Then Exit Sub
[d6] = Application.Sum([a6:c6])
s = Val(InputBox("Entrez le montant à déduire", "Montant"))
If s = 0 Then
Exit Sub
Else
[d6] = [d6] - s
End If
End Sub
'----------
JJ










Avatar
lolo
j'ai essaye mais je voudrais que cela se produis sur quelques celulle (10
environ) de la colonne et pas toutes !

salutations
laurent
"Daniel" a écrit dans le message de news:

Pour déclencher l'évènement en colonne A :
If Intersect(Columns(1), Target) Is Nothing Then Exit Sub
A la place de :
If Target.Address <> "$D$6" Then Exit Sub
Cordialement.
Daniel
"lolo" a écrit dans le message de news:
434e1243$0$630$
j'ai mis ceci dans le module de feuille "vn"
j'aimerais que cela s'applique a d'autre cellule que ka d6 comment dois
je faire pour recopier ?

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address <> "$D$6" Then Exit Sub
[d6] = Application.Sum([a6:c6])
s = Val(InputBox("Entrez le montant à déduire", "Montant"))
If s = 0 Then
Exit Sub
Else
[d6] = [d6] - s
End If
End Sub
'----------
JJ














Avatar
Daniel
If Intersect(Range("A1,B2,C3,D4"), Target) Is Nothing Then Exit Sub
Remplace Range("A1,B2,C3,D4") par les cellules de ton choix.
Daniel
"lolo" a écrit dans le message de news:
434e1aca$0$617$
j'ai essaye mais je voudrais que cela se produis sur quelques celulle (10
environ) de la colonne et pas toutes !

salutations
laurent
"Daniel" a écrit dans le message de news:

Pour déclencher l'évènement en colonne A :
If Intersect(Columns(1), Target) Is Nothing Then Exit Sub
A la place de :
If Target.Address <> "$D$6" Then Exit Sub
Cordialement.
Daniel
"lolo" a écrit dans le message de news:
434e1243$0$630$
j'ai mis ceci dans le module de feuille "vn"
j'aimerais que cela s'applique a d'autre cellule que ka d6 comment dois
je faire pour recopier ?

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address <> "$D$6" Then Exit Sub
[d6] = Application.Sum([a6:c6])
s = Val(InputBox("Entrez le montant à déduire", "Montant"))
If s = 0 Then
Exit Sub
Else
[d6] = [d6] - s
End If
End Sub
'----------
JJ


















Avatar
Jacky
Re...
If Intersect([$D$1:$D$6], Target) Is Nothing Then Exit Sub

JJ

"lolo" a écrit dans le message de
news:434e1aca$0$617$
j'ai essaye mais je voudrais que cela se produis sur quelques celulle (10
environ) de la colonne et pas toutes !

salutations
laurent
"Daniel" a écrit dans le message de news:

Pour déclencher l'évènement en colonne A :
If Intersect(Columns(1), Target) Is Nothing Then Exit Sub
A la place de :
If Target.Address <> "$D$6" Then Exit Sub
Cordialement.
Daniel
"lolo" a écrit dans le message de news:
434e1243$0$630$
j'ai mis ceci dans le module de feuille "vn"
j'aimerais que cela s'applique a d'autre cellule que ka d6 comment dois
je faire pour recopier ?

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address <> "$D$6" Then Exit Sub
[d6] = Application.Sum([a6:c6])
s = Val(InputBox("Entrez le montant à déduire", "Montant"))
If s = 0 Then
Exit Sub
Else
[d6] = [d6] - s
End If
End Sub
'----------
JJ


















Avatar
lolo
super ca fonctionne mais le probleme c'est qu'il faut que les cellules
correspondante soient modifiée aussi et pas seulement la d6
c6 modifie d6
c7 modifie d7
etc...

"Daniel" a écrit dans le message de news:

If Intersect(Range("A1,B2,C3,D4"), Target) Is Nothing Then Exit Sub
Remplace Range("A1,B2,C3,D4") par les cellules de ton choix.
Daniel
"lolo" a écrit dans le message de news:
434e1aca$0$617$
j'ai essaye mais je voudrais que cela se produis sur quelques celulle (10
environ) de la colonne et pas toutes !

salutations
laurent
"Daniel" a écrit dans le message de news:

Pour déclencher l'évènement en colonne A :
If Intersect(Columns(1), Target) Is Nothing Then Exit Sub
A la place de :
If Target.Address <> "$D$6" Then Exit Sub
Cordialement.
Daniel
"lolo" a écrit dans le message de news:
434e1243$0$630$
j'ai mis ceci dans le module de feuille "vn"
j'aimerais que cela s'applique a d'autre cellule que ka d6 comment dois
je faire pour recopier ?

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address <> "$D$6" Then Exit Sub
[d6] = Application.Sum([a6:c6])
s = Val(InputBox("Entrez le montant à déduire", "Montant"))
If s = 0 Then
Exit Sub
Else
[d6] = [d6] - s
End If
End Sub
'----------
JJ






















Avatar
Daniel
Remplace
[d6] = Application.Sum([a6:c6])
par
Target = Application.Sum(Range(Target.Offset(0, -3).Address & ":" &
Target.Offset(0, -1).Address))
Daniel
"lolo" a écrit dans le message de news:
434e215f$0$638$
super ca fonctionne mais le probleme c'est qu'il faut que les cellules
correspondante soient modifiée aussi et pas seulement la d6
c6 modifie d6
c7 modifie d7
etc...

"Daniel" a écrit dans le message de news:

If Intersect(Range("A1,B2,C3,D4"), Target) Is Nothing Then Exit Sub
Remplace Range("A1,B2,C3,D4") par les cellules de ton choix.
Daniel
"lolo" a écrit dans le message de news:
434e1aca$0$617$
j'ai essaye mais je voudrais que cela se produis sur quelques celulle
(10 environ) de la colonne et pas toutes !

salutations
laurent
"Daniel" a écrit dans le message de news:

Pour déclencher l'évènement en colonne A :
If Intersect(Columns(1), Target) Is Nothing Then Exit Sub
A la place de :
If Target.Address <> "$D$6" Then Exit Sub
Cordialement.
Daniel
"lolo" a écrit dans le message de news:
434e1243$0$630$
j'ai mis ceci dans le module de feuille "vn"
j'aimerais que cela s'applique a d'autre cellule que ka d6 comment
dois je faire pour recopier ?

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address <> "$D$6" Then Exit Sub
[d6] = Application.Sum([a6:c6])
s = Val(InputBox("Entrez le montant à déduire", "Montant"))
If s = 0 Then
Exit Sub
Else
[d6] = [d6] - s
End If
End Sub
'----------
JJ