renomer un onglet

[phiphi27]

Bonjour à tous
Voila j'ai par exemple d'en une cellule A1 un nom "phiphi" je cherche a l'aide d'un bouton nomer l'onglet de la feuille "phiphi" avec un code VBA
Merci

 

[tototiti2008]

Re : renomer un onglet

Bonjour phiphi27,

pas sûr d'avoir compris

peut-être :

Sub NommeFeuille()
activesheet.name = range("A1")
end sub

 

[Efgé]

Re : renomer un onglet

Bonjour phiphi27, tototiti2008
Comme toujours je suis plus lent que la moyenne, mais comme j'ai fait quelque chose je le poste...
Cordialement

 

[ROGER2327]

Re : renomer un onglet

Bonjour phiphi27

Voyez le classeur joint.
Code dans le module de la feuille concernée :

[COLOR="DarkSlateGray"][B]Sub mon_nom()
   On Error Resume Next
   Me.Name = [A1].Value
   On Error GoTo 0
End Sub[/B][/COLOR]

ROGER2327
#2405

_____
bonjour à tous : le plus lent, c'est moi...

 

[tototiti2008]

Re : renomer un onglet

Bonjour à tous,

bonjour à tous : le plus lent, c'est moi...

peut-être, Roger, mais au moins tu gères les cas d'erreurs 😉

 

[ROGER2327]

Re : renomer un onglet

Re...

Bonjour à tous,



peut-être, Roger, mais au moins tu gères les cas d'erreurs 😉

Bonjour tototiti2008

Je ne gère pas vraiment les cas d'erreurs, j'évite juste le plantage.
Pour un réelle gestion des erreurs, on peut faire quelque chose de ce genre :

[COLOR="DarkSlateGray"][B]Sub mon_nom()
Dim errMsg As String, i As Long
   On Error GoTo A
   Me.Name = [A1].Value
   On Error GoTo 0
Exit Sub
[COLOR="SeaGreen"]'[/COLOR]
A: errMsg = """" & [A1].Value & """ n'est pas un nom valide."
   With ThisWorkbook.Sheets
      For i = 1 To .Count
         If UCase(.Item(i).Name) = UCase([A1].Value) Then
            errMsg = "Il existe déjà une feuille nommée """ & _
               .Item(i).Name & """ dans ce classeur."
            Exit For
         End If
      Next i
   End With
   MsgBox errMsg, vbOKOnly, "Attention !"
Resume Next
[COLOR="SeaGreen"]'[/COLOR]
End Sub[/B][/COLOR]

ROGER2327
#2406

 

[natorp]

Re : renomer un onglet

Un régal, comme dit Roger "quelque chose de ce genre", comme si c'était si facile....
vraiment très fort le ROGER....

merci....
Gérard

 

[phiphi27]

Re : renomer un onglet

Merci a tous pour ce petit code VBA mon problème est résolu
En plus je n'avais pas pensé au cas d'un onglet pouvant avoir le même nom
Bonne journée