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?
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?
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?
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?
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" <nicolas.urbain@caramail.com> a écrit dans le message de
news:ek1QZCelEHA.3428@TK2MSFTNGP11.phx.gbl...
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?
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?
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?
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" <nicolas.urbain@caramail.com> a écrit dans le message de
news:ek1QZCelEHA.3428@TK2MSFTNGP11.phx.gbl...
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?
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?
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?
Je passe quoi comme parametre a la subroutine?
"ru-th" <ailleurs@nowhere.fr> a écrit dans le message de news:
udSe3GelEHA.3452@TK2MSFTNGP15.phx.gbl...
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" <nicolas.urbain@caramail.com> a écrit dans le message de
news:ek1QZCelEHA.3428@TK2MSFTNGP11.phx.gbl...
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?
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?
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?
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" <ailleurs@nowhere.fr> a écrit dans le message de news:
udSe3GelEHA.3452@TK2MSFTNGP15.phx.gbl...
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" <nicolas.urbain@caramail.com> a écrit dans le message de
news:ek1QZCelEHA.3428@TK2MSFTNGP11.phx.gbl...
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?
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?
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?
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" <ailleurs@nowhere.fr> a écrit dans le message de news:
udSe3GelEHA.3452@TK2MSFTNGP15.phx.gbl...
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" <nicolas.urbain@caramail.com> a écrit dans le message de
news:ek1QZCelEHA.3428@TK2MSFTNGP11.phx.gbl...
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?
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?
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
grandchoses.
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?
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" <nicolas.urbain@caramail.com> a écrit dans le message de
news:O$$DPRelEHA.3876@TK2MSFTNGP15.phx.gbl...
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" <ailleurs@nowhere.fr> a écrit dans le message de news:
udSe3GelEHA.3452@TK2MSFTNGP15.phx.gbl...
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" <nicolas.urbain@caramail.com> a écrit dans le message de
news:ek1QZCelEHA.3428@TK2MSFTNGP11.phx.gbl...
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?
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
grandchoses.
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?
Ah!Pardon, Bonsoir Thierry
complèté aussi désolé..
leSteph
"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
grandchoses.
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?
Ah!Pardon, Bonsoir Thierry
complèté aussi désolé..
leSteph
"ru-th" <ailleurs@nowhere.fr> a écrit dans le message de
news:OyIR1delEHA.896@TK2MSFTNGP12.phx.gbl...
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" <nicolas.urbain@caramail.com> a écrit dans le message de
news:O$$DPRelEHA.3876@TK2MSFTNGP15.phx.gbl...
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" <ailleurs@nowhere.fr> a écrit dans le message de news:
udSe3GelEHA.3452@TK2MSFTNGP15.phx.gbl...
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" <nicolas.urbain@caramail.com> a écrit dans le message de
news:ek1QZCelEHA.3428@TK2MSFTNGP11.phx.gbl...
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?
Ah!Pardon, Bonsoir Thierry
complèté aussi désolé..
leSteph
"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
grandchoses.
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?
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
grandchoses.
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?
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" <nicolas.urbain@caramail.com> a écrit dans le message de
news:O$$DPRelEHA.3876@TK2MSFTNGP15.phx.gbl...
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" <ailleurs@nowhere.fr> a écrit dans le message de news:
udSe3GelEHA.3452@TK2MSFTNGP15.phx.gbl...
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" <nicolas.urbain@caramail.com> a écrit dans le message de
news:ek1QZCelEHA.3428@TK2MSFTNGP11.phx.gbl...
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?
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
grandchoses.
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?
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
grandchoses.
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?
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" <lecocosteph@frite.fr> a écrit dans le message de news:
%237z0VielEHA.896@TK2MSFTNGP12.phx.gbl...
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" <nicolas.urbain@caramail.com> a écrit dans le message de
news:O$$DPRelEHA.3876@TK2MSFTNGP15.phx.gbl...
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" <ailleurs@nowhere.fr> a écrit dans le message de news:
udSe3GelEHA.3452@TK2MSFTNGP15.phx.gbl...
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" <nicolas.urbain@caramail.com> a écrit dans le message de
news:ek1QZCelEHA.3428@TK2MSFTNGP11.phx.gbl...
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?
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
grandchoses.
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?
