zone de cellules rendue plus visible si......

[pascal21]

bonsoir
une msgbox dans une feuille 1 m'invite à aller faire un clic droit dans une cellule (zone C22:C32) d'une autre feuille2

MsgBox "Veuillez indiquer le taux horaire" & vbNewLine & "          de l'employé(CLIC DROIT colonne C) " & vbNewLine & "                MERCI", vbQuestion, "Taux horaire non renseigné "

le bouton "ok" ferme cette msgbox, ferme le feuille 1 et ouvre la feuille 2
comment faire pour rendre cette zone de cellule feuille2 plus visible lorsque ce message apparait et que l'on clic sur "ok" de la msgbox
cette visibilité accrue ne doit être rendu possible uniquement lorsque la msgbox apparait feuille1 et pas lorsque l'on ouvre la feuille 2 directement
merci je vous joint un ptit classeur vite fait pour mieux comprendre

 

[Roland_M]

Re : zone de cellules rendue plus visible si......

bonsoir
dans le code feuille exemple pour la colonne C et ligne 22:
après Worksheets(2).Select
mettre Worksheets(2).Cells(22, "C").Select

important préciser Worksheets(2) !

 

[Roland_M]

Re : zone de cellules rendue plus visible si......

re:
dans cet ordre !

Private Sub Worksheet_Activate()
Range("a1").Select
If Range("a1") = "" Then
Worksheets(2).Select: Worksheets(2).Cells(22, "C").Select
MsgBox "Veuillez indiquer le taux horaire" & vbNewLine & " de l'employé(CLIC DROIT colonne C) " & vbNewLine & " MERCI", vbQuestion, "Taux horaire non renseigné "
End If
End Sub

 

[pascal21]

Re : zone de cellules rendue plus visible si......

bonjour roland
ce que tu me propose ne fait que sélectionner la zone ,je pensais en fait à un clignotement ou un autre effet visuel

 

[JCGL]

Re : zone de cellules rendue plus visible si......

Bonjour à tous,

Un essai...
Dans le code de la 'Feuil2' :

Private Sub Worksheet_Activate()
If Sheets("Feuil1").Range("A1") = "" Then
Sheets("Feuil2").TextBox1.Visible = False
Else: Sheets("Feuil2").TextBox1.Visible = True
End If
End Sub

A+

 

[Roland_M]

Re : zone de cellules rendue plus visible si......

re:

il y a plus simple voir dans ton fichier

 

[pascal21]

Re : zone de cellules rendue plus visible si......

bonsoir jcgl
en m'inspirant de ton code je suis arrivé à ça

private Sub Worksheet_Activate()

Range("a1").Select
If Range("a1") = 0 Then
  MsgBox "Veuillez indiquer le taux horaire" & vbNewLine & "          de l'employé(CLIC DROIT colonne C) " & vbNewLine & "                MERCI", vbQuestion, "Taux horaire non renseigné "
 Worksheets(2).Select
 'If Sheets("Feuil1").Range("A1") = "" Then
Sheets("Feuil2").TextBox1.Visible = True
Else: Sheets("Feuil2").TextBox1.Visible = False
End If
    
    
    
End Sub

ça fonctionne
maitenant il faudrait que ce textbox s'efface de lui même si je clic droit sur une cellule
roland je jette un oeil à ta proposition tout de suite

 

[pascal21]

Re : zone de cellules rendue plus visible si......

roland
l'idée était bonne
faut être rudement rapide pour arriver à lire la feuille1, mais bon!!!!! lol.!!!!!
dans le classeur final ça ne fonctionnera pas car ensuite un clic droit feuille2 récupère ce qu'il y a dans la cellule cliquée et ça ouvr à nouveau feuille 1
enfin!! là c'est autre chose rien à voir avec le sujet
en espérant quand même que le bout de code que j'essaye de créer viendra pas foutre la m..... par la suite

 

[pascal21]

Re : zone de cellules rendue plus visible si......

ça marche !!! un simple Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
TextBox1.Visible = False
End Sub
en feuille2 efface le textbox
des fois on cherche trop compliqué!!!!