Insertion nom de plage de données

[tof]

Bonjour,

j'ai le même type de problème que le message de ce matin. Après import d'une table de données externes, avec nombre de ligne variable, comment faire suivre la selection pour nommer la plage, en vue d'un rechercheV ?

 

[Robert]

Salut Tof, salut le forum,

Je suis revenu sur ton post antérieur pour mieux comprendre ton problème et du coup j'ai cherché à résoudre celui-ci puisque visiblement il n'y avait pas de réponse. Donc je te propose de remplacer les dernières lignes de ta macro comprises entre End With et End Sub par celles-ci :

Dim li as Long 'déclare la variable li
'sélectionne la première ligne vide après sous tableau (par rapport à la colonne E)
Range("E65536").End(xlUp).Offset(1, 0).Select
li = ActiveCell.Row 'définit la variable li
'fait la somme de E2 à E li-1
ActiveCell.FormulaR1C1 = "=SUM(R[-" & li - 2 & "]C:R[-1]C)"
'sélectionne la cellule E li+1
Range("E" & li + 1).Select

pour sélectionner tout le tableau, tu peux utiliser soit :
Range("A1").CurrentRegion.Select
puisque ta macro importe sur A1
soit utiliser la variable li pour definir une partie du tableau du style :
Range("A1" & li).select
qui va sélectionner les colonne A156 si le tableau a 55 lignes.

Pour definir le nom par rapport à la sélection :
ActiveWorkbook.Names.Add Name:="ton_mom", RefersTo:=Selection

À plus,

Robert

 

[tof]

Bonjour,

c'est OK, merci pour ton aide.