Discussion :

[Un Internaute]

Bonsoir a tous,
Depuis l'ajout de Option explicit la macro bug sinon elle fonctionne bien.
Variable?
Merci de vous éventuels retours

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option explicit
Sub PageMenu()
'
' PageMenu Macro
' Macro enregistrée par ***
Dim nombre As Integer
 nombre = ActiveWorkbook.Sheets.Count
 Application.ScreenUpdating = False
 For I = 1 To nombre
 Worksheets(I).Unprotect Password:="blabla"
 Next I
   Application.ScreenUpdating = False
  AfficherOnglets
   Sheets("Janvier 2014").Select
  Range("A1").Select
   End Sub

[mercatog]

Option Explicit te force à déclarer toutes les variables utilisées.

Exemple ton I n'est pas declaré

[Un Internaute]

Bonsoir mercatog,
Exactement.
Je fais quoi stp?
Bien cordialement

[clementmarcotte]

Bonjour,

Tu ajoutes:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

dim i as integer

dans une nouvelle ligne avant ta ligne qui utilise ton i. Personnellement, j'essaie de mettre mes déclarations de variables dans un bloc de lignes immédiatement après la ligne sub().

C'est le même principe pour toutes tes variables.

[Un Internaute]

Bonjour clementmarcotte,
Merci Merci ça fonctionne bien.
Bon WE à toi
Bien cordialement

[Un Internaute]

Bonjour à tous,
Bug à la ligne ModeRecalcul
Merci pour vos éventuels retours
Cordialement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Option Explicit
Sub SuppColonnesVides()
ActiveSheet.Unprotect
ModeRecalcul = Application.Calculation
' Réglage du recalcul sur mode manuel
Application.Calculation = xlCalculationManual
With ActiveSheet.UsedRange
dercol = .Column + .Columns.Count - 1
End With
Application.ScreenUpdating = False
For c = dercol To 1 Step -1
If Application.CountA(Columns(c)) = 0 Then Columns(c).Delete
Next c
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, _
Scenarios:=True
Application.Calculation = ModeRecalcul
 
End Sub

[Philippe Tulliez]

Bonjour,
C'est la même réponse que celle donnée par Mercatog

Option Explicit te force à déclarer toutes les variables utilisées.
Exemple ton I n'est pas declaré

et répétée par Clément

dans une nouvelle ligne avant ta ligne qui utilise ton i. Personnellement, j'essaie de mettre mes déclarations de variables dans un bloc de lignes immédiatement après la ligne sub().
C'est le même principe pour toutes tes variables.

L'instruction Option Explicit t'oblige à déclarer toutes tes variables donc tu dois déclarer la variable ModeRecalcul avant de l'utiliser et comme l'a suggéré Clément, déclare tes variables en début de procédure.

[casefayere]

Bonjour abel, Philippe, le forum
sinon je pense que "ModeRecalcul = Application.Calculation" dans le contexte est inutile

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub SuppColonnesVides()
'j'ai estimé que tu as déclaré tes variables(dercol,c)
ActiveSheet.Unprotect
Application.Calculation = xlCalculationManual
With ActiveSheet
  dercol = .Cells(1, .Columns.Count).End(xlToLeft).Column 'si ta plage commence en ligne 1
End With
Application.ScreenUpdating = False
For c = dercol To 1 Step -1
  If Application.CountA(Columns(c)) = 0 Then Columns(c).Delete
Next c
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, _
Scenarios:=True
Application.Calculation = xlCalculationAutomatic
 
End Sub

[Philippe Tulliez]

Bonjour Dominique,

sinon je pense que "ModeRecalcul = Application.Calculation" dans le contexte est inutile

Le fait de sauver la propriété du mode de recalcul avant de la mettre en mode manuel permet de restituer le même mode après avoir terminé le process. Ainsi l'utilisateur retrouve le mode de recalcule tel qu'il avait souhaité.

[casefayere]

oui Philippe, je suis d'accord et j'ai peut-être tort de penser que très souvent, quand on passe en mode manuel, c'est qu'on était en automatique

et j'en ai profité pour donner à Abel une autre façon de voir le numéro de la dernière colonne car j'ai du mal à comprendre sa propre ligne, donc

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
.......
dercol = .Cells(1, .Columns.Count).End(xlToLeft).Column
.........

plutôt que

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

dercol = .Column + .Columns.Count - 1

mais j'ai encore là, peut-être, mal cerné le problème

Bonne journée

[Un Internaute]

oui Philippe, je suis d'accord et j'ai peut-être tort de penser que très souvent, quand on passe en mode manuel, c'est qu'on était en automatique

