Bug Macro avec Option Explicit

Version imprimable

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

Code:

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

06/06/2014, 20h12
mercatog

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

Exemple ton I n'est pas declaré
06/06/2014, 20h15
Un Internaute

Bonsoir mercatog,
Exactement.
Je fais quoi stp?
Bien cordialement
06/06/2014, 22h01
clementmarcotte

Bonjour,

Tu ajoutes:

Code:

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.
07/06/2014, 07h42
Un Internaute

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

Bug dans ce module également

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

Code:

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

07/06/2014, 11h36
Philippe Tulliez

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

Citation:

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

Citation:

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.

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

Code:

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

07/06/2014, 12h07
Philippe Tulliez

Bonjour Dominique,

Citation:

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é.
07/06/2014, 12h16
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 :roll:

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:

1 2 3 ....... dercol = .Cells(1, .Columns.Count).End(xlToLeft).Column .........
plutôt que

Code:

dercol = .Column + .Columns.Count - 1

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

Bonne journée
07/06/2014, 13h15
Un Internaute
Citation:
Envoyé par 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 :roll:

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:

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

plutôt que

Code:

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
07/06/2014, 14h24
casefayere

Citation:

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

Citation:

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
07/06/2014, 15h55
Philippe Tulliez

Bonjour Dominique,

Citation:

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

Je partage ton questionnement.
07/06/2014, 16h15
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

Citation:

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

dois-je traduire par

Citation:

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

?
07/06/2014, 16h52
Un Internaute

Citation:

Envoyé par 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 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
07/06/2014, 17h06
casefayere

Citation:

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)

Citation:

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

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:

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:

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:

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