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 J'aimerais faire A1=A1+B1

J'aimerais faire A1=A1+B1

20 réponses
Avatar
nicolas
j'aimerais faire une somme cumulé dans une case, des chiffres que je tappe
dans une autre case.

Quand je veux le faire, il dit qu'il y a une référence circulaire.

Je crois que je doit faire sa avec une macro, mais j'y connais pas grand
choses.

Je connais un peux le c et le fortran (avec les function et subroutine)

Je dois crée une nouvelle macro ou cette fonction existe deja?
Signaler un problème avec ce contenu

10 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
1 2
Avatar
nicolas
J'ai utiliser la methode de remplacer "selection change" par "change"

et j'ai alors une erreur de compilation: nom ambigu detecté:
worksheet_change

j'ai eut qque cours d'excel cette année mais on c'est arreter aux fonctions
:(

"ru-th" a écrit dans le message de news:

C'est une procédure événementielle
dans excel
alt-F11 pour passer dans l'éditeur VBE
dans la petite fenêtre à gauche, project VBAproject, double-clic sur la
feuille qui contient tes données
ou clic droit dessus code

Dans la fenêtre centrale,
au lieu de "général" sélectionner worksheet
soit tu colles la macro
soit tu choisis l'évenement change à la place de "selection change"
et à l'intérieur du bloc
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Tu colles les lignes de codes
End Sub

maintenant quelques commentaires
'l'évenement est le changement de la cellule active ici target
Private Sub Worksheet_Change(ByVal Target As Range)
'si la cellule active est dans la zone A1:B1
If Not Intersect(Target, [A1:B1]) Is Nothing Then
'On stoppe les évenements pour ne pas boucler indéfiniment
'A1+B1 provocant lui un recalcul qui relancera cette procédure
Application.EnableEvents = False
'on additionne
[A1] = [A1+B1]
'on relance le mode évenmentiel
Application.EnableEvents = True
'fin condition
End If
End Sub
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"nicolas" a écrit dans le message de
news:O$$
je fais une nouvelle macro, puis je lance visual basic editor
la je met le code ci-dedous dans module1
ensuite que dois-je faire?
"ru-th" a écrit dans le message de news:

Salut

dans le module de la feuille concernée

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1:B1]) Is Nothing Then
Application.EnableEvents = False
[A1] = [A1+B1]
Application.EnableEvents = True
End If
End Sub

--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"nicolas" a écrit dans le message de
news:
j'aimerais faire une somme cumulé dans une case, des chiffres que je
tappe
dans une autre case.

Quand je veux le faire, il dit qu'il y a une référence circulaire.

Je crois que je doit faire sa avec une macro, mais j'y connais pas
grand



choses.

Je connais un peux le c et le fortran (avec les function et
subroutine)

Je dois crée une nouvelle macro ou cette fonction existe deja?
















Avatar
nicolas
ok avec l'entrée sur B sa marche.

Maintenant j'aimerais savoir faire sa sur 2 colonnes.

Autre question: pour utiliser le fichier sur une autre machine, je dois
juste copier le .xls ou à cause de la macro je dois copier autre choses?

merci

"LeSteph" a écrit dans le message de news:
%
Rebnsoir
si le fichier de thierry marche
mais l'entrée est sur la cellule B
j'envoie l'essai que j'en ai fait sur ta bal.

LeSteph

"nicolas" a écrit dans le message de
news:
J'ai fait exactement ce qui est marquer 2 fois et sa marche pas (avec un
nouveau fichier xls pour etre sur)

quand je met un chiffre dans a1, il l'additionne pas a b1

