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.