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

[Claudy]

Bonjour,
j'ai un tableau (E3:J20) de vingt lignes avec formules dans les deux dernières colonnes, une macro événementielle et des listes défilantes (validation de données) sur six colonnes.
Comment étendre ce tableau à +/- 20000 lignes?
Je me vois mal tirer vers le bas ...🥱
Vba accepté.

Merci d'avance,

Claudy

 

[job75]

Bonjour Claudy,

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

A+

 

[Claudy]

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

Merci,
Claudy

 

[chris]

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

 

[job75]

Re, salut chris,

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

A+

 

[Claudy]

Bonsoir à tous,
merci beaucoup,
Claudy

 

[Staple1600]

Bonjour le fil, Claudy, Chris, job75

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

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

 

[job75]

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+

 

[Staple1600]

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)

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.

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)

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

 

[job75]

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

 

[Staple1600]

Re,

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

 

[Claudy]

Re,

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

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

application.enableevents= false
blabla
application.enableevents= true

Claudy

 

[Staple1600]

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.