Discussion :

[Guismail]

Bonjour, je viens vers vous car je cherche un moyen de bloquer une ligne de saisie vierge tout en gardant les historiques des précédentes lignes.

Je vous ai mis un doc word pour mieux comprendre

Quelque personnes m'ont dit qu'il était possible de réaliser cette maquette grace a une macro ... Ne connaissans pas cette fonction d'excel, je viens vers vous !

Cdlt

[papouclo]

Bonjour,
Ecrire dans un module le code suivant.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub insere_ligne_saisie()
 
    ' insère une ligne sous la ligne de titre
    Range("A2").EntireRow.Insert
 
    ' rectifie les formats de cette nouvelle ligne
    Range("A2:N2").Font.Bold = False 'inutile si le format des titres (ligne 1) n'est pas différent de celui des lignes du tableau
    Range("A2").NumberFormat = "m/d/yyyy"
    Range("B2").NumberFormat = "[$-F400]h:mm:ss AM/PM"
 
    ' appliquqe à la ligne à conserver dans l'historique les formats (couleurs de fond) utilisés
    With Range("A3:N3")
        .Interior.ColorIndex = 40 'Applique une couleur de fond à la ligne récupérée dans l'historique
 
        'Ajoute une condition (Vrai lorsque la ligne est impaire)
        .FormatConditions.Add Type:=xlExpression, Formula1:="=MOD(LIGNE();2)=1"
 
        'Définit la couleur de fond de la cellule lorsque la condition sera vraie.
        With .FormatConditions(1)
            .Interior.ColorIndex = 15 'Gris
        End With
 
    End With
 
End Sub

puis insérer un bouton associé à la procédure insere_ligne_saisie.
Cordialement
Claude

[Guismail]

ça marche très bien! Merci bcp !