Somme automatique

[Kantin-22]

Bonjour à tous,

Je bloque complètement et pourtant j'ai déjà trouvé la solution à ma question il y a 2 ans... mais plus moyen de retrouver la bonne technique..

voilà le problème :
J'aimerais que dans une colonne ou plutôt sur une partie de la colonne (plage), pour chaque donnée entrée, 0.5 soit rajouté.
c a d :
J'ai une colonne ou je doit entrer un le cout pour un article mais je dois y rajouter 0.50cent automatiquement.
Je veux donc juste avoir à encoder le prix de l'article et non chaque fois devoir faire =prix de l'article+0.5

Merci à celui qui pourra m'éclairé !

 

[Guiv]

Re : Somme automatique

Bonjour Kantin-22,
A coller dans le code de la feuille (en adaptant la plage "A1:A10")

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
        Application.EnableEvents = Not Application.EnableEvents
        Target.Value = Target.Value + 0.5
        Application.EnableEvents = Not Application.EnableEvents
    End If
End Sub

Cordialement
Guiv

 

[mth]

Re : Somme automatique

Bonjour Kantin-22, Guiv,

Un autre approche "à la mimine":

Tu saisis 0.5 dans une cellule, puis tu la copies afin de la placer dans le presse papier
Ensuite tu sélectionnes ta plage de prix, tu fais "Collage Spécial", tu coches "Addition" et tu valides.

Bonne journée à tous,

mth

 

[Kantin-22]

Re : Somme automatique

Merci bien pour cette info !
j'ai fait un test sur la feuille 1 de mon classeur, pas de problèmes tout fonctionne, maintenant je la supprime du code de la feuille 1 et le met sur ma feuille4 ... rien ne fonctionne :-(
quand j'ai supprimer il m'on affiché un msg et j'ai cliqué déboguer... est-ce pour ca?

 

[Guiv]

Re : Somme automatique

Re,
En principe, ça marche sur toute feuille qui contient le code. Peut-être une fausse manip dans ton "couper-coller"?
Cordialement,
Guiv

 

[Kantin-22]

Re : Somme automatique

je ne comprends pas du tout...
même sur le fichier que vous m'avez envoyé, ça ne fonctionne pas...

 

[Guiv]

Re : Somme automatique

Re,
Il faut mettre le niveau de sécurité des macros à moyen ou faible (Outils/Macros/Sécurité)
Chez moi ça marche...
Guiv

 

[Kantin-22]

Re : Somme automatique

ok, j'ai réussi par contre maintenant j'ai un autre problème
j'aimerais pouvoir rajouter au prix (AU5) de mon article D5 * 0.5
c'est a dire pouvoir cumuler plusieurs fois le surplus de 50 cents selon le nombre d'article commander.
en gros c'est pour faire ceci :
un article acheté = 3€
2 articles = 3€ + 0,5€
3 articles = 3€ + 2*0,5€
4 ....

je pensait à ce code mais ne fonctionne pas :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("AU5:AU21")) Is Nothing Then
Application.EnableEvents = Not Application.EnableEvents
Target.Value = Target.Value + 0.5 * D5 : D21
Application.EnableEvents = Not Application.EnableEvents
End If
End Sub

si qqun sait m'aider, ce serrait génial

 

[Kantin-22]

Re : Somme automatique

et je ne trouve pas niveau de sécurité...
j'ai office 2007... perso je préfèrait 2003 ^^

 

[Guiv]

Re : Somme automatique

Re,

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("AU5:AU21")) Is Nothing Then
        Application.EnableEvents = Not Application.EnableEvents
        Target.Value = Target.Value + 0.5 * (Range("D" & Target.Row) - 1)
        Application.EnableEvents = Not Application.EnableEvents
    End If
End Sub

Pour 2007, peut pas t'aider...
Guiv

 

[Kantin-22]

Re : Somme automatique

voilà un tout grand merci !
ça fonctionne parfaitement =)