affectation de nom à des cellules

Bonjour à tous,

Mon problème :

Je récupère, à partir d'une boîte de dialogue inputbox, une variable que j'inscris sur la première cellule disponible d'une ligne.

Je souhaiterais affecter à toute la colonne qui reçoit la valeur de la variable, le nom de cette variable.

Exemple : si reponse = inputbox (''''''''''''''''''''')
si reponse = Jean, et que la cellule qui reçoit "Jean" est la cellule (L1C6), je souhaiterais que toutes les cellules de la colonne C6 se voient attribuer le nom "Jean".

Mais vous aurez bien compris que, lorsque j'écris le code, je ne connais ni "Jean" ni la colonne d'affectation.

Pour écrire correctement ce code, j'ai besoin d'un sérieux coup de main car je n'arrive pas compléter, notamment, la partie "refersto.......".

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

'insertion du nom du client reponse = InputBox("Entrez le nom du client", "Insertion nom du client", vbOKOnly) Label2.Caption = reponse Label2.Visible = True 'recherche de la première cellule libre de la ligne L1 ThisWorkbook.Sheets("Feuil1").Select Range("C1").Select While ActiveCell <> "" ActiveCell.Offset(0, 1).Select Wend ActiveCell.FormulaR1C1 = reponse ActiveCell.Activate ActiveCell.EntireColumn.Select ActiveWorkbook.Names.Add Name:=reponse, RefersToR1C1:=ActiveCell.EntireColumn.Select

---

Je vous remercie pour votre aide.
Cordialement,
Maurice

Bonjour,

Je pense que cette fonction répond à ce que vous attendez...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

Public Sub RangeNaming()   Dim str_Response As String Dim rg_RefersTo As Range   'Insertion du nom du client str_Response = InputBox("Entrez le nom du client", "Insertion nom du client", vbOKOnly)   'Si l'utilisateur n'a pas cliqué sur "Annuler" If str_Response <> "" Then   With Label2 .Caption = str_Response .Visible = True End With   'Recherche de la première cellule libre de la ligne L1 With ThisWorkbook.Sheets("Feuil1")   'rg_RefersTo = première cellule de la rangée 1 vide Set rg_RefersTo = .Cells(1, 1).End(xlToRight).Offset(, 1)   rg_RefersTo.Value = str_Response   End With   'Défini le nom de la colonne ActiveWorkbook.Names.Add Name:=str_Response, RefersToR1C1:=rg_RefersTo.EntireColumn   End If   End Sub

---

Bonjour "Larryj"

Je vous remercie pour votre aide à mon problème.

Je me suis donc permis de remplacer mon ancienne procédure userform_initialize() par votre contenu, en y laissant le code générant la listbox1

Je ne sais pas ce que je n'effectue pas correctement. En effet, le lancement de l'userform me demande bien d'entrer le nom du client mais, après le clic sur OK, je me retrouve avec une (erreur d'exécution '1004' : erreur définie par l’application ou par l'objet). Je précise que lorsque je lance le seul code que vous me proposez, c'est-à-dire sans le travail sur la listbox1, je tombe sur le même résultat.

Le code que j'ai donc recopié est le suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

Private Sub UserForm_Initialize() Dim str_Response As String Dim rg_RefersTo As Range Dim DerCell As String 'détermination de la longueur de la listbox1 DerCell = Range("A2").End(xlDown).Address ListBox1.RowSource = "A2:" & DerCell ListBox1.Height = ListBox1.Font.Size * (ListBox1.ListCount) * 1.25 'Insertion du nom du client str_Response = InputBox("Entrez le nom du client", "Insertion nom du client", vbOKOnly)   'Si l'utilisateur n'a pas cliqué sur "Annuler" If str_Response <> "" Then   With Label2 .Caption = str_Response .Visible = True End With   'Recherche de la première cellule libre de la ligne L1 With ThisWorkbook.Sheets("Feuil1")   'rg_RefersTo = première cellule de la rangée 1 vide Set rg_RefersTo = .Cells(1, 1).End(xlToRight).Offset(, 1)   rg_RefersTo.Value = str_Response   End With   'Défini le nom de la colonne ActiveWorkbook.Names.Add Name:=str_Response, RefersToR1C1:=rg_RefersTo.EntireColumn   End If End Sub

---

Pourriez-vous, encore une fois, examiner ma difficulté ? Je vous en remercie par avance.

Cordialement,
Maurice

Bonjour,

Dans les cas comme le tien, il est plus sympa de cliquer sur débugger quand le message d'erreur t'est présenter et de nous indiquer la ligne de code qui provoque l'erreur en question.

A+
PPz

Bonjour,

dans ce cas très précis, je ne vois pas, comme dans certains cas où le pop-up "OK, déboguez, annuler" est présenté, où je dois cliquer comme vous me le demandez.

La seule manœuvre qui m'est autorisée par la boîte de dialogue est : "OK" ou "aide". Lorsque je clique sur "OK", Feuil1 est affichée sans aucun changement.

Je comprends bien qu'il est souhaitable de mieux renseigner mais je ne vois pas, en l'état de la situation, ce que peux/dois faire.

Merci encore et d'avance pour le coup de pouce.

Cordialement,
Maurice

Bonjour,

Je viens de tester ton code.
Comme je n'ai pas la définition précise de ton menu interactif, j'ai progressivement enlevé les éléments associés (listbox1 et label2) dans ce cas le logiciel fonctionne.

Donc si tu as un Pb 1004 après la saisie, c'est sûrement lié à ton Label2 qui est juste après.

A+
PPz

Rebonjour "PPz78"

J'ai donc moi aussi "épuré" le code et je l'ai même introduit dans un classeur tout neuf.

Code utilisé :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Dim str_Response As String Dim rg_RefersTo As Range   'Insertion du nom du client str_Response = InputBox("Entrez le nom du client", "Insertion nom du client", vbOKOnly)   'Si l'utilisateur n'a pas cliqué sur "Annuler" If str_Response <> "" Then   'Recherche de la première cellule libre de la ligne L1 With ThisWorkbook.Sheets("Feuil1")   'rg_RefersTo = première cellule de la rangée 1 vide Set rg_RefersTo = .Cells(1, 1).End(xlToRight).Offset(, 1)   rg_RefersTo.Value = str_Response   End With   'Défini le nom de la colonne ActiveWorkbook.Names.Add Name:=str_Response, RefersToR1C1:=rg_RefersTo.EntireColumn   End If

---

J'aboutis toujours sur mon erreur 1004. Je ne comprends donc pas !:cry:... ce qui se passe chez moi. Je dois être bouché à l'émeri et ça m'énerve :furax: !

Je reviens donc à l'assaut... peut-être vais-je enfin comprendre ce que j'oublie. Sans être un limier de VBA, j'arrive souvent à comprendre mes erreurs mais là... je deviens un vrai :boulet:

@+ et toujours avec mes remerciements anticipés,
Maurice

Salut Maurice,

Moral il faut garder.

Ton code fonctionne parfaitement chez moi (Excel 2003).
Je te propose:
1- redémarrer ta machine et refaire le test
2- lancer l'exécution dans le mode pas à pas pour essayer de détecter ce qui cloche.

A+
PPz

Bonjour "Larryj", bonjour" PPz78",

Ouah ! J'ai réussi à faire fonctionner... partiellement. Je ne comprends donc toujours pas ce que je n'écris pas bien.

Je m'explique et je joins le fichier concerné( "nomcolonne1").

J'ai en effet, pour tenter de cerner ma difficulté, créé un fichier excel 2010 tout neuf. J'ai copié/collé la proposition de Larryj puis j'ai simplement supprimé les références au label2 que je n'ai pas créé sur ce fichier tout neuf.

Ce que je constate :

1. sans faire d'autre, je lance la macro; là, je chute sur "ma" difficulté connue :
   "Erreur d’exécution '1004' Erreur définie par l'application ou par l'objet"
2. en mettant une valeur dans la cellule "A1", je rechute sur le même mauvais résultat
3. en n'entrant aucune valeur en "A1" mais une valeur en "A2", la routine fonctionne mais la valeur str_Response se glisse toujours en "A3" et les noms attribués, successifs donc, se réfèrent toujours à la colonne 3
4. si je remplis "A1" et "A2", tout fonctionne correctement

Vous comprendrez que je me trouve démuni lorsque les uns et les autres me disent : "chez moi, ça marche !":calim2:

Je vous remercie d'avance pour votre examen et vos conseils avertis.

Très cordialement,
Maurice

Rebonjour,

En revisitant mon dernier message, je n'ai pas su voir le fichier que j'ai voulu joindre.

Donc pour compléter, il s'agit d'un fichier xlsm 2010 et, pour l'userform créé, de la procédure suivante :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Private Sub UserForm_Initialize()   Dim str_Response As String Dim rg_RefersTo As Range   'Insertion du nom du client str_Response = InputBox("Entrez le nom du client", "Insertion nom du client", vbOKOnly)   'Si l'utilisateur n'a pas cliqué sur "Annuler" If str_Response <> "" Then     'Recherche de la première cellule libre de la ligne L1 With ThisWorkbook.Sheets("Feuil1")   'rg_RefersTo = première cellule de la rangée 1 vide Set rg_RefersTo = .Cells(1, 1).End(xlToRight).Offset(, 1)   rg_RefersTo.Value = str_Response   End With   'Défini le nom de la colonne ActiveWorkbook.Names.Add Name:=str_Response, RefersToR1C1:=rg_RefersTo.EntireColumn   End If End Sub

---

Je vous remercie pour l'aide apportée.

Cordialement,
Maurice

Bonjour à tous,

Je suis étonné de ne pas avoir eu d'écho à mon dernier message. C'est tellement rare sur ce forum !

En tout cas, je ne veux surtout pas faire preuve d'impatience voire d'impertinence mais je souhaite vraiment avoir un coup de main, une explication pour, sinon résoudre ma difficulté, au moins la contourner.

Merci d'avance à tous ceux qui examineront le code VBA ci-dessous et pourquoi, moi, je n'arrive pas à le faire tourner correctement.

Bon week-end à tous,
Maurice

Autrement

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Dim Rep As String, Ref As String Dim NewCol As Integer   Rep = InputBox("Entrez le nom du client", "Insertion nom du client", vbOKOnly) If Rep <> "" Then With ThisWorkbook With .Sheets("Feuil1") NewCol = .Cells(1, .Columns.Count).End(xlToLeft).Column NewCol = IIf(NewCol = 1 And .Range("A1") = "", 1, NewCol + 1) .Cells(1, NewCol).Value = Rep Ref = .Columns(NewCol).Address End With .Names.Add Name:=Rep, RefersTo:="=Feuil1!" & Ref End With End If

---

salut

je n'ai jamais aimé du tout cette manière ( .End(xl....) ) de rechercher une cellule vide.

Dans certains cas, notamment si l'on recherche la première vide, elle peut littéralement générer un désastre.
Preuve :
ligne 1 complètement vide :

Code:

---

MsgBox .Cells(1, 1).End(xlToRight).Column

---

retournera .... la dernière colonne possible (16384) avec ma version de la feuille et non la première
Il est alors bien clair que si l'on veut aller à la colonne suivante par un offset, on se suicide :(

Pour chercher la première vide sans faille, il suffit de se référer au N° de colonne de la plage composée des cellules vides (c'est toujours vrai) !
ainsi, donc :

Code:

---

MsgBox .Rows(1).SpecialCells(xlCellTypeBlanks).Column

---

ça dépends du contexte d'utilisation aussi et des cas extrêmes.

Code:

---

.Rows(1).SpecialCells(xlCellTypeBlanks).Column

---

n'est pas aussi infaillible pour 2 raisons:
1. Toute la ligne est remplie. -> Erreur
2. Donne la première cellule vide (même si après il y a des valeurs)! parfois en recherche l'ultime cellule remplie

salut mercatog

le contexte est- ici celui-ci :

Citation:

---

Envoyé par mauriceguillier

Je récupère, à partir d'une boîte de dialogue inputbox, une variable que j'inscris sur la première cellule disponible d'une ligne.

---

Quant aux précautions à prendre, il suffit d'utliser :

Code:

---

.Usedrange.columns.count

---

et de le comparer à

Code:

---

Application.Columns.Count

---

et de prendre la décision adéquate
C'est ainsi que je travaille, personnellement.

EDIT :
et tu parlais des "cas extrêmes" ...
Alors regarde : il est en plein dedans :

Citation:

---

Envoyé par mauriceguillier

[*]en mettant une valeur dans la cellule "A1", je rechute sur le même mauvais résultat

---

car il obtenait également, dans ce cas, la dernière colonne possible et non la première vide ;)

Salut babaothe
En généralisant puis ensuite en parlant du cas spécifique, c'est pourquoi j'avais préféré

Code:

---

.Cells(1, .Columns.Count).End(xlToLeft).Column

---

qui donne la première cellule remplie en allant de la droite vers la gauche ou A1 au cas où toute la ligne est soit remplie, soit vide.
Bon, ça dépend des contexte et chaque méthode est utile si elle est bien utilisée.

Bonjour Mercatog, bonjour Babaothe,

Je viens de prendre connaissance de la réponse de Mercatog (son bout de code dont je le remercie) puis de la riche discussion entre vous deux.

Tout d'abord, je veux préciser que ce que propose Mercatog fonctionne déjà comme je le souhaite sur un fichier neuf.

Mais comme le précise Babaothe, il est important que je remplisse la première cellule vide rencontrée par le balayage de la ligne considérée, en partant de la cellule colonne A.

En effet, mes variables sont des noms de clients qui, malheureusement, doivent être parfois supprimés. Je souhaite donc que la cellule devenue vide puisse être occupée par le nom du premier nouveau client que j'ajouterais. Cela me permet de ne pas avoir de "trou" dans ma liste.

En fin de compte, je vais tenter d'analyser vos propositions et - le pourrai-je ? - construire le code "parfait" cosigné Mercatog-Babaothe.

Bonne fin de dimanche à vous deux et, bien sûr, je reste à votre écoute.

Cordialement,
Maurice

Bonjour Mercatog, Babaothe, et à tous ceux qui m'ont aidé à résoudre mon problème,

Youpie, ça marche !

Mais j'ai dû me rabattre, me semble-t-il, sur un code que j'ai retotoché par de l'amateurisme :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Dim Rep As String, Ref As String Dim NewCol As Integer 'Insertion du nom du client Rep = InputBox("Entrez le nom du client", "Insertion nom du client", vbOKOnly) If Rep <> "" Then With ThisWorkbook With .Sheets("Feuil1") Range("C1").Activate NewCol = 3 While ActiveCell <> "" ActiveCell.Offset(0, 1).Select NewCol = NewCol + 1 Wend .Cells(1, NewCol).Value = Rep Ref = .Columns(NewCol).Address End With .Names.Add Name:=Rep, RefersTo:="=Feuil1!" & Ref End With End If

---

Ainsi, le premier nom s'installe à la première cellule vide de la ligne 1 à partir de la cellule (Ligne1, colonne3). Si des trous existent dans la ligne 1, ils sont bien remplis, à leur ordre, par le code. Bien sûr, les noms sont bien affectés au colonnes correspondantes... grâce à vous.

Sans doute, vous pourriez professionnaliser le bout de code que j'ai introduit sur la partie qui a fait débat entre Mercatog et Babaothe... et que, comme je le laissais supposer dans mon message précédent, je n'ai pas su complètement appréhender.

En tout cas, merci encore.

Très cordialement,
Maurice

ben !

Je vois que finalement tu ne coimmences pas à la 1ère colonne mais à la colonne C de la ligne 1 !
Alors voilà, en adaptant à ce départ là, comment appliquer mon code à la partie concernée pour faire la même chose :

Code:

---

1 2 3 4 5 6 7 8 9 10

'....... With ThisWorkbook With .Sheets("Feuil1") NewCol = .Range(Cells(1, 3), Cells(1, Cells.Columns.Count)).SpecialCells(xlCellTypeBlanks).Column .Cells(1, NewCol).Value = Rep ref = .Columns(NewCol).Address End With .Names.Add Name:=Rep, RefersTo:="=Feuil1!" & ref End With '......

---

Rebonjour Babaothe,

Voilà donc un bout de code professionnel !

Merci encore !

Maintenant, je vais également adapter pour nommer des lignes et enfin pouvoir affecter des valeurs aux intersections des "noms colonnes" et des "noms lignes". En effet, mon objectif est de récupérer une valeur (nombre de tel ou tel produit sélectionné par tel ou tel client) entré sur demande et de l'inscrire à l'intersection du produit considéré et du client en question.

Vous m'avez permis d'avancer à grands pas : superbe ! :ccool:

Très cordialement,
Maurice