Microsoft 365 Exclure feuille

Staple1600

XLDnaute Barbatruc

• 7 Mars 2020

• #2

Bonjour

le nom de la feuille à exclure déjà ...

 

Vote positif 0 Vote négatif

M

Moreno076

XLDnaute Impliqué

• 7 Mars 2020

• #3

Staple1600 à dit:

Bonjour

le nom de la feuille à exclure déjà ...

Cliquez pour agrandir...

Bonjour "Activité"

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 7 Mars 2020

• #4

Re

Donc
If Ws.Name <> "Activité" Then
Cette ligne te parle ou pas ?

 

Vote positif 0 Vote négatif

M

Moreno076

XLDnaute Impliqué

• 7 Mars 2020

• #5

Si le nom de feuille est "activité alors

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 7 Mars 2020

• #6

Re

Absolument pas!
Si le nom de la feuille est différent d'Activité ...alors

Tu as donc la ligne VBA
Ma question était pour te demander : sais-tu où l'insérer dans ton code existant ?

 

Vote positif 0 Vote négatif

M

Moreno076

XLDnaute Impliqué

• 7 Mars 2020

• #7

Private Sub Workbook_Open()
Dim Rng As Range, ws As Worksheet
Application.AskToUpdateLinks = True
' Semaine en lignes

If Ws.Name <> "Activité" Then
For Each ws In ThisWorkbook.Worksheets

Set Rng = ws.[B3]
' Semaine en Colonnes

If IsEmpty(Rng.Value) Then
On Error Resume Next
Rng.Value = CDate(InputBox("Veuillez rentrer la date du 1er jour de la semaine", "Ouverture " & ws.Name, Date))
If Rng.Value = "" Then MsgBox "Date absente en " & ws.Name
End If
End If
Next ws
End Sub

 

Vote positif 0 Vote négatif

M

Moreno076

XLDnaute Impliqué

• 7 Mars 2020

• #8

non ce n 'est pas ça ca bloque en bas Un seul End if?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 7 Mars 2020

• #9

Re

C'est plutôt comme ceci

VB:

Private Sub Workbook_Open()
Dim ws As Worksheet
Application.AskToUpdateLinks = True
On Error Resume Next
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "Activité" Then
If IsEmpty(ws.[B3]) Then
ws.[B3] = CDate(InputBox("Veuillez rentrer la date du 1er jour de la semaine", "Ouverture " & ws.Name, Date))
If Len(ws.[B3]) = 0 Then MsgBox "Date absente en " & ws.Name, vbCritical
End If
End If
Next ws
End Sub

PS: j'ai fait quelques autres modifs juste par envie

 

Vote positif 0 Vote négatif

M

Moreno076

XLDnaute Impliqué

• 7 Mars 2020

• #10

a une ligne pres lol merci bien

 

Vote positif 0 Vote négatif

J

jmfmarques

XLDnaute Accro

• 7 Mars 2020

• #11

BONJOUR
Je vois surtout une instruction Next qui n'est pas à sa place logique.

 

Vote positif 0 Vote négatif

Solution