ajour automatique ligne avec formules et forma

[mix770]

😕 Bonjour à tous,
je suis en galère avec un tableau, j'ai besoin pour les utilisateurs qui rempliraient le tableau qu'une ligne qui aurait le même format s'insère automatiquement en dessous de la dernière, j'ai bien un vba mais qui rajoute une ligne au dessus !!! et sans la mise en forme des cellules
je joins le fichier
merci d'avance à vous
cordialement
Mix770
🙂

 

[kjin]

Re : ajour automatique ligne avec formules et forma

Bonjour,
Peut-être comme ceci

Private Sub Worksheet_Change(ByVal Target As Range)
Dim adresse$, x&
If Target.Column <> 1 Or Target.Count > 1 Then Exit Sub
adresse = [A65000].End(xlUp).Address(1, 1)
If Target.Address = adresse Then
    x = Target.Row
    Application.EnableEvents = False
    Range("A" & x & ":O" & x).Copy Target.Offset(1)
    Range("A" & x + 1).ClearContents
    Application.EnableEvents = True
End If
End Sub

A+
kjin

 

[mix770]

Re : ajour automatique ligne avec formules et forma

Bonjour Kjin,
un grand merci à toi cela marche super !!!
j'ai passé 3 heures dessus sans avancer
et respect pour la maitrise..... je suis encore très léger sur le VBA
bien cordialement
Mix770

 

[mix770]

Re : ajour automatique ligne avec formules et forma

re bonjour Kjin,
j'ai voulu verrouiller la feuille tout en laissant les droits sur les modifs de lignes formats etc.., quand je selectionne un site la ligne du dessous apparait bien mais plus la liste de choix !! va comprendre 🙂 donc je coince si tu as une idée
merci encore une fois
Mix770