Ajout de lignes dans un tableau
Bonjour,
J'ai besoin de votre aide pour ajouter des lignes "préformatées" sous les lignes déjà présentes dans un tableau.
En cliquant sur un bouton j'aimerais permettre à l'utilisateur d'ajouter ces lignes sous celles qui sont déjà présentes.
Les explications sont dans le fichier joint.
Merci beaucoup pour votre aide.
Bonjour,
J'ai vu que tu avais quelques macros pour récupérer notamment la dernière ligne de ton tableau. Il te suffit ensuite de faire une instruction :
ActiveSheet.ListObjects("t_liste").Resize Range("$A$1:$E$" & DernièreLigne + 1)Bonjour,
Merci pour cette réponse rapide mais les lignes ne sont pas à ajouter au tableau sur la feuille "Znoms" mais sur la feuille "Feuil1".
bonjour
salut Pedro22
pas de VBA
menu Accueil "mettre sous forme de Tableau" ou menu Données "Liste" selon ta version Excel
rien d'autre à faire , tout devient automatique !
compatibles tous Excel, mac, OOO...
Merci, c'est une bonne idée,
Cela contribue à résoudre une partie de mon problème.
Ce qui me manque encore c'est la mise en forme des cellules qui n'est pas reproduite dans les nouvelles lignes.
Une idée ?
re
la mise en forme (et les éventuelles MFC) sont aussi reprises automatiquement
voir les multiples tutos sur le net
par contre, je ne suis pas certains que on tableau soit un Tableau (ou Liste) bien structuré(e)
car il y a des lignes en jaune et d'autres en blanc ???
quel est le BUT de ton tableau ?
pour décider si on va vers un Tableau/Liste ou vers une saisie "tout venant"
Dans mon cas la mise en forme n'est pas reprise.
J'ai besoin de conserver cette mise en forme telles qu'elle se présente pour les lignes de 11 à 18.
Ce n'est pas un "tableau" au sens Excel des tableaux classiques.
C'est une table de données avec pour chaque "bloc" pour un nom donné (exemple ligne 11 à 18) une série de cellules contenant une liste de validation (que la macro génère à la saisie d'un nom). Sous ces cellules à validation 3 cellules permettant de saisir des valeurs variables sous forme textuelles par exemple.
re
si pas tableau, pas d'automatisme de tableau
quel est le BUT de ce classeur : gérer des élèves, des machines, des résultats de tests... ?
peut-on envisager une autre structuration ?
Bonjour,
C'est pour un club
La ligne avec la liste déroulante concerne une information à renseigner en "matinée" et une information à renseigner en "après-midi"
Elles sont suivi de 3 lignes dans lesquelles des données d'information (salle, matériel, instructions..) peuvent être portée à la connaissance de la personne.
On pourrait envisager une autre présentation mais je n'ai pas d'idée pour aboutir au même résultat au final. Votre aide serait la bienvenue.
Merci
Bonjour à tous,
J'ai essayé d'obtenir le résultat attendu en modifiant la macro
avec ce code j'ai dans un premier temps le résultat attendu qui s'exécute mais très lentement et ensuite j'ai un plantage excel.
Pourriez-vous m'aider à le corriger s'il vous plaît ?
[Code]
Private Sub Worksheet_Change(ByVal Target As Range)
Dim der_ligne As Integer
Dim parcours_colonne As Integer
On Error Resume Next
der_colonne = derniere_colonne(Feuil1, 10)
Range("A11:AD18").Select
Selection.Copy
der_ligne = Range("A" & Rows.Count).End(xlUp).Row
Range("A" & der_ligne).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
ligne = Target.Row
colonne = Target.Column
If colonne = 1 Then
For parcours_colonne = 2 To der_colonne
If (parcours_colonne) Mod 6 = 1 Then
parcours_colonne = parcours_colonne + 1
End If
Cells(ligne, parcours_colonne).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=" & Cells(ligne, 1)
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Cells(ligne + 4, parcours_colonne).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=" & Cells(ligne, 1)
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Next parcours_colonne
Cells(ligne, 1).Select
End If
End Sub