Discussion :

[dybmans]

Bonjour,

je voulais donner un nom à la zone contenant des données de mon tableau.

Je voulais le coder comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
NbColonnes = ActiveSheet.UsedRange.Columns.Count
 
NbLignes = ActiveSheet.UsedRange.Rows.Count
 
Range(ActiveSheet.UsedRange.Rows.Count:ActiveSheet.UsedRange.Columns.Count).Select
Application.Goto Reference:="calcul"

Ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
NbColonnes = ActiveSheet.UsedRange.Columns.Count
 
NbLignes = ActiveSheet.UsedRange.Rows.Count
 
Range(NbColonnes : NbLignes ).Select
Application.Goto Reference:="calcul"

Mais cela ne fonctionne pas alors que Range("A1:M1").Select fonctionne.

Comment doit-je noter ceci pour l'avoir sur mon tableau actif ?

Merci par avance

[jfontaine]

Bonjour,

Ce bout de code permet de creer un plage nommé flottante suivant le nombre de ligne et de colonnes utilisé sur la colonne A et la ligne 1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
   ActiveWorkbook.Names.Add Name:="calcul", RefersToR1C1:= _
        "=Feuil1!R1C1:R" & Range("A:A").End(xlDown).Row & "C" & Rows("1:1").End(xlToRight).Column

Restera a adapter

[dybmans]

Merci pour ton aide çà fonctionne