Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 Développement d'un tableau en fonction d'un nombre dans une cellule

T

TLM_16

XLDnaute Nouveau
Bonjour à tous,

Etant novice sur le codage d'Excel, j'aimerai avoir votre aide car je n'arrive pas à trouver comment faire pour développer automatiquement les lignes de mon tableau en fonction d'un nombre dans une cellule.
Par exemple, si dans une cellule est affiché 4, j'aimerai que le tableau se développe automatiquement de 4 lignes tout en conservant les formules du tableau.
Je vous joint mon tableau Excel. C3 étant ma cellule qui indique le nombre de lignes à développer et E11:J12 étant les lignes à développer en fonction de C3.

Je ne sais pas si je suis assez clair, dites-moi si vous voulez plus de détails.

Merci

Théo
 

Pièces jointes

  • Emprunt annuités constantes.xlsm
    10.1 KB · Affichages: 5
Solution
Bonjour TLM_16, JM, sousou,

Voyez le fichier joint et cette macro dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim n&
If FilterMode Then ShowAllData 'si la feuille est filtrée
Application.EnableEvents = False
n = Int(Abs(Val(CStr([C3]))))
[C3] = IIf(n, n, "")
With [E8:J8] 'à adapter
    If n Then
        .Cells(1).Resize(n) = "=MAX(R1C:R[-1]C)+1"
        .Cells(1, 2).Resize(n) = "=IF(RC[-1]=1," & [C2].Address(ReferenceStyle:=xlR1C1) & ",R[-1]C[4])"
        .Cells(1, 3).Resize(n) = "=RC[-1]*" & [C4].Address(ReferenceStyle:=xlR1C1)
        .Cells(1, 4).Resize(n) = "=RC[1]-RC[-1]"
        .Cells(1, 5).Resize(n) = "=" & [C6].Address(ReferenceStyle:=xlR1C1)...
Trier par date Trier par votes

Staple1600

XLDnaute Barbatruc
Bonjour le fil

Une façon de faire
(pré-requis: transformer ton tableau en Tableau )
=>Sélectionne ton tableau puis =>Insertion/Tableau => [x] Mon tableau contient des entêtes
VB: 
Sub InsérerLignesTABLEAU()
Dim I%
If IsNumeric([C3]) And [C3] <= 10 Then
For I = 1 To [C3]
ActiveSheet.ListObjects("Tableau1").ListRows.Add AlwaysInsert:=True
Next
End If
End Sub

EDITION: Bonjour sousou
 
Dernière édition:
Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc
bonjour (staple)
Une solution sans tableau pour conformité des formules de la première ligne
ajout d'un nouvelle formule pour (N + n)
 

Pièces jointes

  • Emprunt annuités constantes.xlsm
    16 KB · Affichages: 4
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Bonjour TLM_16, JM, sousou,

Voyez le fichier joint et cette macro dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim n&
If FilterMode Then ShowAllData 'si la feuille est filtrée
Application.EnableEvents = False
n = Int(Abs(Val(CStr([C3]))))
[C3] = IIf(n, n, "")
With [E8:J8] 'à adapter
    If n Then
        .Cells(1).Resize(n) = "=MAX(R1C:R[-1]C)+1"
        .Cells(1, 2).Resize(n) = "=IF(RC[-1]=1," & [C2].Address(ReferenceStyle:=xlR1C1) & ",R[-1]C[4])"
        .Cells(1, 3).Resize(n) = "=RC[-1]*" & [C4].Address(ReferenceStyle:=xlR1C1)
        .Cells(1, 4).Resize(n) = "=RC[1]-RC[-1]"
        .Cells(1, 5).Resize(n) = "=" & [C6].Address(ReferenceStyle:=xlR1C1)
        .Cells(1, 6).Resize(n) = "=RC[-4]-RC[-2]"
        .Resize(n).Borders.Weight = xlThin 'bordures
    End If
    .Offset(n).Resize(Rows.Count - n - .Row + 1).Delete xlUp 'RAZ en dessous
End With
Application.EnableEvents = True
With UsedRange: End With 'actualise la barre de défilement verticale
End Sub
A+
 

Pièces jointes

  • Emprunt annuités constantes(1).xlsm
    18.8 KB · Affichages: 2
Dernière édition:
Vote positif 0 Vote négatif
Solution
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

  • Résolu(e)
XL 2013 (RESOLU) Affichage des résultats dans un tableau selon des conditions
Réponses
13
Affichages
313
chaelie2015
  • Résolu(e)
XL 2013 (RESOLU) Automatisation de la création de feuilles en fonction des données de la cellule U13 et une feuille type
Réponses
7
Affichages
281
chaelie2015
B
  • Résolu(e)
Microsoft 365 Fonction cellule en décalage
Réponses
9
Affichages
292
BOILEAU
B
  • Question
XL 2021 Dupliquer des champs en fonction d'un nombre sélectionné
Réponses
3
Affichages
177
gbinforme
G
M
  • Question
XL 2021 Rechercher dans une matrice le texte d'une cellule et copier les 10 lignes situées en dessous de ce texte retrouvé
Réponses
2
Affichages
151
JHA
J
L
  • Résolu(e)
Microsoft 365 VBA - Attribuer mise en forme en fonction de valeur cellule d'une liste
Réponses
14
Affichages
344
Laliepomm
L
R
  • Question
XL 2019 Activer une macro en sélectionnant une cellule
Réponses
5
Affichages
299
romeo1974
R
K
  • Résolu(e)
Microsoft 365 Impression d'un tableau sans cases vides
Réponses
13
Affichages
328
KadNes
K
J
  • Question
Autres implementer une donnée provenant d'un importxml; jours après jours dans une cellule différente
Réponses
0
Affichages
99
Julien.D
J
  • Résolu(e)
Microsoft 365 Reporter automatiquement le nombre de valeurs uniques d'un tableau structuré filtré par plusieurs segments.
Réponses
3
Affichages
385
chris
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…