J'ai l'impresion que la macro est pas activer (mais sa veux sans doute
rien

dire vu que j'y connais rien)
et tout cas merci bcp d'essayer de m'aider.

"LeSteph" a écrit dans le message de news:
%
Bonsoir,
non c'est une private sub
que thierry t'a donné
pas dans module1
dans le module de feuil1:
Ouvrir VBE alt+f11
puis afficher l'Explorateur de projet Ctrl+r
DblClic sur Feuil1 de l'explorateur de projet
le module de feuille apparaît
coller le code.
refermer Vba
et entrer les valeurs dans feuil1

leSteph

"nicolas" a écrit dans le message de
news:O$$
je fais une nouvelle macro, puis je lance visual basic editor
la je met le code ci-dedous dans module1
ensuite que dois-je faire?
"ru-th" a écrit dans le message de news:

Salut

dans le module de la feuille concernée

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1:B1]) Is Nothing Then
Application.EnableEvents = False
[A1] = [A1+B1]
Application.EnableEvents = True
End If
End Sub

--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"nicolas" a écrit dans le message de
news:
j'aimerais faire une somme cumulé dans une case, des chiffres que
je
tappe
dans une autre case.

Quand je veux le faire, il dit qu'il y a une référence circulaire.

Je crois que je doit faire sa avec une macro, mais j'y connais pas
grand



choses.

Je connais un peux le c et le fortran (avec les function et
subroutine)

Je dois crée une nouvelle macro ou cette fonction existe deja?
























Avatar
LeSteph
Tout à fait! Juste le xls c'est suffisant
(il embarque ses macros avec lui et idem si copie)
sinon pour les deux colonnes précises un peu plus...




"nicolas" a écrit dans le message de
news:O%
ok avec l'entrée sur B sa marche.

Maintenant j'aimerais savoir faire sa sur 2 colonnes.

Autre question: pour utiliser le fichier sur une autre machine, je dois
juste copier le .xls ou à cause de la macro je dois copier autre choses?

merci

"LeSteph" a écrit dans le message de news:
%
Rebnsoir
si le fichier de thierry marche
mais l'entrée est sur la cellule B
j'envoie l'essai que j'en ai fait sur ta bal.

LeSteph

"nicolas" a écrit dans le message de
news:
J'ai fait exactement ce qui est marquer 2 fois et sa marche pas (avec
un



nouveau fichier xls pour etre sur)

quand je met un chiffre dans a1, il l'additionne pas a b1

J'ai l'impresion que la macro est pas activer (mais sa veux sans doute
rien

dire vu que j'y connais rien)
et tout cas merci bcp d'essayer de m'aider.

"LeSteph" a écrit dans le message de news:
%
Bonsoir,
non c'est une private sub
que thierry t'a donné
pas dans module1
dans le module de feuil1:
Ouvrir VBE alt+f11
puis afficher l'Explorateur de projet Ctrl+r
DblClic sur Feuil1 de l'explorateur de projet
le module de feuille apparaît
coller le code.
refermer Vba
et entrer les valeurs dans feuil1

leSteph

"nicolas" a écrit dans le message de
news:O$$
je fais une nouvelle macro, puis je lance visual basic editor
la je met le code ci-dedous dans module1
ensuite que dois-je faire?
"ru-th" a écrit dans le message de news:

Salut

dans le module de la feuille concernée

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1:B1]) Is Nothing Then
Application.EnableEvents = False
[A1] = [A1+B1]
Application.EnableEvents = True
End If
End Sub

--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"nicolas" a écrit dans le message de
news:
j'aimerais faire une somme cumulé dans une case, des chiffres que
je
tappe
dans une autre case.

Quand je veux le faire, il dit qu'il y a une référence
circulaire.








Je crois que je doit faire sa avec une macro, mais j'y connais
pas







grand
choses.

Je connais un peux le c et le fortran (avec les function et
subroutine)

Je dois crée une nouvelle macro ou cette fonction existe deja?




























Avatar
nicolas
J'aimerais que quand je met un chiffre dans une cellule de le colonne A par
exemple, cela s'ajoute a la case correspondante B

exemple je tape 10 dans A20 --> B20 s'incremente de 10
et si je tape 50 dans A3 --> B3 s'incremente de 3

ps: exel trouve mes (enfin plutot vos) macro trop dangeureuse. LOL

"LeSteph" a écrit dans le message de news:
%
Tout à fait! Juste le xls c'est suffisant
(il embarque ses macros avec lui et idem si copie)
sinon pour les deux colonnes précises un peu plus...




