Discussion :

[Kyoichi95]

Bonjour !!
Petit nouveau sur ce forum, je sollicite votre aide.
J'aimerais savoir comment créer une macro conditionnelle dans le contexte suivant :
Sur un onglet nommé "Matrice", on aurait plusieurs cellules à remplir, dont certaines obligatoires pour compléter un autre onglet "Contrat".
Je souhaiterais savoir si il est possible de cacher l'onglet "contrat" si tous les champs obligatoires de l'onglet "Matrice" ne sont pas remplis ?
Si impossible (mais impossible n'est pas excel non ? ) est-il possible d'empêcher l'impression de l'onglet "Contrat" si tous les champs obligatoires de l'onglet "Matrice" ne sont pas remplis ?

Merci d'avance,

[FanTasTik]

Tu caches de base la feuille contrat et tu crée un bouton "Générer le contrat".
Quand tu appuies sur ce bouton : il vérifie les cellules et si c'est bon il affiche la page.

[Kyoichi95]

Merci de ta réponse, mais une question alors :
Je sais cacher et faire apparaitre la feuille avec une macro mais comment faire la macro ou commande conditionnelle? Celle qui vérifie que les dites cellules soient remplies ?

[Philippe Tulliez]

Bonjour,
Une solution parmi d'autres.
Tu nommes la plage des cellules à remplir, par exemple "Obligatoire" et tu testes avec ce code.

Code :

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

1
2
3
4
5
6
7
8
9
Sub Test()
 Dim rng As Range: Set rng = ThisWorkbook.Worksheets("Feuil1").Range("Obligatoire")
 Select Case True
  Case Is = rng.Count = Application.WorksheetFunction.CountA(rng)
   MsgBox "Tout est rempli"
  Case Else
   MsgBox "Il reste " & rng.Count - Application.WorksheetFunction.CountA(rng) & " cellule(s) à remplir"
 End Select
End Sub

[Kyoichi95]

Merci beaucoup !! En intégrant après le code pour masquer des onglets, ça marche !
Par contre, comment faire pour de la même façon masquer une forme ou un dessin qu'on ferait apparaitre ou disparaitre dans les mêmes conditions ?

[Philippe Tulliez]

Bonsoir,
Tu utilises la propriété Visible de l'objet Shape

[Qwazerty]

Salut

Un petit complément, la propriété visible de l'objet worksheet (une feuille) n'est pas un boolean, c'est à dire qu'il peut prendre plus de 2 état.
tu as donc visible, invisible et très invisible (xlveryhide).
Imagine que tu masque juste la feuille, il suffirait alors de fair un clique droit sur les onglet du classeur et de cliquer sur afficher pour faire apparaître la feuille Contrat. Hors si tu mets la feuille en veryhide, il n'est plus possible de l'afficher autrement que par du code

++
Qwaz

[Kyoichi95]

@ Qwazerty
J'utilise comme ligne de code :

Code :

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

1
2
   Sheets("Contrat FR").Activate
Sheets("Contrat FR").Visible = True

est ce que ça veut dire que je dois remplacer ".Visible" par ".xlveryhide" ?

@ corona

Bonsoir,
Tu utilises la propriété Visible de l'objet Shape

Comment je fais ça s'il te plait ?

(merci de vos réponses jusque là )

[Philippe Tulliez]

Bonjour,

Code :

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

1
2
3
4
5
 Dim sh As Shape
 Dim sht As Worksheet
 Set sht = ThisWorkbook.Worksheets("Feuil3")
 sht.Shapes("Oval 1").Visible = msoFalse ' pour rendre invisible
 ' sht.Shapes("Oval 1").Visible = msoTrue ' pour rendre visible

Et pour connaître la liste des dessins dans uine feuille, avec les mêmes variables

Code :

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

1
2
3
For Each sh In sht.Shapes
    Debug.Print sh.Name
Next

[EDIT]
Et en l'absence que Qwazerty que je salue au passage, je me permet de répondre que pour rendre une feuille réellement invisible, le code est

Code :

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

sht.Visible = xlSheetVeryHidden

Le code complet

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub t()
 Dim sh As Shape
 Dim sht As Worksheet
 Set sht = ThisWorkbook.Worksheets("Feuil3")
 For Each sh In sht.Shapes
  Debug.Print sh.Name
 Next
 sht.Visible = xlSheetVeryHidden ' Pour rendre réellement invisible une feuille
 'sht.Shapes("Oval 1").Visible = msoFalse ' pour rendre invisible
 sht.Shapes("Oval 1").Visible = msoTrue ' pour rendre visible
End Sub

[Kyoichi95]

Désolé pour le retard dans ma réponse, j'étais en vacances...

Un grand merci, ça fonctionne parfaitement !
Maintenant je souhaite corser la chose...

Je souhaiterais pouvoir afficher/masquer des onglets excels selon comment est rempli un onglet "Matrice".

On a défini une plage de cellules à remplir obligatoirement pour afficher les autres onglets, et je voudrais en plus intégrer dedans une condition supplémentaire : à savoir la cellule B10 de l'onglet "Matrice" doit comporter plus de 6 caractères. (et éventuellement B11)

Pour résumer, pour afficher les onglets cachés, il faut que la plage de cellules soit remplie et que l'une d'entre elle comporte plus de 6 caractères. Si une seule de ces conditions est fausse, alors les onglets restent cachés.

Avec l'aide que vous m'avez apporté, voici le code :
Cependant il bug... car il ne tient pas compte de la 2ème condition : même si la cellule b10 a plus de 6 caractères, il remasque les onglets aussitôt...

Si vous pouvez m'aider, 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
Macro100() 
 
 Dim rng As Range: Set rng = ThisWorkbook.Worksheets("Matrice").Range("b6:b10,b12:b14,b44:b45")
 
 Select Case True
 
  Case Is = rng.Count = Application.WorksheetFunction.CountA(rng)
   [/contents/vbscript/vbs-msgbox.php3 MsgBox] "Tout est rempli"
   Sheets("Feuil1").Activate
   Range("A1").Select
   Sheets("Feuil1").Visible = True
      Sheets("Feuil2").Activate
   Range("A1").Select
   Sheets("Feuil2").Visible = True
 
Case Else
   MsgBox "Il reste " & rng.Count - Application.WorksheetFunction.CountA(rng) & "  cellules à remplir !!"
   Sheets("Feuil1").Visible = xlSheetVeryHidden
   Sheets("Feuil2").Visible = xlSheetVeryHidden
   End Select
 
 
 If Len(b10) < 6 Then
 
     MsgBox "Pas fini !"
   Sheets("Feuil1").Visible = xlSheetVeryHidden
   Sheets("Feuil2").Visible = xlSheetVeryHidden
 
   Else
 
    Sheets("Feuil1").Activate
   Range("A1").Select
   Sheets("Feuil1").Visible = True
      Sheets("Feuil2").Activate
   Range("A1").Select
   Sheets("Feuil2").Visible = True   
 
End If
 
End Sub

[Philippe Tulliez]

Bonjour,

Pour résumer, pour afficher les onglets cachés, il faut que la plage de cellules soit remplie et que l'une d'entre elle comporte plus de 6 caractères. Si une seule de ces conditions est fausse, alors les onglets restent cachés.

Pour savoir si toutes les cellules d'une plage sont remplies utilise la fonction d'excel CountA
Pour connaître le nombre d'éléments d'une chaîne de caractères c'est la fonction texte Len()
La fonction logique pour vérifier que toutes les conditions sont remplies est And()
Petit exemple : Vérification que la plage B3:E3 de la feuille Feuil1 est totalement remplie et que le nombre de caractères de E3 est égal à 7

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
Option Explicit
Sub t()
 Dim sht As Worksheet, rng As Range
 Set sht = ThisWorkbook.Worksheets("Feuil1")
 Set rng = sht.Range("B3:E3")
 Debug.Print Application.WorksheetFunction.CountA(rng)
 Debug.Print rng(4) ' Donne la valeur du 4ème élément de la plage soit E3
 Debug.Print Len(rng(4)) ' renvoie le nombre decaractère de E3
 Select Case True
   Case Application.WorksheetFunction.CountA(rng) = 4 And Len(rng(4)) = 7
    MsgBox "Répond aux conditions"
   Case Else
    MsgBox "Ne répond pas aux conditions"
 End Select
End Sub

[Kyoichi95]

Merci !
mais ça ne marche toujours pas... Il doit y avoir quelque chose que je rate.

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
Sub Macro100()
 
 Dim sht As Worksheet, rng As Range
 Set sht = ThisWorkbook.Worksheets("Matrice")
 Set rng = sht.Range("b6:b10")
 Debug.Print Application.WorksheetFunction.CountA(rng)
 Debug.Print rng(4)
 Debug.Print Len(rng(4))
 Select Case True
   Case Application.WorksheetFunction.CountA(rng) = 4 And Len(rng(4)) = 7
    MsgBox "Répond aux conditions"
       Sheets("Feuil1").Activate
   Range("A1").Select
 
   Case Else
    MsgBox "Il reste " & rng.Count - Application.WorksheetFunction.CountA(rng) & "  cellules à remplir !!"
   Sheets("Feuil1").Visible = xlSheetVeryHidden
 
 End Select
End Sub

Avec ce code, seule la réponse "Case Else" ressort, même si les cellules b6 à b10 inclus ne sont pas vides, et que b10 contient plus de 6 caractères. J'ai fait le test, même avec 7 caractères, ça ne marche pas. (à la base, ma plage de cellules obligatoire est : Range("b6:b10,b12:b14,b44:b45") avec b10 et b:12 qui doivent contenir chacune plus de 6 caractères.)
Où ai-je mal compris ?

[Philippe Tulliez]

Bonjour,
Je fais toujours un test avant de publier du code.
Désolé mais cela fonctionne parfaitement sauf qu'en changeant les adresses (B6:B10 au lieu de mon test qui portait sur B3:E3), tu as évidemment ajouté une cellule soit 5 cellules à remplir au lieu de 4, donc CountA vaut 5 quand toutes les cellules sont rempiies et pas 4
De plus, tu écris que c'est B10 qui doit contenir plus de 6 caractères or tu testes RNG(4) et c'est RNG(5) dans ce cas là (B10 est le 5ème élément de B6:B10).

Petite remarque : Au lieu de tester le nombre de cellules remplies avec une constante, tu peux le faire avec la propriété Rng.Count

Code :

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

Case Application.WorksheetFunction.CountA(rng) = rng.Count And Len(rng(4)) = 7

Je constate aussi que le Case Else masque la Feuil1 et que si la condition est remplie tu fais un Activate sur Feuil1 or on ne sait pas activer une feuille masquée, il faut d'abord la rendre visible. Par contre, tu peux lire et écrire dans une feuille masquée.
Il n'y a aucune raison sauf si tu dois rendre la main à l'utilisateur sur cette feuille d'activer une feuille.
On le répète tous les jours sur ce forum, pas d'Activate, Select etc... c'est parfaitement inutile et cela ralenti l'exécution de la procédure.
Alors par contre

(à la base, ma plage de cellules obligatoire est : Range("b6:b10,b12:b14,b44:b45") avec b10 et b:12 qui doivent contenir chacune plus de 6 caractères.)

Ceci est un nouvel élément dont tu n'as pas parlé au début. Tes cellules ne sont pas contiguës alors Rng(x) posera problème.

[Kyoichi95]

Bonjour,
Encore merci pour votre aide.

Ensuite, je suis désolé, je ne voulais pas dire que le code que vous m'aviez donné était faux, mais seulement que je n'arrivais pas à l'utiliser comme je le voulais. Vous m'avez vraiment aidé et je vous remercie sincèrement.

Je suis newbie en vba, et je cherche à apprendre. C'est la raison pour laquelle j'ai fait les choses petit à petit, et ai corsé petit à petit ma demande. Je veux comprendre ce que je teste/fais, mais surtout ce que vous m'avez expliqué.

Désolé mais cela fonctionne parfaitement sauf qu'en changeant les adresses (B6:B10 au lieu de mon test qui portait sur B3:E3), tu as évidemment ajouté une cellule soit 5 cellules à remplir au lieu de 4, donc CountA vaut 5 quand toutes les cellules sont rempiies et pas 4

Désolé, j'ai pensé 10-6 = 4 donc je m'étais dit que c'était bon.

On le répète tous les jours sur ce forum, pas d'Activate, Select etc... c'est parfaitement inutile et cela ralenti l'exécution de la procédure.

J'ai pensé utiliser ce que j'avais appris... Mais merci, grace à vous j'ai compris que ce n'était pas nécessaire d'utiliser ces lignes.

Ceci est un nouvel élément dont tu n'as pas parlé au début. Tes cellules ne sont pas contiguës alors Rng(x) posera problème.

Une toute dernière question : dans mon cas, si ce n'est pas Rng() ; existe t'il une autre "formule" ? ou s'agit-il du Rng.Count ?

Encore merci à tous !