Discussion :

[zouzoliver]

Bonjour,
J’ai créé le code suivant (rechercher dernière cellule d’une plage et la nommer) qui fonctionne :

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim DerLigTaux As Long
TauxSheetName = "ModeOp" 'NOM DE FEUILLE
    LigTxDebut = 2
    ColTxDevise = "A"
With Sheets(TauxSheetName)
    DerLigTaux = .[A2].End(xlDown).Row
    .Range(ColTxDevise & LigTxDebut & ":" & ColTxDevise & DerLigTaux).Name = "Devise"
End With

Ensuite, je souhaiterais utiliser une variable à la place de la valeur de départ fixe (« A2 »). J’ai légèrement modifié le code ligne 7:

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim DerLigTaux As Long
TauxSheetName = "ModeOp" 'NOM DE FEUILLE
    LigTxDebut = 2
    ColTxDevise = "A"
With Sheets(TauxSheetName)
    DerLigTaux = .[ColTxDevise & LigTxDebut].End(xlDown).Row
    .Range(ColTxDevise & LigTxDebut & ":" & ColTxDevise & DerLigTaux).Name = "Devise"
End With

L’erreur d’exécution 424 s’affiche. Selon l’aide, il s’agit d’un problème de qualificateur d’objet.
J’ai donc tenté de déclarer mes variables, exemple :
Dim ColTxDevise as String
Dim LigTxDebut as Long
Etc….
Mais cela ne fonctionne toujours pas.

Auriez-vous une idée ?

NB : J’aimerais trouver une solution sans utiliser le « .select »

Merci par avance pour votre aide.

[Invité]

Code :

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

1
2
3
4
5
6
7
8
Dim DerLigTaux As Long
TauxSheetName = "ModeOp" 'NOM DE FEUILLE
    LigTxDebut = 2
    ColTxDevise = "A"
With Sheets(TauxSheetName)
    DerLigTaux = .Range(ColTxDevise & LigTxDebut).End(xlDown).Row
    .Range(ColTxDevise & LigTxDebut & ":" & ColTxDevise & DerLigTaux).Name = "Devise"
End With

[zouzoliver]

Merci bien Rdurupt pour cette réponse brève mais efficace.

Je n'avais pas pensé à remplacer le .[A2] par .Range(LaVariable).

Je clôture le sujet.

Bonne journée