Copier la valeur d'une cellule pour nommer un onglet

Bonjour,

Avec ce code :

Private Sub CommandButton1_Click()
Sheets("Feuil2").Name = Sheets("Feuil1").Range("A1").Value
End Sub

Attention, ce code :
- ne fonctionne qu'une seule fois, puisque la feuille "Feuil2" est renommée
- ne fonctionne pas en cas de :
>cellule A1 vide
>cellule A1 contenant des caractères "interdits" par Microsoft

Donc, penser à faire quelques tests pour éviter les erreurs, du genre :

If Sheets("Feuil1").Range("A1") = "" Then Exit Sub

ou :

If Instr(Sheets("Feuil1").Range("A1").Value, "/") > 0 Then Exit Sub

.....

Oui.
Mais n'oublie pas mes autres conseils...

A+

Tu veux le numéro de la première ligne vide de la colonne J par exemple :

Dim DernLigne As Long
DernLigne = Range("J" & Rows.Count).End(xlUp).Row + 1

Avec ce numéro, il t'es aisé de "nommer" la cellule correspondante :

Range("J" & DernLigne).Value = 

1- lorsque tu places des lignes de code sur le forum, il convient d'utiliser les "balises" code pour la mise en forme. Pour cela, jette un oeil par ici.
2- oui tu peux faire ça, mais ça ne fonctionnera pas.
Essaye plutôt ceci :

Private Sub TextBox_Nom_Change()
Dim DernLigne As Long
DernLigne = Range("B" & Rows.Count).End(xlUp).Row + 1
Range("B" & DernLigne).Value = TextBox_Nom.Value
End Sub

Cependant, à chaque changement dans ton textbox, la macro va s'exécuter. Donc, si tu veux inscrire "BONJOUR" dans ton textbox, le résultat, dans ta feuille sera :
en B3 : B
en B4 : BO
en B5 : BON
...
en B8 : BONJOU
en B9 : BONJOUR
Pour n'obtenir que BONJOUR en B3, tu devrais crée un CommandButton, qui, lors d'un clic, déclencherai ta procédure.
Comme ceci :

Private Sub CommandButton1_Click()
Dim DernLigne As Long
DernLigne = Range("B" & Rows.Count).End(xlUp).Row + 1
Range("B" & DernLigne).Value = TextBox_Nom.Value
End Sub

Oui et?
Tu n'es pas limité.....

Bonjour,

Oui j'avais bien compris.
Donc tu as plusieurs choix.
Soit tu ajoutes un bouton de commande qui servira à écrire "Bonjour" dans ta cellule lorsque tu l'auras saisi et après avoir cliqué sur ton bouton. Je t'ai déjà donné ce code.
Soit tu utilises, au lieu de l'événement Change() de ton TextBox un autre événement.
Exemples :

avec l'événement Exit :
!! ATTENTION : il te faut une "porte de sortie", donc au moins un autre contrôle qui puisse avoir le focus dans ton UserForm (ex : un second textbox)

Private Sub TextBox_Nom_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim DernLigne As Long
DernLigne = Range("B" & Rows.Count).End(xlUp).Row + 1
Range("B" & DernLigne).Value = TextBox_Nom.Value
End Sub

avec l'événement KeyDown :
KeyDown = touche appuyée. Ici on va utiliser la touche "Entrée" (KeyCode = 13) pour valider notre saisie.

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim DernLigne As Long
'Si la touche n'est pas la touche Entrée, on ne fait rien
If KeyCode <> 13 Then Exit Sub
DernLigne = Range("B" & Rows.Count).End(xlUp).Row + 1
Range("B" & DernLigne).Value = TextBox1.Value
End Sub

What Else?

Bonjour,

je cherche moi aussi à nommer les onglets d'un fichier en fonction de la valeur d'une cellule dans chacun des onglets.

De plus, est ce que cela fonctionne si la valeur de la cellule qui donne le nom de l'onglet est le résultat d'une formule? (par ex la valeur donnée par une rechV ou autre)

Je sais que la solution est au dessus, mais malheureusement, je n'y comprend vraiment pas grand chose aux macros... Si quelqu'un avait l'amabilité et la patience de pouvoir détailler un peu plus le processus, ça serait vraiment sympa!

Merci d'avance, cordialement!