et j'en ai profité pour donner à Abel une autre façon de voir le numéro de la dernière colonne car j'ai du mal à comprendre sa propre ligne, donc

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
.......
dercol = .Cells(1, .Columns.Count).End(xlToLeft).Column
.........

plutôt que

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

dercol = .Column + .Columns.Count - 1

mais j'ai encore là, peut-être, mal cerné le problème

Bonne journée

Bonjour casefayere,
Non ça ne fonctionne pas.
J'ai 16 programmes de 9 modules chacun, qui fonctionnent parfaitement. Mais je veux ajouter Option Explicit a chacun pour mon "savoir", car je considère que nous somme des éternel apprentis!!!
Bien cordialement à toi

[casefayere]

Non ça ne fonctionne pas.

Qu'est-ce qui ne fonctionne pas ? de plus, je ne vois pas le rapport entre ma proposition et ce que tu réponds

J'ai 16 programmes de 9 modules chacun, qui fonctionnent parfaitement. Mais je veux ajouter Option Explicit a chacun pour mon "savoir", car je considère que nous somme des éternel apprentis!!!
Bien cordialement à toi

[Philippe Tulliez]

Bonjour Dominique,

je ne vois pas le rapport entre ma proposition et ce que tu réponds

Je partage ton questionnement.

[casefayere]

Merci Philippe, ça me rassure, j'ai envie de dire à Abel, ne pas oublier de cocher la "déclaration des variables obligatoire" dans les options de l'éditeur

A Abel, quand tu dis

j'ai 16 programmes de 9 modules chacun, qui fonctionnent parfaitement

dois-je traduire par

j'ai 16 modules de 9 procédures chacun, qui fonctionnent parfaitement

?

[Un Internaute]

Merci Philippe, ça me rassure, j'ai envie de dire à Abel, ne pas oublier de cocher la "déclaration des variables obligatoire" dans les options de l'éditeur

A Abel, quand tu dis dois-je traduire par ?

Bonjour casefayere,
Oui la "déclaration des variables obligatoire" dans les options de l'éditeur est bien cochée.
Je vais essayer de gratter par moi-même (pas facile pour vous sans le fichier) et je reviens sur le forum si "catastrophe"!!!
Veuillez m'excusez pour tout le dérangement occasionné!
Bien cordialement à vous tous et plus particulièrement à casefayere

[casefayere]

Je vais essayer de gratter par moi-même (pas facile pour vous sans le fichier) et je reviens sur le forum si "catastrophe"!!!

A ce stade, tu pouvais envoyer une version edulcorée du fichier en version "xls" ou en compressé, donc avec tes macros (surtout pas en xlsx)

Veuillez m'excusez pour tout le dérangement occasionné!

Si tu nous déranges, on n'est pas obligé de répondre alors rassures-toi

[Un Internaute]

Voilà les amis.
Après avoir fait mes 7 kms de marche obligatoire suite à une intervention à cœur ouvert de 10 heures. J'ai croisé mes potes de marche sans les saluer!!! Tellement j'étais dans mon truc.
En revenant mes oui quel CON!!! Bon je n'ai pas ajouté "et je m'y connais"!!! Ah! il ne faut pas vieillir les neurones commencent à faire défaut!!!
Merci à vous tous et plus particulièrement à toi casefayere .
Bonne fin de soirée et bon WE

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Option Explicit
Sub SuppColonnesVides()
Dim ModeRecalcul As Integer
Dim Dercol As Integer
Dim C As Integer
 
ActiveSheet.Unprotect
ModeRecalcul = Application.Calculation
' Réglage du recalcul sur mode manuel
Application.Calculation = xlCalculationManual
With ActiveSheet.UsedRange
Dercol = .Column + .Columns.Count - 1
End With
Application.ScreenUpdating = False
For C = Dercol To 1 Step -1
If Application.CountA(Columns(C)) = 0 Then Columns(C).Delete
Next C
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, _
Scenarios:=True
Application.Calculation = ModeRecalcul
 
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Option Explicit
Sub PageMenu()
'
' PageMenu Macro
' Macro enregistrée par ***
Dim nombre As Integer
 nombre = ActiveWorkbook.Sheets.Count
 Application.ScreenUpdating = False
 Dim i As Integer
 For i = 1 To nombre
 Worksheets(i).Unprotect Password:="blabla"
 Next i
   Application.ScreenUpdating = False
  AfficherOnglets
   Sheets("Janvier 2014").Select
  Range("A1").Select
   End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Option Explicit
Sub RenommerFeuilles()
Dim Sh As Worksheet
    For Each Sh In Worksheets
        Sh.Name = Replace(Sh.Name, "2014", "2015")
    Next