créer un tableau par un bouton

[jeannot68]

bonjour a tous

comment puis je faire en sorte que l'orsque je clique sur mon bouton "ajouter un nouveau sous total" cela permet la création d'un nouveau tableau identique au tableau (ligne 12 à 18) 3 lignes en dessous du précedent. Je souhaite recopier mon tableau avec les données en rouge vierge.

Merci a tous de votre aide

 

[soenda]

Re : créer un tableau par un bouton

Bonjour le fil, jeannot68

Vois si la PJ te convient

A plus

 

[jeannot68]

Re : créer un tableau par un bouton

merci

mais est il possible d'en inserer a "l'infin " ?

 

[soenda]

Re : créer un tableau par un bouton

Re,

est il possible d'en inserer a "l'infini" ?

- Si les plages doivent-être copiées l'une sous l'autre, on finira par arriver à la dernière ligne. A ce propos quelle version d'Excel utilises-tu?
Avec Excel 2007on a plus 1 million de lignes, tandis que les autres versions n'en ont que 65536.

- Les plages sont-elles de tailles fixes ou variables ?

A plus

Edition: Bonjour JCGL 🙂

 

[JCGL]

Re : créer un tableau par un bouton

Bonjour à tous,
Salut Soenda 🙂,

Un essai de recopie du "module" avec une partie du code de Soenda et ajout :

• Compteur (tu es limité à 7390 avec XL 2003)
• Positionnement sur la première ligne du nouveau module de la colonne A
• Effacement DE TOUS LES MODULES si appui sur RAZ

A++ 🙂
A+ à tous

 

[jeannot68]

Re : créer un tableau par un bouton

un grand merci pour votre aide c est exactement ce que je souhaitais

encore merci

 

[soenda]

Re : créer un tableau par un bouton

Bonjour Le fil, jeannot 68
Salut JCGL 🙂,

je n'ai pas encore compris comment fonctionnait ton compteur...
Ni même la limitation à 2184 sous 2003 😱

Mais pour la Sub "Ajouter un nouveau sous-total", je ferai plutôt comme ça

Private Sub CommandButton4_Click() 
    Dim dep As Long                     ' déplacement ou décalage
    
    dep = [A65536].End(xlUp).Row - 9    ' 9 = 7 lignes du tableau + 2 espaces
    
    With Range("A12:K18")               ' Copie du dernier tableau 
        .Offset(dep - 9, 0).Copy .Offset(dep, 0)
    End With

    Range("B13:B16,D18,G18").Offset(dep, 0).ClearContents    ' c'est plus concis    
    
    Application.CutCopyMode = False
    
End Sub

A plus

 

[JCGL]

Re : créer un tableau par un bouton

Bonjour à tous,
Salut Soenda 🙂,

OK pour le code qui fonctionne aussi et qui me plait bien
Pour le compteur : en J18, j'ai posé J9+1 (la formule se trouve recopié avec le décalage de 9 lignes) et je me suis trompé, c'est (65 536-18)/9 soit 7 390 modules

A++ 🙂
A+ à tous

 

[soenda]

Re : créer un tableau par un bouton

Bonjour le fil, JCGL

Pour le compteur : en J18, j'ai posé J9+1 (la formule se trouve recopié avec le décalage de 9 lignes)

Y a des jours, j'ai pas les yeux en face des trous 😱

Merci JCGL 🙂

A plus