pour éviter les pb du fait de l'absence de données en I10 et L10, ce
code met 0 si vide dans certaines feuilles (respecte les données et les
formules).
Cela semble fonctionner, mais y a t il plus élégant, allégé ?
Merci
J@@
'*****************
Sub MetZeroEnIetLdix()
Dim Feuille As Worksheet
Dim sht As Worksheet
Application.ScreenUpdating = False
On Error Resume Next
For Each Feuille In ActiveWorkbook.Worksheets '5 feuilles
If Feuille.Name <> "ListeFeuilles" _
And Feuille.Name <> "RapDoc" _
And Feuille.Name <> "Etat_" Then
Feuille.Select
For Each sht In ActiveWorkbook.Windows(1).SelectedSheets
ActiveSheet.Unprotect
If [i10].Value = "" Then [i10].Value = "0"
If [L10].Value = "" Then [L10].Value = "0"
ActiveSheet.Next.Select
Next sht
End If
Next Feuille
End Sub
'*****************
Je t'ai fourni un bout de code démontrant comment utiliser un Select Case avec cette procédure hier...
Ce n'est pas suffisant ?
P.S. Pour ne faire ce que tu veux, nul besoin de sélectionner chacune des feuilles pour que cela fonctionne... Regarde le code proposé hier...
Il serait prudent en début de code d'ajouter la ligne de code suivante : Application.EnableEvents = False
et à la fin du code :
Application.EnableEvents = True
Si les propositions faites ne sont pas satisfaisantes, il faudrait peut-être que tu définisses précisément pourquoi et le problème que tu cherches à résoudre.
MichD -------------------------------------------- "J@@" a écrit dans le message de groupe de discussion : imrmib$7db$
Bonjour à tous
pour éviter les pb du fait de l'absence de données en I10 et L10, ce code met 0 si vide dans certaines feuilles (respecte les données et les formules). Cela semble fonctionner, mais y a t il plus élégant, allégé ? Merci J@@ '***************** Sub MetZeroEnIetLdix() Dim Feuille As Worksheet Dim sht As Worksheet Application.ScreenUpdating = False On Error Resume Next For Each Feuille In ActiveWorkbook.Worksheets '5 feuilles If Feuille.Name <> "ListeFeuilles" _ And Feuille.Name <> "RapDoc" _ And Feuille.Name <> "Etat_" Then Feuille.Select For Each sht In ActiveWorkbook.Windows(1).SelectedSheets ActiveSheet.Unprotect If [i10].Value = "" Then [i10].Value = "0" If [L10].Value = "" Then [L10].Value = "0" ActiveSheet.Next.Select Next sht End If Next Feuille End Sub '*****************
Je t'ai fourni un bout de code démontrant comment utiliser un Select Case avec cette procédure hier...
Ce n'est pas suffisant ?
P.S. Pour ne faire ce que tu veux, nul besoin de sélectionner chacune des feuilles pour que cela fonctionne...
Regarde le code proposé hier...
Il serait prudent en début de code d'ajouter la ligne de code suivante :
Application.EnableEvents = False
et à la fin du code :
Application.EnableEvents = True
Si les propositions faites ne sont pas satisfaisantes, il faudrait peut-être que tu définisses
précisément pourquoi et le problème que tu cherches à résoudre.
MichD
--------------------------------------------
"J@@" a écrit dans le message de groupe de discussion : imrmib$7db$1@speranza.aioe.org...
Bonjour à tous
pour éviter les pb du fait de l'absence de données en I10 et L10, ce
code met 0 si vide dans certaines feuilles (respecte les données et les
formules).
Cela semble fonctionner, mais y a t il plus élégant, allégé ?
Merci
J@@
'*****************
Sub MetZeroEnIetLdix()
Dim Feuille As Worksheet
Dim sht As Worksheet
Application.ScreenUpdating = False
On Error Resume Next
For Each Feuille In ActiveWorkbook.Worksheets '5 feuilles
If Feuille.Name <> "ListeFeuilles" _
And Feuille.Name <> "RapDoc" _
And Feuille.Name <> "Etat_" Then
Feuille.Select
For Each sht In ActiveWorkbook.Windows(1).SelectedSheets
ActiveSheet.Unprotect
If [i10].Value = "" Then [i10].Value = "0"
If [L10].Value = "" Then [L10].Value = "0"
ActiveSheet.Next.Select
Next sht
End If
Next Feuille
End Sub
'*****************
Je t'ai fourni un bout de code démontrant comment utiliser un Select Case avec cette procédure hier...
Ce n'est pas suffisant ?
P.S. Pour ne faire ce que tu veux, nul besoin de sélectionner chacune des feuilles pour que cela fonctionne... Regarde le code proposé hier...
Il serait prudent en début de code d'ajouter la ligne de code suivante : Application.EnableEvents = False
et à la fin du code :
Application.EnableEvents = True
Si les propositions faites ne sont pas satisfaisantes, il faudrait peut-être que tu définisses précisément pourquoi et le problème que tu cherches à résoudre.
MichD -------------------------------------------- "J@@" a écrit dans le message de groupe de discussion : imrmib$7db$
Bonjour à tous
pour éviter les pb du fait de l'absence de données en I10 et L10, ce code met 0 si vide dans certaines feuilles (respecte les données et les formules). Cela semble fonctionner, mais y a t il plus élégant, allégé ? Merci J@@ '***************** Sub MetZeroEnIetLdix() Dim Feuille As Worksheet Dim sht As Worksheet Application.ScreenUpdating = False On Error Resume Next For Each Feuille In ActiveWorkbook.Worksheets '5 feuilles If Feuille.Name <> "ListeFeuilles" _ And Feuille.Name <> "RapDoc" _ And Feuille.Name <> "Etat_" Then Feuille.Select For Each sht In ActiveWorkbook.Windows(1).SelectedSheets ActiveSheet.Unprotect If [i10].Value = "" Then [i10].Value = "0" If [L10].Value = "" Then [L10].Value = "0" ActiveSheet.Next.Select Next sht End If Next Feuille End Sub '*****************