Discussion :

[VanlindtMarc]

Bonsoir à tous

Cela fait deux bonnes heures que je cale sur la manière de nommer une cellule en VBA en cliquant sur le bouton d'un formulaire.
L'un de vous aurait une idée ??

Pour le moment j'en suis à ce test et je ne comprend pas pourquoi ça ne fonctionne pas.

Déjà, ça ne plante pas \o/

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    ActiveWorkbook.Names.Add Name:=TextBox1, RefersToR1C1:=Range("'MaFeuille'!B3:D100")(MaLigne, MaColonne + 1)

[VanlindtMarc]

Si je fais ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    Range("'Infos, DB et aides'!B3:D100")(MaLigne, MaColonne + 1).Value = TextBox4
    Range("'Infos, DB et aides'!B3:D100")(MaLigne, MaColonne + 1).Name = TextBox5

La cellule prend bien la valeur mais pas le nom.

[anasecu]

Bonsoir,

Tu devrais essayer ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    ActiveWorkbook.Names.Add Name:=TextBox1, RefersToR1C1:="='" & MaFeuille & "'!R" & MaLigne & "C" & MaColonne & ""

[VanlindtMarc]

Bonsoir,

Tu devrais essayer ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    ActiveWorkbook.Names.Add Name:=TextBox1, RefersToR1C1:="='" & MaFeuille & "'!R" & MaLigne & "C" & MaColonne & ""

Merci beaucoup!

J'ai l'impression, en effet, que c'est quelque chose dans ce genre là que je dois faire mais je ne vois pas où est l'erreur
Voici le code complet :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton1_Click()
    MaFeuille = Sheets("Infos, DB et aides")
    PrixTableau = Range("'Infos, DB et aides'!B3:C100")
    MaLigne = Range("'Infos, DB et aides'!B3:C100").Find(ListBox1).Row - 2
    MaColonne = Range("'Infos, DB et aides'!B3:C100").Find(ListBox1).Column
 
    Range("'Infos, DB et aides'!B3:D100")(MaLigne, MaColonne).Value = TextBox3
    Range("'Infos, DB et aides'!B3:D100")(MaLigne, MaColonne + 1).Value = TextBox4
 
    ActiveWorkbook.Names.Add Name:=TextBox5, RefersToR1C1:="='" & MaFeuille & "'!R" & MaLigne & "C" & MaColonne + 1 & ""
 
End Sub

[eriiic]

Bonjour,

rien à voir avec ton pb mais tu vas avoir des soucis avec cette syntaxe :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("'Infos, DB et aides'!B3:C100").Find(ListBox1)

.find utilise les derniers paramètres utilisés par l'utilisateur (désolé, je suis en panne de synonymes à cette heure).
C'est à dire s'il a utilisé 'Contient' tu risques de ramener une ligne erronée.
Regarde l'aide de range.find, il faut toujours fixer les paramètres lookat et lookin
eric

[VanlindtMarc]

Super!! Merci!! Je check ça demain matin

Merci beaucoup