Saisie impossible si cellule non renseignée

Bonjour à tous

N'étant pas un pro sur Excel, je fais appel à vous pour solutionner un problème via une formule ou via du VBA je pense.

Je viens de créer un tableau de saisie concernant la cotation des postes qui est fondée sur la base de 3 critères principaux qui sont ensuite déclinés en sous critères.

Ce tableau sera envoyé à tous les chefs de services avec la liste des agents (nom, prénom, affectation, ....déjà saisis).

Pour chaque agent, le chef de service devra dans les colonnes libellés "N°" choisir une valeur dans une liste déroulante et automatiquement les 2 colonnes suivantes s'alimenteront via des formules. Un total de points (somme de tous les sous critères) pour chacun des critères s'affichera dès que toutes les cellules "N°" auront été renseignées.

Mon problème se pose sur la colonne "intitulé du poste" qui sera vide lors de l'envoi aux chefs de services à charge pour eux de la renseigner.

Ce que je souhaite, c'est que la saisie dans la colonne J11 soit impossible si la colonne I11, "intitulé du poste" n'a pas été renseignée au préalable.

Je pense qu'il faut passer par du VBA mais je suis incompétent donc si vous avez une solution je suis preneur.

Je mets en pièce jointe mon tableau Excel pour mieux comprendre.

Si vous avez d'autres améliorations à apporter à mon tableau pour le rendre plus performant, plus convivial, je suis également preneur.

Cordialement à tous et tous mes vœux pour cette nouvelle année 2017.

Bonjour et bienvenue sur le forum

Ce code à placer dans la feuille

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([J11], Target) Is Nothing Then
    If [I11] = "" Then MsgBox "Renseigner la cellule I11."
End If
End Sub

Cordialement

Merci pour la réponse rapide

Si je veux que le code s'applique sur les 2 colonnes, de I11 à I100 par exemple et J11 àJ100

Pour saisir le code, c'est bien alt+F11 ?

Merci par avance.

Bonjour,

Oui alt+f11 pour ouvrir éditeur vb

Ensuite double clic sur la feuille (coté gauche, Explorateur de projet). Tu colles le code dans la feuille (partie de droite).

Si c'est pour deux colonnes seulement, on peut mettre ce code par exemple:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'si plusieurs cellules sont selectionnee, on sort de la procedure
If Target.Count > 1 Then Exit Sub
'Teste de la colonne J
If Not Intersect([J11:J100], Target) Is Nothing Then
    If Target.Offset(, -1) = "" Then MsgBox "Renseigner la cellule en colonne I."
End If
'Test sur la colonne I
If Not Intersect([I11:I100], Target) Is Nothing Then
    If Target.Offset(, -1) = "" Then MsgBox "Renseigner la cellule en colonne H."
End If
End Sub

L'exemple sur ton fichier joint

Cordialement

Je viens de faire un autre code et facilement modifiable en cas de besoin.

De la colonne 2 à 11 si une colonne n'est pas complétée elle est identifiée.

Cordialement

Merci

ca marche très bien.