XL 2016 Etendre un tableau vers le bas (20000 lignes)

job75

XLDnaute Barbatruc

• 22 Janvier 2021

• #2

Bonjour Claudy,

La ligne 3 est-elle la ligne des en-têtes ou est-ce une ligne à tirer vers la bas ?

A+

 

Vote positif 0 Vote négatif

Claudy

XLDnaute Accro

• 22 Janvier 2021

• #3

Bonjour Job,
Les entêtes se trouvent sur la ligne 2

Merci,
Claudy

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 22 Janvier 2021

• #4

Bonjour à tous
Mettre sous forme de tableau structuré et ne pas étendre : le tableau s'étendra tout seul avec ses listes de validation et ses formules à l'ajout d'une (saisie) ou n lignes (collage) juste sous la dernière

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 22 Janvier 2021

• #5

Re, salut chris,

VB:

Sub a()
[E3:J3].AutoFill [E3:J20000], xlFillFormats 'tire les formats
[I3:J3].AutoFill [I3:J20000], xlFillValues 'tire les formules
End Sub

A+

 

Vote positif 0 Vote négatif

Solution

Claudy

XLDnaute Accro

• 22 Janvier 2021

• #6

Bonsoir à tous,
merci beaucoup,
Claudy

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 23 Janvier 2021

• #7

Bonjour le fil, Claudy, Chris, job75

Une autre possibilité
(à confirmer sur le fichier réel)

VB:

Sub b()
[E3:J20000].FillDown
End Sub

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 23 Janvier 2021

• #8

Bonjour JM, le forum,

S'il y a des valeurs en E3:H3 FillDown les copiera telles quelles vers le bas.

Je pense que Claudy veut plutôt agrandir son tableau avec des cellules vides.

A+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 23 Janvier 2021

• #9

Bonjour job75

Comme je n'ai pas vu le fichier de Claudy, je me suis dédouané avec cette précision 😉

(à confirmer sur le fichier réel)

Cliquez pour agrandir...

J'ai testé avec cette formule en E3:J3 =COLONNE()*LIGNE()
(cellules formatées (fond jaune) et bordures)
Et ton code et le mien donne le même résultat, non ?
Ton code que j'ai testé avant de tester le mien.

VB:

Sub aa()
[E3:J3].AutoFill [E3:J20000], xlFillFormats 'tire les formats
[E3:J3].AutoFill [E3:J20000], xlFillValues 'tire les formules
End Sub

EDITION: Et cette version aussi fait la même chose (sur mon fichier test)

VB:

Sub c()
[E3:J3].AutoFill [E3:J20000], xlFillCopy
End Sub

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 23 Janvier 2021

• #10

Claudy a bien précisé que les formules sont dans les deux dernières colonnes, donc I et J...

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 23 Janvier 2021

• #11

Re,

Effectivement.
Et xlFillCopy ne convient pas non plus ? (cf édition message#9)

 

Vote positif 0 Vote négatif

Claudy

XLDnaute Accro

• 23 Janvier 2021

• #12

Staple1600 à dit:

Re,

Effectivement.
Et xlFillCopy ne convient pas non plus ? (cf édition message#9)

Cliquez pour agrandir...

Bonjour à tous et encore merci...
Ci joint mon fichier d'origine...
Dans la macro de job j'ai rajouté un

Code:

application.enableevents= false
blabla
application.enableevents= true

Claudy

 

Pièces jointes

• Hypo Test.xlsm

  21.2 KB · Affichages: 19

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 23 Janvier 2021

• #13

Re

Avec le fichier exemple, je suis en mesure d'invalider mes propositions. 😉
Ce que job75 avait déjà noté.

NB: Ceci dit, si le fichier eut été présent dès le message#1, j'aurai pu tester et donc ne pas poster le message#7.

 

Vote positif 0 Vote négatif