Microsoft 365 VBA Max

[Keiko]

Bonjour à tous,

je fais des petites recherches sur internet et je vois qu'il est possible de bloquer une celulle à un maximum déterminé par une autre celulle.
Par exemple C2 ne peut pas écrire plus que C3.
Pour cela, il faut que je clique sur l'onglet et que je visualise le code et qu'ensuite j'incruste le code vba dedans.
Mais aucun code ne fonctionne ou peut etre que je le fais mal.

Pouvez vous m'aider?

 

[James007]

Bonjour,

Tu peux tester le code suivant

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$C$2" Then Target = Application.WorksheetFunction.Min(Target, Target.Offset(1, 0))
End Sub

En espèrant que cela t'aide

 

[Keiko]

Merci mais comment incorporer le code dans la cellule?

 

[James007]

Re,

Le code doit être inséré dans le module de la feuille concernée ...

Ci-joint ton fichier test

 

[Keiko]

Je vois ceci dans la visualisation mais comment fais tu pour sélectionner la somme max dans C3?

 

[James007]

De rien ...

1. Est-ce-que cela fonctionne ...???

 

[Keiko]

Je ne sais pas comment sélectionner la somme maximum. regardes au dessus 🙁

 

[James007]

Pour modifier la somme maximale ... il te suffit de saisir la valeur que tu veux dans la cellule C3 ... 😉

 

[James007]

Est-ce-que tu voudrais dire que la valeur maximale doit être invisible ... ???

 

[Keiko]

Non , dans le code.
Je ne vois comment il va prendre l'information maximum car le code ne parle que de c2

 

[James007]

Dans le code le mot Target dans ce cas recouvre la cellule C2 ...

et toujours dans le code Target.Offset(1,0) signifie la cellule C3 ...

Si tu as besoin du même code ... sans que la valeur maximale ne soit visible dans la Feuille ...
tu peux ajouter 1000 directement dans le code

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$2" Then Target = Application.WorksheetFunction.Min(Target, 1000)
End Sub

En espèrant que tout cela soit un peu plus clair ...

P.S. Tu ne m'as toujours pas répondu au sujet du fonctionnement ...
Est-ce-que cela fonctionne ... ou pas ...???

 

[Keiko]

Il marche sur ta feuille ca c'est sur mais je n'arrive pas à l'appliquer sur ma feuille 🙁
Je sais faire des macros avec bouton mais je n'ai encore jamais fait comme ca sans bouton et la je n'y arrives pas :'(

 

[James007]

Re,

Les macros standard ( avec boutons ) sont stockées dans des modules standards ...

Tandis que les macros qui sont évènementielles ... parce qu'elles sont déclenchées par un évènement ( et pas par un bouton ) doivent êtres stockées dans le module de la feuille concernée ...

Dans ton fichier test ... la macro évènementielle est stockée dans le module de la feuille ...

 

[patricktoulon]

bonjour
si ca ne concerne que C2 et C3

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$C$2" And Target <> "" Then
        If Target.Value > Target.Offset(1) Then
            Application.EnableEvents = False
            Target = ""
            Application.EnableEvents = True
            MsgBox "plus grand que ""[C3]"""
            Target.Select
        End If
    End If
End Sub

si ça concerne toute les cellules de la colonne "C"
et que le principe est jamais plus grand que celle d'en dessous

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 3 And Target <> "" Then
        If Target.Offset(1) <> "" And Target.Value > Target.Offset(1) Then
            Application.EnableEvents = False
            Target = ""
            Application.EnableEvents = True
            MsgBox "plus grand que ""[""" & Target.Offset(1).Address(0, 0) & "]"""

            Target.Select
        End If
    End If
End Sub

on peut limiter le champs d'action a certaines lignes aussi

 

[Keiko]

Ok je l'ai installé mas comment faire pour l'activer ?
Car on dirait qu'il ne s'active pas 🙁