Discussion :

[Pompaero]

Bonjour le forum

Petite question pour m'aider svp.

Voilà j'ai une feuille et je souhaite modifier l'onglet par rapport a une cellule (jusque là ça va)
mais
maintenant je souhaite des lors que ma cellule est vide que l'onglet prenne une autre cellule?

Ex: si cellule A1 est non vide l'onglet est = à A1
MAIS
si cellule A1 est vide l'onglet est = à A2

Mon code

Code :

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

1
2
3
4
5
6
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$12" And Target <> "" Then
ActiveSheet.Name = Target.Value
End If
 
End Sub

Merçi a vous

Cordialement

[_C14_]

Voici une proposition

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Public Sub ModifierNOM_ONGLET()
Dim l As Integer
 
'DCL LE NOM GENERIQUE DE LA FEUILLE, C'EST A DIRE AVANT LE PASSAGE DE LA SUB
Dim TelNom As String: TelNom = "Nouv NOM"
 
Dim ws As Worksheet
Set ws = Application.Sheets(TelNom)
    With ws
        .Activate
        'en supposant qu'il y une liste de cellules proposant soit "" soit TelNom
        'la liste étant de la cell(1,1) à Cell(5,1)
        For l = 1 To 5
            If Cells(l, 1).Value <> "" Then
                ws.Name = Cells(l, 1).Value
                Exit For
            End If
        Next l
    End With
 
Set ws = Nothing
 
End Sub

Bien cordialement.

[Pompaero]

bonsoir C14

Merci de ta reponse aussi rapide pour ta solution qui marche bien, mais n'y aurait-il pas (a titre d'info pour moi) une solution moins technique qui peu s'adapter à mon code, stp.

Merci cordialement

[_C14_]

Pouvez vous préciser la question ?

[Pompaero]

Désolé C14.

en B12 j'ai une liste deroulante et en C6 un sous titre qui change également.

Ma question par rapport a mon code est savoir si il est possible d'ajouter quelque chose pour que si B12 est vide que se soit C6 qui s'incrive dans l'onglet ?

Merci cordialement

[_C14_]

Si tu es sur des références en mode static (avec des $) voici une éventuelle adaptation de ta version

Code :

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

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$12" And Target.Value <> "" Then
        ActiveSheet.Name = Target.Value
    Else
        ActiveSheet.Name = Range("$C$6").Value
    End If
End Sub

A tester