Insérer une ligne du tableau

**Philippe608** · 06/12/2016, 20h17

Bonsoir,
Avec le code ci-dessous serait-il possible de le modifier afin d'insérer une nouvelle ligne du tableau ?

En effet la feuille est protégée sauf les colonnes B et F, lorsque j’appuie sur F8 en colonne "B" la date s'inscrit en colonne C = date du jour, en colonne D l'heure début
F8 en colonne F, la colonne G donne la date de fin et en colonne H l'heure de fin.
Il peut y avoir plusieurs lignes avec la même date.

Il faudrait que la nouvelle ligne du tableau soit uniquement insérée lorsque j’actionne "F8" en colonne F et non en colonne B sinon les lignes vierges du tableau se multiplies inutilement.
mon tableau porte le nom "Tableau3".
Je pense que le code peut être plus compacte.

Merci d'avance.
PS : si j’actionne "F8" sous la dernière ligne du tableau la date est erronée, d’où l'avantage de travailler dans une ligne déjà crée.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Heure()
  ActiveSheet.Unprotect ""
  Selection.ListObject.ListRows.Add AlwaysInsert:=False 'insertion d'une ligne du tableau
    Application.EnableEvents = False
         ActiveCell.Value = ""
          ActiveCell.Offset(0, 1).NumberFormat = "General"
            ActiveCell.Offset(0, 1).Value = Format(Date, "mm-dd-yyyy")
                ActiveCell.Offset(0, 2).Value = Format(Time, "hh:mm")
                   ActiveCell.Offset(0, 3).Select
                     ActiveSheet.Protect "" ' on met de nouveau le mot de passe
                       Application.EnableEvents = True
                            ActiveWorkbook.Save ' sauvegarde du classeur
 
                    End Sub

**joe.levrai** · 06/12/2016, 20h29

Bonjour,

il faut rajouter à dans ton escalier, marche numéro 3, un test If sur le numéro de colonne de ActiveCell

Désolé, je m'arrête là, les travaux sur objets actifs (ActiveCell, Activesheet etc...) c'est comme la grippe, assez contagieux mais avec un vaccin assez fiable : tuto/faq/recherches sur le forum