Bonsoir
j'ai réalisé cette macro qui permet de bloquer les saisies lorsque la date du jour est passée sur plusieurs lignes et plusieurs colonnes.
Private Sub Worksheet_selectionChange(ByVal Target As Range)
Dim c As Range
For Each c In Target
If Range("C1") > Range("A1") Then Exit Sub
If c.Address(0, 0) = "C2" Then Range("A1").Select
If c.Address(0, 0) = "C4" Then Range("A1").Select
If c.Address(0, 0) = "C6" Then Range("A1").Select
If c.Address(0, 0) = "C8" Then Range("A1").Select
If c.Address(0, 0) = "C10" Then Range("A1").Select
'......
If Range("D1") > Range("A1") Then Exit Sub
If c.Address(0, 0) = "D2" Then Range("A1").Select
If c.Address(0, 0) = "D4" Then Range("A1").Select
If c.Address(0, 0) = "D6" Then Range("A1").Select
If c.Address(0, 0) = "D8" Then Range("A1").Select
If c.Address(0, 0) = "D10" Then Range("A1").Select
'........
If Range("E1") > Range("A1") Then Exit Sub
If c.Address(0, 0) = "E2" Then Range("A1").Select
If c.Address(0, 0) = "E4" Then Range("A1").Select
If c.Address(0, 0) = "E6" Then Range("A1").Select
If c.Address(0, 0) = "E8" Then Range("A1").Select
If c.Address(0, 0) = "E10" Then Range("A1").Select
'..........
'If Range("c3") > Range("A4") Then Exit Sub
'If c.Address(0, 0) = "C4" Then Range("A1").Select
Next c
End Sub
Je voudrais la simplifier en réalisant des boucles mais je n'y arrive pas, d'autant que mon tableau de saisie comprend de nombreuses lignes et colonnes . Je joint un fichier avec la macro de l'essai de boucle .
Merci de votre aide
j'ai réalisé cette macro qui permet de bloquer les saisies lorsque la date du jour est passée sur plusieurs lignes et plusieurs colonnes.
Private Sub Worksheet_selectionChange(ByVal Target As Range)
Dim c As Range
For Each c In Target
If Range("C1") > Range("A1") Then Exit Sub
If c.Address(0, 0) = "C2" Then Range("A1").Select
If c.Address(0, 0) = "C4" Then Range("A1").Select
If c.Address(0, 0) = "C6" Then Range("A1").Select
If c.Address(0, 0) = "C8" Then Range("A1").Select
If c.Address(0, 0) = "C10" Then Range("A1").Select
'......
If Range("D1") > Range("A1") Then Exit Sub
If c.Address(0, 0) = "D2" Then Range("A1").Select
If c.Address(0, 0) = "D4" Then Range("A1").Select
If c.Address(0, 0) = "D6" Then Range("A1").Select
If c.Address(0, 0) = "D8" Then Range("A1").Select
If c.Address(0, 0) = "D10" Then Range("A1").Select
'........
If Range("E1") > Range("A1") Then Exit Sub
If c.Address(0, 0) = "E2" Then Range("A1").Select
If c.Address(0, 0) = "E4" Then Range("A1").Select
If c.Address(0, 0) = "E6" Then Range("A1").Select
If c.Address(0, 0) = "E8" Then Range("A1").Select
If c.Address(0, 0) = "E10" Then Range("A1").Select
'..........
'If Range("c3") > Range("A4") Then Exit Sub
'If c.Address(0, 0) = "C4" Then Range("A1").Select
Next c
End Sub
Je voudrais la simplifier en réalisant des boucles mais je n'y arrive pas, d'autant que mon tableau de saisie comprend de nombreuses lignes et colonnes . Je joint un fichier avec la macro de l'essai de boucle .
Merci de votre aide