Comment intégrer des alertes dans certaines cellule

JCGL

XLDnaute Barbatruc

• 2 Octobre 2013

• #2

Re : Comment intégrer des alertes dans certaines cellule

Bonjour à tous,

Peux-tu essayer avec ceci (les cellules de J,K et M,N resteront en rouge si les quatre cellules ne sont pas renseignées alors que G est renseigné ) :



A+ à tous

 

Pièces jointes

• Capture 1.png

  10.5 KB · Affichages: 62
• Capture 1.png

  10.5 KB · Affichages: 61

Vote positif 0 Vote négatif

Z

zombe

XLDnaute Occasionnel

• 2 Octobre 2013

• #3

Re : Comment intégrer des alertes dans certaines cellule

Bonsoir JLGL et le forum

Merci pour votre proposition.
J'ai pas pu me servir de la formule.
Est-il possible d'avoir une proposition par macro.

Merci

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 2 Octobre 2013

• #4

Re : Comment intégrer des alertes dans certaines cellule

Bonjour à tous,

Ma proposition, par MeFC, appliquée au 6000 lignes de ton fichier

A+ à tous

 

Pièces jointes

• JC essai_proforma.xlsx

  442.8 KB · Affichages: 55

Vote positif 0 Vote négatif

Z

zombe

XLDnaute Occasionnel

• 2 Octobre 2013

• #5

Re : Comment intégrer des alertes dans certaines cellule

Salut JLGL

Ok j'ai apprécié le fonctionnement.
Mais un agent négligeant pourrait ne pas renseigner les dites cellules quand bien même les couleurs s'affichent.
Je souhaite qu'on m'aide à personnaliser les mouvements du curseur de sorte que quand on renseigne une cellule de la colonne G (G30:G6024), que le curseur se positionne respectivement dans les cellules en rouge (de la même ligne).

Merci

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 2 Octobre 2013

• #6

Re : Comment intégrer des alertes dans certaines cellule

Bonjour à tous,

Peux-tu essayer ceci dans le module de la feuille :

VB:

Option Explicit


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 29 And Target.Row < 6000 Then
If Cells(Target.Row, 7) <> "" Then Cells(Target.Row, 10).Select
If Cells(Target.Row, 10) <> "" Then Cells(Target.Row, 11).Select
If Cells(Target.Row, 11) <> "" Then Cells(Target.Row, 13).Select
If Cells(Target.Row, 13) <> "" Then Cells(Target.Row, 14).Select
If Cells(Target.Row, 14) <> "" Then Cells(Target.Row + 1, 7).Select
Else
Exit Sub
End If
End Sub

A+ à tous

 

Vote positif 0 Vote négatif

Z

zombe

XLDnaute Occasionnel

• 2 Octobre 2013

• #7

Re : Comment intégrer des alertes dans certaines cellule

Merci JLGL pour le code que vous venez de me proposer.
Je remarque qu'il fonctionne à moitié.
Quand je renseigne une cellule de la colonne G, il se positionne seulement sur la colonne J mais pas sur les autres colonnes (K, M, et N).
Merci de voir svp

 

Vote positif 0 Vote négatif