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