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 : Sélectionner tout - Visualiser dans une fenêtre à part
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