Microsoft 365 Insérer ligne avec valeur automatiquement

[azerty64]

Bonjour à tous;

Je bloque sur une idée que j'arrive pas à appliquer. J'aimerai étendre la valeur "PAUL" sur tout une colonne automatiquement. C'est à dire que si j'ajoute une ligne ca me mets automatiquement "PAUL" mais j'aimerais avoir une formule (si possible) pas simplement un tableau... Pouvez vous m'aider ?
Merci d'avance

Fichier en PJ

Cdt,
azerty

 

[soan]

Bonjour azerty,

ton fichier en retour. 🙂

ta méthode d'ajouter "Paul" lors de l'insertion d'une ligne n'est pas évidente ; aussi, je te propose une autre méthode : la cellule active est B4 ; saisis ton n° de commande, par exemple 3 ➯ en A4 : "Paul" ; efface le 3 que tu viens de saisir (touche Suppression) ➯ A4 est vide ; autre exemple : va en B3 ; supprime le 2 ➯ A3 est vide ; saisis 2 ➯ en A3 : "Paul" ; ça fonctionne pareil pour toute ligne en dessous de la ligne n° 2 : ça copie le Nom de la ligne précédente (à condition bien sûr qu'il y soit) ; évidemment, en B2, y'a pas de Nom à copier à partir de la ligne précédente vu que la ligne n° 1 est celle des en-têtes de colonnes.​

code VBA du module de Feuil1 :

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
  With Target
    If .CountLarge > 1 Then Exit Sub
    If .Column <> 2 Then Exit Sub
    If .Row < 3 Then Exit Sub
    With .Offset(, -1)
      If Target <> "" Then .Value = .Offset(-1) Else .Value = ""
    End With
  End With
End Sub

à te lire pour avoir ton avis. 😉

soan

 

[JBARBE]

Bonjour à tous,
Compte tenu que la macro s'effectue à l'ouverture du fichier, il est recommandé de se positionner dans une cellule de la colonne A pour mettre un nom !
Bonne journée !

 

[azerty64]

Bonjour à vous,

Un grand merci pour vos réponses !
Tout fonctionne.

Cordialement,
azerty64