Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Nommage dynamique en VBA

Nommage dynamique en VBA

2 réponses
Avatar
Synergie
Pour définir un nom dans XL 2002,la formule suivante fonctionne parfaitement :
DECALER($A$11:$F$11;;;NBVAL($A:$A)-1)
Pour déclarer ce même nom en VBA la formule transformée suivante ne "marche
pas" :
ActiveWorkbook.Names.Add Name:="PAIrubrique",
RefersTo:="=OFFSET(PAIrubrique!$A$11:$F$11,,,COUNTA(PAIrubrique!$A:$A)-1)"

Par contre celle-ci fonctionne, mais elle correspond à NB et non pas NBVAL :
ActiveWorkbook.Names.Add Name:="PAIrubrique",
RefersTo:="=OFFSET(PAIrubrique!$A$11:$F$11,,,COUNT(PAIrubrique!$A:$A)-1)"

QQ a t'il la réponse pour pouvoir compter le nombre de cellules chiffres ou
lettres en VBA (correspondance en VBA de NBVAL ).
Merci d'avance
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
ru-th
Salut

un exemple que j'utilise fréquemment
Sub ZoneTablo()
ActiveWorkbook.Names.Add Name:="tablo", RefersToR1C1:= _
"=OFFSET(" & ActiveSheet.Name & "!R1C1,,,COUNTA(" & ActiveSheet.Name
& "!C1),COUNTA(" & ActiveSheet.Name & "!R1))"
End Sub
a+
rural thierry

"Synergie" a écrit dans le message de
news:
Pour définir un nom dans XL 2002,la formule suivante fonctionne
parfaitement :

DECALER($A$11:$F$11;;;NBVAL($A:$A)-1)
Pour déclarer ce même nom en VBA la formule transformée suivante ne
"marche

pas" :
ActiveWorkbook.Names.Add Name:="PAIrubrique",
RefersTo:="=OFFSET(PAIrubrique!$A$11:$F$11,,,COUNTA(PAIrubrique!$A:$A)-1)"

Par contre celle-ci fonctionne, mais elle correspond à NB et non pas NBVAL
:

ActiveWorkbook.Names.Add Name:="PAIrubrique",
RefersTo:="=OFFSET(PAIrubrique!$A$11:$F$11,,,COUNT(PAIrubrique!$A:$A)-1)"

QQ a t'il la réponse pour pouvoir compter le nombre de cellules chiffres
ou

lettres en VBA (correspondance en VBA de NBVAL ).
Merci d'avance


Avatar
Synergie
Merci pour la réponse qui m'a poussé à persister avec COUNTA et ça marche !:

ActiveWorkbook.Names.Add Name:="PAIrubrique", RefersTo:="=OFFSET_
(PAIrubrique!$A$11:$F$11,,,COUNTA(PAIrubrique!$A:$A)-1)"

j'avais du oublier que (;) enXL devient( , ) en VBA
Suite aux nombreux problèmes de références que j'ai rencontré lors de la
création des noms avec la boite de dialogue XL, maintenant, je crée les noms
par programmation VBA.

QQ à t'il une expérience à partager sur le sujet et des conseils à donner ?

Merci


Salut

un exemple que j'utilise fréquemment
Sub ZoneTablo()
ActiveWorkbook.Names.Add Name:="tablo", RefersToR1C1:= _
"=OFFSET(" & ActiveSheet.Name & "!R1C1,,,COUNTA(" & ActiveSheet.Name
& "!C1),COUNTA(" & ActiveSheet.Name & "!R1))"
End Sub
a+
rural thierry

"Synergie" a écrit dans le message de
news:
Pour définir un nom dans XL 2002,la formule suivante fonctionne
parfaitement :

DECALER($A$11:$F$11;;;NBVAL($A:$A)-1)
Pour déclarer ce même nom en VBA la formule transformée suivante ne
"marche

pas" :
ActiveWorkbook.Names.Add Name:="PAIrubrique",
RefersTo:="=OFFSET(PAIrubrique!$A$11:$F$11,,,COUNTA(PAIrubrique!$A:$A)-1)"

Par contre celle-ci fonctionne, mais elle correspond à NB et non pas NBVAL
:

ActiveWorkbook.Names.Add Name:="PAIrubrique",
RefersTo:="=OFFSET(PAIrubrique!$A$11:$F$11,,,COUNT(PAIrubrique!$A:$A)-1)"

QQ a t'il la réponse pour pouvoir compter le nombre de cellules chiffres
ou

lettres en VBA (correspondance en VBA de NBVAL ).
Merci d'avance