XL 2010 prob avec un scrip

[sebbbbb]

bonjour

le script ci-dessous me pose prob. je me doute bien que le prob correspond a la designation de l'onglet. Aussi ma question est : peut on désigner plusieurs noms de d'onglets avec la formule : "if activesheet.name ="

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = ("D1 AIRBUS, D1 E&S") Then
If Sheets("SSI").Range("A16").Value = "" Then
Cancel = True
MsgBox "ATTENTION " & vbLf & vbLf & _
"Impression autorisée seulement après confirmation que les points suivants ont été traités (cellule cochée dans L'ONGLET SSI) :" & vbLf & vbLf & _
"- Cocher Cellule A13 = déclaration Marpol déposée sur S-Wing" & vbLf & vbLf & _
"Pour la bonne transmission du dossier entre agent, la cellule ne doit être cochée que si le doc à bien été traité / transmis"

End If
End If
end sub

le script fonctionne bien si je mets seulement un nom d'onglet

merci
seb

 

[sebbbbb]

j'ai trouvé comme un grand 🙂

If ActiveSheet.Name = "D1 AIRBUS" Or ActiveSheet.Name = "D1 E&S" Then

 

[_Thierry]

Bonjour @sebbbbb , le Forum

Tant mieux si tu as trouvé tout seul, mais ce qui est sûr c'est que tu ne peux pas avoir plusieurs "ActiveSheet" en même temps comme dirait La Palisse 😉 (et ce même sur plusieurs classeurs ouverts)

Bonne journée
@+Thierry

 

[sebbbbb]

Oui merci

 

[kiki29]

Salut, juste pour information, renseigne-toi sur CodeName

 

[sebbbbb]

Merci c est sympa