Discussion :

[Mokia34]

Bonjour,
j'ai vraiment besoin d'aide pour écrire un truc en VBA, au moins pour démarrer...
En fait je voudrais que lajout de "h" ou de "k" soit impossible par colonne quand le taux est égal a 50%.
Avec la pièce jointe, ca sera plus facilement compréhensible.
Est ce que quelqu'un peut m'aider ?
Merci

[gFZT82]

Bonjour,

Code à placer dans le module de la feuille.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count = 1 And Not Application.Intersect(Target, Range("B4:E25")) Is Nothing Then
        Application.EnableEvents = False
        If Cells(29, Target.Column) > 0.5 Then
            If Target.Value = "h" Or Target.Value = "k" Then
                Target = ""
            End If
        End If
        Application.EnableEvents = True
    End If
End Sub

Cordialement

[Mokia34]

Merci pour ton aide !

[Mokia34]

Bonjour,
en fait la solution que tu mas donné est parfaite
le seul HIC cest que si je copie-colle un bloc de 4 cellules avec des h ou des k, le blocage ne se fait plus.
est ce que quelquun sait remedier a ça ? ou est ce impossible ?
merci beaucoup
bon apres midi

[gFZT82]

Bonjour,

Tu peux effacer systématiquement les collages multiples.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Target.Count = 1 Then
        If Not Application.Intersect(Target, Range("B4:E25")) Is Nothing Then
            If Cells(29, Target.Column) > 0.5 Then
                If Target.Value = "h" Or Target.Value = "k" Then Target = ""
            End If
        End If
    Else
        Target.ClearContents
    End If
    Application.EnableEvents = True
End Sub

[Mokia34]

ok merci pour ta réponse
cest exactement ce quil me faudrait
mais est ce possible dautoriser les copier coller de 1 cellule uniquement ?