"nicolas" a écrit dans le message de
news:O%
ok avec l'entrée sur B sa marche.

Maintenant j'aimerais savoir faire sa sur 2 colonnes.

Autre question: pour utiliser le fichier sur une autre machine, je dois
juste copier le .xls ou à cause de la macro je dois copier autre choses?

merci

"LeSteph" a écrit dans le message de news:
%
Rebnsoir
si le fichier de thierry marche
mais l'entrée est sur la cellule B
j'envoie l'essai que j'en ai fait sur ta bal.

LeSteph

"nicolas" a écrit dans le message de
news:
J'ai fait exactement ce qui est marquer 2 fois et sa marche pas (avec
un



nouveau fichier xls pour etre sur)

quand je met un chiffre dans a1, il l'additionne pas a b1

J'ai l'impresion que la macro est pas activer (mais sa veux sans doute
rien

dire vu que j'y connais rien)
et tout cas merci bcp d'essayer de m'aider.

"LeSteph" a écrit dans le message de news:
%
Bonsoir,
non c'est une private sub
que thierry t'a donné
pas dans module1
dans le module de feuil1:
Ouvrir VBE alt+f11
puis afficher l'Explorateur de projet Ctrl+r
DblClic sur Feuil1 de l'explorateur de projet
le module de feuille apparaît
coller le code.
refermer Vba
et entrer les valeurs dans feuil1

leSteph

"nicolas" a écrit dans le message de
news:O$$
je fais une nouvelle macro, puis je lance visual basic editor
la je met le code ci-dedous dans module1
ensuite que dois-je faire?
"ru-th" a écrit dans le message de news:

Salut

dans le module de la feuille concernée

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1:B1]) Is Nothing Then
Application.EnableEvents = False
[A1] = [A1+B1]
Application.EnableEvents = True
End If
End Sub

--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"nicolas" a écrit dans le message
de
news:
j'aimerais faire une somme cumulé dans une case, des chiffres
que
je
tappe
dans une autre case.

Quand je veux le faire, il dit qu'il y a une référence
circulaire.








Je crois que je doit faire sa avec une macro, mais j'y connais
pas







grand
choses.

Je connais un peux le c et le fortran (avec les function et
subroutine)

Je dois crée une nouvelle macro ou cette fonction existe deja?
































Avatar
nicolas
OK j'y suis arrivé avec la formul que a donnée thierry plus haut.

Merci bcp a vous 2

J'ai bien passé 2h à cherché à le faire avec une fonction avant de me rendre
compte que c'est impossible

Bref je suis tout fou :D

merci a lot very much ++
"LeSteph" a écrit dans le message de news:
%
Tout à fait! Juste le xls c'est suffisant
(il embarque ses macros avec lui et idem si copie)
sinon pour les deux colonnes précises un peu plus...




"nicolas" a écrit dans le message de
news:O%
ok avec l'entrée sur B sa marche.

Maintenant j'aimerais savoir faire sa sur 2 colonnes.

Autre question: pour utiliser le fichier sur une autre machine, je dois
juste copier le .xls ou à cause de la macro je dois copier autre choses?

merci

"LeSteph" a écrit dans le message de news:
%
Rebnsoir
si le fichier de thierry marche
mais l'entrée est sur la cellule B
j'envoie l'essai que j'en ai fait sur ta bal.

LeSteph

"nicolas" a écrit dans le message de
news:
J'ai fait exactement ce qui est marquer 2 fois et sa marche pas (avec
un



nouveau fichier xls pour etre sur)

quand je met un chiffre dans a1, il l'additionne pas a b1

