formulevba Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
r
rantig
Membre habitué
Membre habitué
Messages : 64
Inscrit le : 19 mars 2013
Version d'Excel : 2012FR

Message par rantig » 19 septembre 2015, 18:00

Bonjour le forum

Serait il possible d'avoir une formule en vba ou autres, qui dès lors que je tape en colonne B, "Salaire ou virement", je peux écris la somme en colonne D uniquement
et pour le reste comme,"Divers, Alimentatation, Loyer etc etc, je ne peux écrire quand colonne E

Merci
Classeur1.xlsx
(17.17 Kio) Téléchargé 7 fois
Avatar du membre
bigdaddy154
Membre impliqué
Membre impliqué
Messages : 1'067
Appréciations reçues : 30
Inscrit le : 5 mars 2014
Version d'Excel : 2010

Message par bigdaddy154 » 19 septembre 2015, 19:03

Bonsoir,

un essai voir si ça te conviens.

Cordialement.

:btres:
Rantig.xlsx
(17.36 Kio) Téléchargé 4 fois
d
ddetp88
Membre dévoué
Membre dévoué
Messages : 867
Appréciations reçues : 6
Inscrit le : 5 janvier 2015
Version d'Excel : 2016

Message par ddetp88 » 19 septembre 2015, 19:04

Bonjour,

Avant de mettre le code en place, déprotège toutes les cellules de ton tableau et protège la feuille en suivant
Installe la macro suivante dans la feuille 1

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [b4:b12]) Is Nothing Then
    ActiveSheet.Unprotect Password:=""
    If Target = "Salaire" Or Target = "Virement" Then
        Target.Offset(0, 3).Locked = True
        Target.Offset(, 2).Locked = False
    Else
        Target.Offset(0, 3).Locked = False
        Target.Offset(, 2).Locked = True
    End If
    ActiveSheet.Protect Password:=""
End If
End Sub
cordialement

ddetp
r
rantig
Membre habitué
Membre habitué
Messages : 64
Inscrit le : 19 mars 2013
Version d'Excel : 2012FR

Message par rantig » 19 septembre 2015, 19:58

Salut ddetp88 et bigdaddy

Merci à vous deux, la formule avec validation des données super, la formule en vba super aussi mais elle bloque sur chaque cellule
et protège systématiquement toutes les cellules
d
ddetp88
Membre dévoué
Membre dévoué
Messages : 867
Appréciations reçues : 6
Inscrit le : 5 janvier 2015
Version d'Excel : 2016

Message par ddetp88 » 20 septembre 2015, 09:12

Re
Effectivement, j'ai omis Application.EnableEvents = False en début de code et Application.EnableEvents = True en fin de code.
Comme quoi il est préférable de tester avant.

Voici la macro sur ton exemple.

Bonne continuation.

ddetp88
:btres:
salaire et virement-1.xlsm
(24.95 Kio) Téléchargé 4 fois
r
rantig
Membre habitué
Membre habitué
Messages : 64
Inscrit le : 19 mars 2013
Version d'Excel : 2012FR

Message par rantig » 20 septembre 2015, 17:47

Salut ddetp88

Merci beaucoup
ddetp88 a écrit :Re
Effectivement, j'ai omis Application.EnableEvents = False en début de code et Application.EnableEvents = True en fin de code.
Comme quoi il est préférable de tester avant.

Voici la macro sur ton exemple.

Bonne continuation.

ddetp88
:btres:
Répondre Sujet précédentSujet suivant