msgbox

[bochacl]

Bonjour à tous,
Je veux mettre une alerte dans une colonne (E6:E60) où l'on doit saisir des chiffres quand la feuille est en rapport (cell. B1:B2 = 'Rapport Visites' et non quand cette même feuille est utilisée en Planning Visites, mon problème est que je dois tester B1:B2 sur le libellé si 'Planning Visites' pas possible de saisir des chiffres dans la colonne E6:E60, merci de me renseigner sur une solution possible.

cdt

 

[Gibson94]

Bonjour Bochacl, le forum,

Ci-joint un petit fichier qui devrait correspondre à ta demande ( si j'ai bien interprêté évidemment).

La macro se trouve dans le code de la feuille...

[file name=PlanningVisites.zip size=7933]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/PlanningVisites.zip[/file]

 

[bochacl]

Merci Gibson94 pour ton aide,

mais je rencontre un problème car j'ai un autre sub idem, je l'ai assemblé mais un fonction (le calendrier) mai pas la mgsbox !

ci-joint le code :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range('E6:E60')) Is Nothing Then
UserForm1.Show
End If
If Not Application.Intersect(Target, Range('F1:F1')) Is Nothing Then
UserForm1.Show
End If
If ActiveCell.Row > 5 And ActiveCell.Row < 61 And ActiveCell.Column = 5 Then
If Range('A2').Value = 'Planning visites' Then
MsgBox ' Vous êtes dans le PLANNING VISITES ne pas saisir de C.A. '
Range('E5').Select
End If
End If
End Sub

Merci encore pour ton aide

cdt

 

[Gibson94]

Bonjour Bochacl, le forum,

Je n'ai pas trop compris le sens de ton dernier post, mais je suppose que le résultat espéré serait soit l'apparition de la msgbox, soit celle de l'USF.

Ci-joint un nouveau fichier.

[file name=PlanningVisites2.zip size=11714]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/PlanningVisites2.zip[/file]

 

[bochacl]

Hello Gibson94,

Merci pour ton aide, ça marche c'est ce que je voulais obtenir.

@ + 🙂

 

[Gibson94]

Bonsoir Bochacl, le forum,

Content d'avoir pu t'aider sur ce coup-là.

A la prochaine...galère...lol