J'ai l'impresion que la macro est pas activer (mais sa veux sans doute
rien

dire vu que j'y connais rien)
et tout cas merci bcp d'essayer de m'aider.

"LeSteph" a écrit dans le message de news:
%
Bonsoir,
non c'est une private sub
que thierry t'a donné
pas dans module1
dans le module de feuil1:
Ouvrir VBE alt+f11
puis afficher l'Explorateur de projet Ctrl+r
DblClic sur Feuil1 de l'explorateur de projet
le module de feuille apparaît
coller le code.
refermer Vba
et entrer les valeurs dans feuil1

leSteph

"nicolas" a écrit dans le message de
news:O$$
je fais une nouvelle macro, puis je lance visual basic editor
la je met le code ci-dedous dans module1
ensuite que dois-je faire?
"ru-th" a écrit dans le message de news:

Salut

dans le module de la feuille concernée

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1:B1]) Is Nothing Then
Application.EnableEvents = False
[A1] = [A1+B1]
Application.EnableEvents = True
End If
End Sub

--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"nicolas" a écrit dans le message
de
news:
j'aimerais faire une somme cumulé dans une case, des chiffres
que
je
tappe
dans une autre case.

Quand je veux le faire, il dit qu'il y a une référence
circulaire.








Je crois que je doit faire sa avec une macro, mais j'y connais
pas







grand
choses.

Je connais un peux le c et le fortran (avec les function et
subroutine)

Je dois crée une nouvelle macro ou cette fonction existe deja?
































Avatar
LeSteph
ps: exel trouve mes (enfin plutot vos) macro trop dangeureuse. LOL
Tu veux sans doute parler de l'avertissement de sécurité à l'ouverture


si tu sais que la source est fiable tu réponds activer les macros,
c'est juste une sécurité mauis qui peut éviter des malveillance.
J'aimerais que quand je met un chiffre dans une cellule de le colonne A
par

exemple, cela s'ajoute a la case correspondante B
C'est déjà le cas , à ceci près que c'est l'entrée en b et le cumul en A

mais tu peux faire un tour dans le code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
tu notes target est la cible de détection de l'évennement de


feuille(Worksheet) Change
Ici c'est 2 donc la colonne B
Ensuite on désactive la détection d'évennement :
Application.EnableEvents = False
pour modifier sans problème la valeur de Cell(ligne,colonne)


tu noteras que la ligne est désignée par celle de target
Cells(Target.Row, 1) = Cells(Target.Row, 1) + Cells(Target.Row, 2)
puis on réactive la détection d'évennement.


Application.EnableEvents = True
.....


Je te laisse réfléchir à tout cela .
reviendrais faire un tour demain
Bonne nuit

LeSteph
"nicolas" a écrit dans le message de
news:
J'aimerais que quand je met un chiffre dans une cellule de le colonne A
par

exemple, cela s'ajoute a la case correspondante B

exemple je tape 10 dans A20 --> B20 s'incremente de 10
et si je tape 50 dans A3 --> B3 s'incremente de 3

ps: exel trouve mes (enfin plutot vos) macro trop dangeureuse. LOL

"LeSteph" a écrit dans le message de news:
%
Tout à fait! Juste le xls c'est suffisant
(il embarque ses macros avec lui et idem si copie)
sinon pour les deux colonnes précises un peu plus...




"nicolas" a écrit dans le message de
news:O%
ok avec l'entrée sur B sa marche.

Maintenant j'aimerais savoir faire sa sur 2 colonnes.

Autre question: pour utiliser le fichier sur une autre machine, je dois
juste copier le .xls ou à cause de la macro je dois copier autre
choses?




merci

"LeSteph" a écrit dans le message de news:
%
Rebnsoir
si le fichier de thierry marche
mais l'entrée est sur la cellule B
j'envoie l'essai que j'en ai fait sur ta bal.

LeSteph

"nicolas" a écrit dans le message de
news:
J'ai fait exactement ce qui est marquer 2 fois et sa marche pas
(avec





un
nouveau fichier xls pour etre sur)

quand je met un chiffre dans a1, il l'additionne pas a b1

