passer à une autre feuille

Version imprimable

bjr à tous
j'ai développer une macro dans vba excel dont le but est de comparer les problèmes avec les pièces de rechange et me donne un MsgBox lorsque j'active la feuille.
Code:

1 2 3 4 5 6 7 8 Private Sub Workbook_SheetActivate(ByVal Sh As Object) If Sh.Name <> "Récap" And Sh.Name <> "suiviWP" Then If Application.CountA(Range("d36:d41")) <> Application.CountA(Range("n51:n61")) Then MsgBox (" " & Application.CountA(Range("d36:d41")) & " Problème (s)" & vbCrLf _ & "et " & Application.CountA(Range("n51:n61")) & " Pièce (s) à changer") End If End If End Sub
est ce que je peux avoir une macro qui me bloque si je veux passer à un autre feuille au quitter execl ( si bien sûr :

Code:

Application.CountA(Range("d36:d41")) <> Application.CountA(Range("n51:n61"))

)
merci infiniment.

23/12/2008, 11h02
decondelite

Je n'ai rien compris à ceci:

Citation:

Envoyé par abouhossam

est ce que je peux avoir une macro qui me bloque

Peux-tu expliquer ton problème de façon plus claire, stp?
23/12/2008, 11h15
abouhossam

si par exp je travail sur la feuille1 et je veux passer à la feuille2 === la macro compare Application.CountA(Range("d36:d41")) et Application.CountA(Range("n51:n61")) de la feuille1.
si Application.CountA(Range("d36:d41")) <> Application.CountA(Range("n51:n61")) === je reste sur la feuille1 est je corrige l'erreur.
merci à vous.
23/12/2008, 13h05
decondelite

Ah OK.

Eh bien dans ce cas, je te propose de "forcer" l'activation de ta feuille 1 dans la procédure "Workbook_SheetActivate" si tes deux valeurs sont différentes, et d'annuler l'enregistrement (Cancel = True) dans la procédure "Workbook_BeforeClose" dans les même conditions.

Normalement tu as maintenant assez d'éléments pour y arriver maintenant. ;)
23/12/2008, 13h23
abouhossam

merci decondelite de ton aide.
mais vraiment je n'ai pas bien compris
peux tu m'expliquer un peu avec une macro stp.:oops:
merci.

Eh bien je ne te donnerai pas tout: je n'aime pas donner du code tout cuit.
En plus je me suis trompé c'est pas BeforeSave mais BeforeClose qu'il faut utiliser (un peu la tête dans les nuages sur ce coup-là).

A placer dans le module "ThisWorkbook":
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Private Sub Workbook_BeforeClose(Cancel As Boolean) ' Le code à exécuter avant de quitter [...] Cancel = True ' à toi de trouver où le mettre [...] End Sub Private Sub Workbook_SheetActivate(ByVal Sh As Object) ' Le code à exécuter lors d'un changement de feuille [...] ' Forçage pour activer la feuille, à utiliser au bon endroit Application.EnableEvents = False Sheets("Récap").Activate Application.EnableEvents = True [...] End Sub
Désolé, mais le reste du code tu devras le trouver toi-même: ça tombe plutôt sous le sens, surtout si tu as été capable de me sortir le code que tu as donné. Je tiens à ce que tu réfléchisse un peu.

merci decondelite
j'ai bien trouvé la solution et ça marche très bien

Code:

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
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Sh As Worksheet
Set ShA = ActiveSheet
If ShA.Name <> "Récap" And ShA.Name <> "suiviWP" Then
    If Application.CountA(ShA.Range("d36:d41")) <> Application.CountA(ShA.Range("n51:n61")) Then
   Select Case MsgBox(Application.CountA(ShA.Range("d36:d41")) & "  Problème (s)" & vbCrLf _
& Application.CountA(ShA.Range("n51:n61")) & "  Pièce (s) à changer" & vbCrLf & "il faut" _
& " avoir autant de Problèmes que de pièces à changer", vbOKOnly, "ATTENTION")
    Case vbOK
Cancel = True
ShA.Select
    End Select
    End If
End If
End Sub
 
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
If Sh.Name <> "Récap" And Sh.Name <> "suiviWP" Then
    If Application.CountA(Sh.Range("d36:d41")) <> Application.CountA(Sh.Range("n51:n61")) Then
   Select Case MsgBox(Application.CountA(Sh.Range("d36:d41")) & "  Problème (s)" & vbCrLf _
& Application.CountA(Sh.Range("n51:n61")) & "  Pièce (s) à changer" & vbCrLf & "il faut" _
& " avoir autant de Problèmes que de pièces à changer", vbOKOnly, "ATTENTION")
    Case vbOK
Sh.Select
    End Select
    End If
End If
End Sub

merci à tous.