Utiliser Variable avec With Sheets() – Erreur execution 424
Bonjour,
J’ai créé le code suivant (rechercher dernière cellule d’une plage et la nommer) qui fonctionne :
Code:
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:
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.