J'ai l'impresion que la macro est pas activer (mais sa veux sans
doute





rien
dire vu que j'y connais rien)
et tout cas merci bcp d'essayer de m'aider.

"LeSteph" a écrit dans le message de news:
%
Bonsoir,
non c'est une private sub
que thierry t'a donné
pas dans module1
dans le module de feuil1:
Ouvrir VBE alt+f11
puis afficher l'Explorateur de projet Ctrl+r
DblClic sur Feuil1 de l'explorateur de projet
le module de feuille apparaît
coller le code.
refermer Vba
et entrer les valeurs dans feuil1

leSteph

"nicolas" a écrit dans le message de
news:O$$
je fais une nouvelle macro, puis je lance visual basic editor
la je met le code ci-dedous dans module1
ensuite que dois-je faire?
"ru-th" a écrit dans le message de news:

Salut

dans le module de la feuille concernée

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1:B1]) Is Nothing Then
Application.EnableEvents = False
[A1] = [A1+B1]
Application.EnableEvents = True
End If
End Sub

--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"nicolas" a écrit dans le message
de
news:
j'aimerais faire une somme cumulé dans une case, des chiffres
que
je
tappe
dans une autre case.

Quand je veux le faire, il dit qu'il y a une référence
circulaire.








Je crois que je doit faire sa avec une macro, mais j'y connais
pas







grand
choses.

Je connais un peux le c et le fortran (avec les function et
subroutine)

Je dois crée une nouvelle macro ou cette fonction existe deja?




































Avatar
nicolas
Merci samarche, mais losrque que je veux utiliser plusieur fois cette
formule pour la meme feuille

exemple pour ajouter la colonne 5 à la colonne 6 et la colonne 7 à la
colonne 8

J'ai une erreur de type
nom ambigue detecté : Worksheet_change

J'ai ajouter un 2 a la fin de Worksheet_change mais cela n'a rien changer a
part que je n'ai plus d'erreur mais cela ne marche pas.

merci

"ru-th" a écrit dans le message de news:
uM%
re-
qu'entends-tu par subroutine ?
veux tu dire que chaque fois que tu tapes un chiffre dans une colonne, la
colonne d'à côté s'incrémente ?
Exemple, chaque que fois qu'on tapes un chiffre dans la colonne B cela
incrémente la ligne de la colonne A
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Application.EnableEvents = False
Cells(Target.Row, 1) = Cells(Target.Row, 1) + Cells(Target.Row, 2)
Application.EnableEvents = True
End If
End Sub

ou.....

autre chose .....

dans l'attente
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"nicolas" a écrit dans le message de
news:
Je passe quoi comme parametre a la subroutine?
"ru-th" a écrit dans le message de news:

Salut

dans le module de la feuille concernée

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1:B1]) Is Nothing Then
Application.EnableEvents = False
[A1] = [A1+B1]
Application.EnableEvents = True
End If
End Sub

--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"nicolas" a écrit dans le message de
news:
j'aimerais faire une somme cumulé dans une case, des chiffres que je
tappe
dans une autre case.

Quand je veux le faire, il dit qu'il y a une référence circulaire.

Je crois que je doit faire sa avec une macro, mais j'y connais pas
grand



choses.

Je connais un peux le c et le fortran (avec les function et
subroutine)

Je dois crée une nouvelle macro ou cette fonction existe deja?
















Avatar
nicolas
Bon voila sa marche comme sur des roulette.

Merci a vous.
Vous etes pro.

MERCI BCP BCP @+
"nicolas" a écrit dans le message de news:

j'aimerais faire une somme cumulé dans une case, des chiffres que je tappe
dans une autre case.

Quand je veux le faire, il dit qu'il y a une référence circulaire.

Je crois que je doit faire sa avec une macro, mais j'y connais pas grand
choses.

Je connais un peux le c et le fortran (avec les function et subroutine)

Je dois crée une nouvelle macro ou cette fonction existe deja?



