Discussion :

[bykeman]

Bonjour à tous,

Voilà, j’aimerai développer , dans un de mes tableau excel, une macro, associée à un bouton :

Si la case D8 est remplie, c’est parfait, on passe à la condition suivante
Sinon, message d’erreur « veuillez selectionner vos initiales »

Ensuite, Si la case E14 est remplie, alors la case F14 doit etre remplie, la case L14doit etre <>0 et les cases GHIJK 35 doivent être égales à 1 (et cela pour les lignes 14 à 33)
Si ce n'est pas le cas, message d’erreur « veuillez vérifier vos activités et vos entrées temps »
Par contre, si la case E14 n’est pas remplie, alors la case F14 est vide et la case L14 doit être =0

Si tout est vérifié, la macro enregistre le fichier et ferme le classeur.

Je suppose qu'il faut utiliser la fonction IF et une boucle...cependant, je suis nu gros débutant...

Merci de m’aider,

Cordialement

[Godzestla]

Salut Bykeman (fan de bike ?)

Bienvenue au forum :

En vitesse ta solution pourrait être :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
if Range("D8").value = "" then
  Msgbox.....
 else
  for line = 14 to 33
  If Range("E" & line).value <> "" then
    if Range("F" & line).value = "" or Range("L" & Line).value = 0 Or Range("G" &line).value <> 1 Or Range("H" &line).value <> 1 Or Range("H" &line).value <> 1  Or Range("I" &line).value <> 1 Or Range("J" &line).value <> 1 Or Range("K" &line).value <> 1  then
       Msgbox.....
   endif
 next line
endif

NB : je n'ai pas compris ton 35 après HGIJK, car s'il est juste, ta conbdition ne doit pas etre dans la boucle des lignes 14 à 33

[bykeman]

Merci de ta réponse ( et je suis un ancien fan de bike )

Par contre, ce que je souaites pour les lignes HGIJK, c'est que si la colonne E est remplie, alors au moins une des cellule HGIJK 35 doit être égale à 100%...

Le mieux c'est que je te montre mon tableau.. quel est le moyen le plus simple?

En tout cas, encore merci d'avoir passer un peu de temps sur mon problème

[bykeman]

Après avoir remodelé mon tableau, Je pense ne plus être moin de la solution! Par contre, comment faire arreter la macro automatiquement après l'affichage d'un message d'erreur? (je voudrai un équivalent du "stop" qui se trouve sous ma première msgbox, car ce stop ne fonctionne pas, et la macro me lance le débogeur a chaque fois...)

Si aucnu message d'erreur, la macro enregristre le fichier, sinon, la mcro s'arrete après le message d'erreur
voici mon code:

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
Sub Envoyer_click() 
 
If Range("j4" ).Value = "" Then 
MsgBox "Veuillez sélectionner vos initiales" 
Stop 
Else 
  For Line = 10 To 29 
        If Range("k" & Line).Value <> "" Then 
            If Range("l" & Line).Value = "" Then 
            MsgBox "Veuillez vérifier vos thèmes" 
 
                ElseIf Range("r" & Line).Value = 0 Then 
                MsgBox "Veuillez vérifier vos entrées temps" 
 
                    ElseIf Range("m31" ) <> 1 Or Range("n31" ) <> 1 Or Range("o31" ) <> 1 Or Range("p31" ) <> 1 Or Range("q31" ) <> 1 Then 
                    MsgBox "Veuillez vérifier vos entrées temps" 
 
            End If 
        End If 
 
 Next Line 
 
ActiveWorkbook.saveas Filename:=Range("c1" ) & "\DT" & Range("u5" ) & ".xls" 
 
End If 
 
End Sub

[fring]

B'jour,

Code :

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

1
2
3
If Range("j4" ).Value = "" Then 
MsgBox "Veuillez sélectionner vos initiales" 
Exit Sub

[bykeman]

Merci God et Fring, tout marche à la perfection!!!!

Mais j'a une dernière petite question:
J'aimerai que la personne qui ouvre le fichier ai juste accès au tableau (aucune barre d'outils, aucun ccès a la barre de menu etc....) Comment faire?

Merci encore

[Godzestla]

Puis-je te suggérer de cloturer ce post et de faire un nouveau pour ta question

Mais j'a une dernière petite question:
J'aimerai que la personne qui ouvre le fichier ai juste accès au tableau (aucune barre d'outils, aucun ccès a la barre de menu etc....) Comment faire?

Cela rendra plus exploitable la fonction de recherche sur le forum après.

Merci de cloturer ce post-ci par

[fring]

Juste une question avant de proposer une solution, faut-il que l'utilisateur puisse sauvegarder le classeur ? Si oui par quel moyen comptes-tu le faire si plus aucune barre d'outils ? On ferme le classeur comment, par la petite croix ?