Discussion :

[Caro6]

Bonjour à tous,

Je cherche à effectuer plusieurs contrôles sur plusieurs onglets sauf 3.

J'ai commencé à écrire un bout de code en jaune mais je sèche pour la suite.

Pouvez-vous m'aider svp. Je ne suis malheureusement pas une AS en VBA.

Merci d'avance

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
 
 
ThisWorkbook.Activate
 
Dim fl As Worksheet
 
               For Each fl In Worksheets
 
   ' If fl.Name <> "MENU" And fl.Name <> "infos" And fl.Name <> "Définition des frais" Then
 
'Vérifier présence numéro préfac
 
    If ThisWorkbook.Sheets("Base").Range("G4") = "" Then
        Cancel = True
        MsgBox "G4Attention des données sont vides, veuillez remplir les cellules vides."
    End If
'Next
 
'Filtrer les cellules en mise en forme conditionnelle
 
'Test 1
 
Worksheets("base").Activate
Range("$A$6:$P$800").AutoFilter Field:=1, Criteria1:=RGB(248, 203, 173), Operator:=xlFilterCellColor
 
    x = Range("$A$6:$A$800").SpecialCells(xlCellTypeVisible).Count
        If x > 1 Then
            msg = "A:" & x
        End If
 
    Worksheets("base").AutoFilterMode = False
 
'Test 2
Worksheets("base").Activate
Range("$A$6:$P$800").AutoFilter Field:=2, Criteria1:=RGB(248, 203, 173), Operator:=xlFilterCellColor
 
    x = Range("$B$6:$B$800").SpecialCells(xlCellTypeVisible).Count
        If x > 1 Then
        If msg <> "" Then msg = msg & Chr(13)
            msg = "B:" & x
        End If
 
Worksheets("base").AutoFilterMode = False

[Thautheme]

Bonjour Caro, bonjour le forum,

Il te suffit, pour spécifier l'onglet de la boucle d'utiliser la variable fl. par exemple :

Code :

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

If ThisWorkbook.Sheets("Base").Range("G4") = "" Then

devient :

Code :

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

If fl.Range("G4") = "" Then

[Caro6]

Bonjour Caro, bonjour le forum,

Il te suffit, pour spécifier l'onglet de la boucle d'utiliser la variable fl. par exemple :

Code :

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

If ThisWorkbook.Sheets("Base").Range("G4") = "" Then

devient :

Code :

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

If fl.Range("G4") = "" Then

Bonjour Thautheme,

Du coup si je mets fl comme variable j'ai juste à mettre pour déterminer ma variable

fl <> "MENU" And fl <> "infos" And fl <> "Définition des frais"

ou dois-je mettre quand même fl.n=Name ?

et juste après je mets mes IF

Peux-tu me confirmer stp

[Caro6]

J'ai trouvé ce code qui marche très bien mais ma formule s'applique sur les onglets MENU, infos et Définition des frais alors que je veux qu'elle s'applique sur tous les onglets sauf ces 3 là.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim Feuille As Worksheet
 
For Each Feuille In ThisWorkbook.Worksheets
    If Not Feuille.Name = "MENU" Or Feuille.Name = "infos" Or Feuille.Name = "Définition des frais" Then
        With Feuille
            'ICI vous mettez le code que vous souhaitez voir exécurer sur les trois feuilles
            If Feuille.Range("F4") = "" Then
            Cancel = True
            MsgBox "G4 vide" & .Name
            End If
        End With
    End If
'Ici le code du copié/collé
Next Feuille

[Philippe Tulliez]

Bonjour,

J'ai trouvé ce code qui marche très bien mais ma formule s'applique sur les onglets MENU, infos et Définition des frais alors que je veux qu'elle s'applique sur tous les onglets sauf ces 3 là.

As-tu essayé le Select Case ?

[Thautheme]

Bonjour le fil, bonjour le forum,

J'aurais plutôt écris :

Code :

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

If Not Feuille.Name = "MENU" And Not Feuille.Name = "infos" And Not Feuille.Name = "Définition des frais" Then MsgBox Feuille.Name

[Édition]
Bonjour Philippe, nos posts se sont croisés. Oui le Select Case est beaucoup plus explicite...

[Caro6]

Bonjour le fil, bonjour le forum,

J'aurais plutôt écris :

Code :

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

If Not Feuille.Name = "MENU" And Not Feuille.Name = "infos" And Not Feuille.Name = "Définition des frais" Then MsgBox Feuille.Name

[Édition]
Bonjour Philippe, nos posts se sont croisés. Oui le Select Case est beaucoup plus explicite...

Mais oui bien sur j'avais rajouté les "Not" mais effectivement c'est bien "And" et non "Or"

Merci à toi Thautheme ça marche niquel !

[MarcelG]

Bonjour Caro,

Ne t'inquiète pas. Nous passons tous par ce stade.

Pourrais-tu baliser ton code avec #, s'il te plaît, il n'en sera que plus visible

Tout d'abord:

Code :

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

1
2
3
4
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
 
 
 ThisWorkbook.Activate

L'activation est redondante.

Un conseil, rémanent sur le Forum.
Bien rattacher les objets entre eux, notamment les cellules à leur feuille parent.
Pour ce faire, i est conseillé, pour une lisibilité améliorée du code, d'utiliser le bloc With.

Maintenant, la question est
- Que veux-tu faire exactement? Quel est ton besoin?
Comme en mathématiques en général , et en probabilités en particulier, exposer clairement un besoin revient presque à résoudre pour moitié sa problématique.
- Si tu as lancé l'exécution du code, y a-t-il une erreur survenue? Laquelle? Où?

Dans l'attente de te lire.

[Philippe Tulliez]

Bonjour,
Si j'ai bien compris ta demande, tu cherches à modifier cette ligne de code

Code :

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

If fl.Name <> "MENU" And fl.Name <> "infos" And fl.Name <> "Définition des frais" Then

Je te suggère l'utilisation du Select Case bien plus simple dans ce cas précis

Exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub t()
  Dim sht As Worksheet
  For Each sht In ThisWorkbook.Worksheets
    With sht
      Select Case .Name
        Case "Menu", "Info", "Serveur"
          MsgBox "Pas de traitement sur la feuille " & .Name
        Case Else
          MsgBox "Traitement sur la feuille " & .Name
      End Select
    End With
  Next
  Set sht = Nothing
End Sub