XL 2013 Rallonger un tableau même verouillé

[lestoiles1]

Bonjour,

Mon tableau est verouillé et il ne s'éttend pas.
Mon but c'est en cliquant sur validate, la ligne se verouille automatiquement , mais malgré cela, lorsque j'ajoute une chiffre dans la colonne A, le tableau ne s'ettend plus.

Merci
Lestoiles

 

[sylvanu]

Bonjour Lestoiles,
Peut être simplement avec :

Sub Button1_Click()
Dim DerLig As Integer
'Il faut d'abord déprotéger toutes les cellules de la feuille par le menu Accueil--> Format--> Format de cellule
ActiveSheet.Unprotect
DerLig = Range("A" & ActiveSheet.Cells.Rows.Count).End(xlUp).Row
Range("A" & DerLig) = Range("A" & DerLig).Value
Range("A1:T" & DerLig).Locked = True
ActiveSheet.Protect
End Sub

Un copier coller de la dernière cellule permet de ré intégrer cette ligne dans le tableau.

 

[lestoiles1]

Bonjour Lestoiles,
Peut être simplement avec :

Sub Button1_Click()
Dim DerLig As Integer
'Il faut d'abord déprotéger toutes les cellules de la feuille par le menu Accueil--> Format--> Format de cellule
ActiveSheet.Unprotect
DerLig = Range("A" & ActiveSheet.Cells.Rows.Count).End(xlUp).Row
Range("A" & DerLig) = Range("A" & DerLig).Value
Range("A1:T" & DerLig).Locked = True
ActiveSheet.Protect
End Sub

Un copier coller de la dernière cellule permet de ré intégrer cette ligne dans le tableau.

Merci pour ta réponse , mais lorsque je remplis quelque chose dans la colonne size (S,M,L) je macro ne marche pas.

 

[sylvanu]

Pourquoi spécifiquement SML ?
Ci dessous une macro qui remet dans le tableau toute cellule modifiée de A à T.

Sub Button1_Click()
Dim DerLig As Integer, DerLigT As Integer
'Il faut d'abord déprotéger toutes les cellules de la feuille par le menu Accueil--> Format--> Format de cellule
ActiveSheet.Unprotect
DerLigT = 2 + [Table1].Rows.Count   ' Première ligne libre après le tableau
DerLig = Range("A" & ActiveSheet.Cells.Rows.Count).End(xlUp).Row
Range("A" & DerLigT & ":T" & DerLigT) = Range("A" & DerLigT & ":T" & DerLigT).Value
Range("A1:T" & DerLig).Locked = True
ActiveSheet.Protect
End Sub

Sinon soyez plus précis sur votre demande car c'est assez flou.

 

[Phil69970]

Bonjour @lestoiles1 et Sylvain

Je te propose ce fichier

MDP de la feuille ==> 1234566

Merci de ton retour

 

[lestoiles1]

Bonjour @lestoiles1 et Sylvain

Je te propose ce fichier

MDP de la feuille ==> 1234566

Merci de ton retour

Bonjour je ne veux pas de supreesssion ou d'addition de ligne je veux juste qu'a chaque fois que je clik sur validate , la ligne qui contient des donnée soit deverrouillé. Sylvanu a trouver la solution , merci quand meme pour votre réponse

 

[lestoiles1]

Pourquoi spécifiquement SML ?
Ci dessous une macro qui remet dans le tableau toute cellule modifiée de A à T.

Sub Button1_Click()
Dim DerLig As Integer, DerLigT As Integer
'Il faut d'abord déprotéger toutes les cellules de la feuille par le menu Accueil--> Format--> Format de cellule
ActiveSheet.Unprotect
DerLigT = 2 + [Table1].Rows.Count   ' Première ligne libre après le tableau
DerLig = Range("A" & ActiveSheet.Cells.Rows.Count).End(xlUp).Row
Range("A" & DerLigT & ":T" & DerLigT) = Range("A" & DerLigT & ":T" & DerLigT).Value
Range("A1:T" & DerLig).Locked = True
ActiveSheet.Protect
End Sub

Sinon soyez plus précis sur votre demande car c'est assez flou.

Excusez-moi Sylvanu, j'ai inseré un code dans la "sheet2", et lorsque je clique sur validate ca ne marche pas.

 

[sylvanu]

Bonjour,
En faisant cette ligne, cela détruit les formules présentes.

Range("A" & DerLigT & ":T" & DerLigT) = Range("A" & DerLigT & ":T" & DerLigT).Value

Testez cette PJ où j'ai repris la méthode, je copie la dernière ligne, je crée une ligne supplémentaire dans le tableau ainsi les formules sont dupliquées puis je colle les valeurs.

 

[job75]

Bonjour à tous,

Je reviens sur le post #1 avec cette macro :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim h&
Application.EnableEvents = False 'désactive les évènements
Unprotect
With [Table1].ListObject.Range 'tableau structuré
    h = UsedRange.Rows.Count + UsedRange.Row - .Row
    .ListObject.Resize .Resize(h) 'redimensionne le tableau
    If h > 2 Then .Rows(2).AutoFill .Rows(2).Resize(h - 1), xlFillFormats 'copie les formats
End With
Protect
Application.EnableEvents = True 'réactive les évènements
End Sub

Elle se déclenche automatiquement, le bouton VALIDATE n'est pas nécessaire.

A+

 

[lestoiles1]

Bonjour à tous,

Je reviens sur le post #1 avec cette macro :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim h&
Application.EnableEvents = False 'désactive les évènements
Unprotect
With [Table1].ListObject.Range 'tableau structuré
    h = UsedRange.Rows.Count + UsedRange.Row - .Row
    .ListObject.Resize .Resize(h) 'redimensionne le tableau
    If h > 2 Then .Rows(2).AutoFill .Rows(2).Resize(h - 1), xlFillFormats 'copie les formats
End With
Protect
Application.EnableEvents = True 'réactive les évènements
End Sub

Elle se déclenche automatiquement, le bouton VALIDATE n'est pas nécessaire.

A+

Bonjour, j'ai besoin du bouton validate car on doit encore remplir le "size " (s,m,l,xl...) avant de verouiller les cellules

 

[lestoiles1]

Bonjour,
En faisant cette ligne, cela détruit les formules présentes.

Range("A" & DerLigT & ":T" & DerLigT) = Range("A" & DerLigT & ":T" & DerLigT).Value

Testez cette PJ où j'ai repris la méthode, je copie la dernière ligne, je crée une ligne supplémentaire dans le tableau ainsi les formules sont dupliquées puis je colle les valeurs.

Ca ne marche pas, j'ai rempli la cellule A4 , puis j'ai cliqué sur validate, ca donne ça (PJ)

 

[sylvanu]

Bonjour,
J'ai retesté sur mon fichier et c'est ok, sur le votre ko. Je pense qu'il y a interaction avec la macro worksheet_change.
Dans cette PJ je l'ai supprimée car elle ne sert à rien, la date est mise lors de l'appui sur Validate comme pour les autres cellules.