Avatar
LeSteph
Bonjour,
Il faut que tu intègre en un seul Worksheet change
car cet évennement est unique que ce soit b1 ou g4
qui le provoque, traduire : "la feuille change"!
Donc if permet de conditionner target
(ou un Select Case s'il y en a beaucoup)
...
If target.column=2 then
....
else
if target.column=7 then
...

LeSteph

"nicolas" a écrit dans le message de
news:
Merci samarche, mais losrque que je veux utiliser plusieur fois cette
formule pour la meme feuille

exemple pour ajouter la colonne 5 à la colonne 6 et la colonne 7 à la
colonne 8

J'ai une erreur de type
nom ambigue detecté : Worksheet_change

J'ai ajouter un 2 a la fin de Worksheet_change mais cela n'a rien changer
a

part que je n'ai plus d'erreur mais cela ne marche pas.

merci

"ru-th" a écrit dans le message de news:
uM%
re-
qu'entends-tu par subroutine ?
veux tu dire que chaque fois que tu tapes un chiffre dans une colonne,
la


colonne d'à côté s'incrémente ?
Exemple, chaque que fois qu'on tapes un chiffre dans la colonne B cela
incrémente la ligne de la colonne A
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Application.EnableEvents = False
Cells(Target.Row, 1) = Cells(Target.Row, 1) + Cells(Target.Row, 2)
Application.EnableEvents = True
End If
End Sub

ou.....

autre chose .....

dans l'attente
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"nicolas" a écrit dans le message de
news:
Je passe quoi comme parametre a la subroutine?
"ru-th" a écrit dans le message de news:

Salut

dans le module de la feuille concernée

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1:B1]) Is Nothing Then
Application.EnableEvents = False
[A1] = [A1+B1]
Application.EnableEvents = True
End If
End Sub

--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"nicolas" a écrit dans le message de
news:
j'aimerais faire une somme cumulé dans une case, des chiffres que je
tappe
dans une autre case.

Quand je veux le faire, il dit qu'il y a une référence circulaire.

Je crois que je doit faire sa avec une macro, mais j'y connais pas
grand



choses.

Je connais un peux le c et le fortran (avec les function et
subroutine)

Je dois crée une nouvelle macro ou cette fonction existe deja?




















Avatar
ru-th
re

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 5 or Target.Column = 7 Then
Application.EnableEvents = False
Cells(Target.Row, target.column) = Cells(Target.Row, target.column) +
Cells(Target.Row, target.column+1)
Application.EnableEvents = True
End If
End Sub
a+
rural thierry
"nicolas" a écrit dans le message de news:

Merci samarche, mais losrque que je veux utiliser plusieur fois cette
formule pour la meme feuille

exemple pour ajouter la colonne 5 à la colonne 6 et la colonne 7 à la
colonne 8

J'ai une erreur de type
nom ambigue detecté : Worksheet_change

J'ai ajouter un 2 a la fin de Worksheet_change mais cela n'a rien changer
a

part que je n'ai plus d'erreur mais cela ne marche pas.

merci

"ru-th" a écrit dans le message de news:
uM%
re-
qu'entends-tu par subroutine ?
veux tu dire que chaque fois que tu tapes un chiffre dans une colonne,
la


colonne d'à côté s'incrémente ?
Exemple, chaque que fois qu'on tapes un chiffre dans la colonne B cela
incrémente la ligne de la colonne A
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Application.EnableEvents = False
Cells(Target.Row, 1) = Cells(Target.Row, 1) + Cells(Target.Row, 2)
Application.EnableEvents = True
End If
End Sub

ou.....

autre chose .....

dans l'attente
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"nicolas" a écrit dans le message de
news:
Je passe quoi comme parametre a la subroutine?
"ru-th" a écrit dans le message de news:

Salut

dans le module de la feuille concernée

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1:B1]) Is Nothing Then
Application.EnableEvents = False
[A1] = [A1+B1]
Application.EnableEvents = True
End If
End Sub

--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"nicolas" a écrit dans le message de
news:
j'aimerais faire une somme cumulé dans une case, des chiffres que je
tappe
dans une autre case.

Quand je veux le faire, il dit qu'il y a une référence circulaire.

Je crois que je doit faire sa avec une macro, mais j'y connais pas
grand



choses.

Je connais un peux le c et le fortran (avec les function et
subroutine)

Je dois crée une nouvelle macro ou cette fonction existe deja?




















1 2