Bonjour à tous
Je débute en VBA (seul).
Je cherche à créer une macro permettant de nommer un onglet à partir de deux valeurs dans une cellule
le tableau excel se présente ainsi
colonne A colonne B colonne B colonne C colonne C
1 Phase 2 phases 1 phase 2 phases
Lot 1 x
Lot 2 x
Lot 3
etc
Je veux qu'en mettant les croix comme dans l'exemple soient renommer des onglets déjà existants en :
Lot 1 - phase 1
Lot 2 - phase 1 et Lot 2 - phase 2
J'ai d'ores et déjà une macro qui ne permet que de masquer certains onglets en fonction de là où l'on coche. Mais je ne sait pas comment renommer automatiquement les onglets...
Private Sub CommandButton1_Click()
If Range("B13") = "1" Then
Sheets("Lot 1 - phase 2").Visible = False
Sheets("CE - phase 2").Visible = False
End If
If Range("C13") = "1" Then
Sheets("Lot 1 - phase 2").Visible = True
Sheets("CE - phase 2").Visible = True
End If
If Range("C13") = "2" Then
Sheets("Lot 2 - phase 2").Visible = True
Sheets("CE LOt 2 - phase 2").Visible = True
End If
End Sub
Voilà, j'espère que j'ai été clair...
Merci d'avance pour votre aide
Je débute en VBA (seul).
Je cherche à créer une macro permettant de nommer un onglet à partir de deux valeurs dans une cellule
le tableau excel se présente ainsi
colonne A colonne B colonne B colonne C colonne C
1 Phase 2 phases 1 phase 2 phases
Lot 1 x
Lot 2 x
Lot 3
etc
Je veux qu'en mettant les croix comme dans l'exemple soient renommer des onglets déjà existants en :
Lot 1 - phase 1
Lot 2 - phase 1 et Lot 2 - phase 2
J'ai d'ores et déjà une macro qui ne permet que de masquer certains onglets en fonction de là où l'on coche. Mais je ne sait pas comment renommer automatiquement les onglets...
Private Sub CommandButton1_Click()
If Range("B13") = "1" Then
Sheets("Lot 1 - phase 2").Visible = False
Sheets("CE - phase 2").Visible = False
End If
If Range("C13") = "1" Then
Sheets("Lot 1 - phase 2").Visible = True
Sheets("CE - phase 2").Visible = True
End If
If Range("C13") = "2" Then
Sheets("Lot 2 - phase 2").Visible = True
Sheets("CE LOt 2 - phase 2").Visible = True
End If
End Sub
Voilà, j'espère que j'ai été clair...
Merci d'avance pour votre aide