Définir nom pour données variables.

[aubelix]

Bonsoir à tous les amis du Forum. 🙂

Je sollicite votre aide pour le problème suivant:
Comment modifier la macro que j'ai défini pour les valeurs de la colonne B
pour lui changer de nom en fonction sans message d'alerte en fonction
des données qui sont variables.
Je dois redéfinir le nom à chaque lancement d'un userform.

Par avance, Merci pour votre aide.
Cordialement.

 

[CB60]

Re : Définir nom pour données variables.

Bonjour
Si j'ai compris, tu a nommé ta colonne B avec le nom Plage.
Il te suffit de remplacer les references de cellule par cela:

=DECALER(Feuil1!$B$2;;;NBVAL(Feuil1!$B:$B)-1)

et ensuite dans ta macro tu appelle " Plage"

 

[Cousinhub]

Re : Définir nom pour données variables.

Bonjour,

Bonjour, Bruno 🙂

En VBA, tu peux également le faire ainsi :

Feuil1.Range("B2", Feuil1.[B65000].End(xlUp)).Name = "Plage"

Bonne journée

 

[aubelix]

Re : Définir nom pour données variables.

Bonjour les amis du Forum et BhBh 🙂

Merci pour ta réponse.

Une précision, que fauti-il déclarer dans le type de variable ?

Feuil1.Range("B2", Feuil1.[B65000].End(xlUp)).Name = "Plage"

Quel code pour sélectionner de B2 à B65000].End(xlUp) et lui donner
le nom de "plage".

Par avance Merci pour votre aide.

Cordialement.

 

[MJ13]

Re : Définir nom pour données variables.

Bonjour à tous

Une précision, que fauti-il déclarer dans le type de variable ?


Code:
Feuil1.Range("B2", Feuil1.[B65000].End(xlUp)).Name = "Plage"

Aubelix: Ton code ne me paraît pas être une syntaxe très correcte. Sinon essaye avec l'enregistreur de macro (comme il existe, autant en profiter🙂) pour avoir la bonne syntaxe. Ensuite tu pourras l'adapter plus facilement.

 

[Cousinhub]

Re : Définir nom pour données variables.

Re-,

Euh...

que fauti-il déclarer dans le type de variable ?

Rien

Quel code pour sélectionner de B2 à B65000].End(xlUp) et lui donner
le nom de "plage".

Celui fourni

Essaie, et regarde dans Insertion/Nom/Définir....

Bonne soirée

 

[Cousinhub]

Re : Définir nom pour données variables.

Aubelix: Ton code ne me paraît pas être une syntaxe très correcte. Sinon essaye avec l'enregistreur de macro (comme il existe, autant en profiter🙂) pour avoir la bonne syntaxe. Ensuite tu pourras l'adapter plus facilement.

Bonsoir, Michel...

J'ai fourni à aubelix ce code, et je ne vois pas du tout en quoi sa syntaxe n'est pas correcte....

Si tu pouvais développer (nota, ça fait un bon bout de temps que je l'utilise, et je n'ai jamais eu de soucis avec....)

Bonne soirée

 

[CB60]

Re : Définir nom pour données variables.

re
BhBh, oui oui ton code fonctionne, avec une petite adaptation je viens de l'utiliser pour un autre post:

test = Chr(64 + Target.Column)
test1 = Cells(65536, test).End(xlUp).Address
Feuil1.Range(test & "2", test1).Name = "colchoix"

 

[MJ13]

Re : Définir nom pour données variables.

Re, bonjour BHBH, CB60

Autant pour moi 😱, j'avais l'impression que Aubelix avait mis ce code en l'écrivant et cela ne ma paraissait pas très catholique, mais si cela fonctionne, c'est tant mieux.
Il est vrai qu'il y a parfois des syntaxes qui peuvent paraître non fonctionnelles et qui le sont. C'est ce qui est bien avec le VBA, c'est qu'on peut en apprendre tous les jours. je note 🙂.

En plus, j'utilise souvent le range(cells(a,b),cells(c,d)).

 

[aubelix]

Re : Définir nom pour données variables.

Re 🙂

Je n'ai jamais remis en cause vos codes, ni vos compétences, loin de là...
Mai je cherchais un code "générique" pour ne pas à demander à chaque fois :
A partir de la cellule (dans ce cas B2) sélectionner toutes les données de la colonne B jusqu'à la dernière cellule non vide et définir le nom de la
sélection "Plage".

Par avance, Merci pour votre aide.
Cordialement.

 

[Cousinhub]

Re : Définir nom pour données variables.

Re-,

@ Aubelix

Il n'a jamais été question de mauvaise foi, ni quoi que ce soit, de ta part.

Cependant, tu n'as pas du essayer mon code...

Lis bien ma réponse #6

Tu mets ce code en début de procédure, tu exécutes, et regarde dans les noms définis...

 

[aubelix]

Re : Définir nom pour données variables.

Re 🙂

Je reviens vers vous pour essayer de trouver une solution à mon problème.
Ci-dessous, code que j'ai récupéré et dont je me sert.
Si je définis manuellemnt la plage, cela fonctionne.
Je sélectionne toutes les données >> Insertion/Nom/Définir et je tape "Plage".
C'est pour cela que je demandais d'affecter le nom "Plage"
automatiquement aux données de longueur variable de la colonne B

Par avance, Merci pour votre aide.
Cordialement.

Private Sub UserForm_Initialize()
    Dim V_i As Byte, V_n As Byte, Fait
 
    TextBox1.Value = "REF " & Range("J7").Value
    ListBox1.RowSource = "BASE!" & Range("[COLOR=red]plage[/COLOR]").Address
    For V_i = 0 To Range("[COLOR=red]plage[/COLOR]").Count
        ListBox1.Selected(V_i) = False
    Next
    If ActiveCell = "" Then Exit Sub
    Fait = Split(Replace(ActiveCell, Chr(10), ";"), ";")

 

[MJ13]

Re : Définir nom pour données variables.

Re

Aubelix: Je commence à me demander si tu comprends ce que tu fais 😛!

Pourquoi ne définis-tu pas en Name "plage", avec le code de BHBH par exemple?

 

[aubelix]

Re : Définir nom pour données variables.

Re 🙂

Merci pour ta réponse.

Je récupère des codes, que j'essaie d'adapter.
Dans le cas présent, le code que j'ai récupéré fait ce que je lui demande.
à condition que les données de la colonne B le nom de plage soit défini
avec les valeurs de la colonne B. De longueurs variables.
Je ne peux pas dire mieux....

Cordialement.

 

[CB60]

Re : Définir nom pour données variables.

Re tous
Pourquoi tu ne mets pas ton fichier avec l'USF, cela permettra d'adapter et tu pourras voir comment faire