If activesheet = feuil4 then

Bonsoir le Forum,

Je bloque sur un petit code, je voudrais renommer un label d'une certaine façon si une feuille est active. J'ai essayer mais ça ne fonctionne pas:

If ActiveSheet = BonDeLivraison Then
Feuil4.Activate
Me.Label25 = "Nombre de place disponible dans le Bon de Livraison:"
Me.TextCompteCaseVide = Range("B22:B32").SpecialCells(xlCellTypeBlanks).Count / 8
ElseIf ActiveSheet = BonDeCommande Then
Feuil5.Activate
Me.Label25 = "Nombre de place disponible dans le Bon de Comande:"
Me.TextCompteCaseVide = Range("B22:B32").SpecialCells(xlCellTypeBlanks).Count / 8
End If

Il y a un bug avec le "Activesheet = ...." , merci d'avance pour votre aide.

Cordialement

Bonsoir,

Il y a un bug avec le "Activesheet = ...."

A tout hasard....

If ActiveSheet.name = "BonDeLivraison" Then

.....

Sub test()
 Dim nb, onglet As String, txt As String
  nb = ActiveSheet.Range("B22:B32").SpecialCells(xlCellTypeBlanks).Count / 8

 Select Case ActiveSheet.Name
  Case "BonDeLivraison"
   onglet = "Feuil4": txt = "Bon de livraison"
  Case "BonDeCommande"
   onglet = "Feuil5": txt = "Bon de commande"
 End Select

 With Sheets(onglet)
   .Activate
   .Label25 = "Nombre de place disponible dans le " & txt & " :"
   .TextCompteCaseVide = nb
 End With

End Sub

Cordialement,

Bonjour Xorsankukai,

Merci beaucoup pour ton aide, la 2éme proposition est un peut complexe mais c'est une bonne idée merci.

Cordialement.