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