Discussion :

[Laura92300]

Bonjour,

Je suis très novice en VBA et j'aurais besoin svp de développer un code dans un de mes fichiers Excel.

J'ai une cellule AE qui contient une liste avec juste 2 éléments au choix : "oui" et "non". Je souhaiterais que, si le choix "oui" est sélectionné dans cette cellule AE, que ma cellule AJ soit obligatoirement complétée par un nombre sinon on ne peut passer à une autre action. Serait-il possible également de faire apparaître un message type "merci de compléter la cellule" ?

Pour information, ce fichier est diffusé en mode vérrouillé.

Je vous remercie par avance pour votre aide.

Cordialement,

Laura

[Invité]

Bonjour,

Une solution possible avec ce code à installer dans le module de votre onglet :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub WorkSheet_Change(ByVal ZZ As Range)
 
   If ZZ.Count > 1 Then Exit Sub
 
   On Error Resume Next
   If Not Application.Intersect(ZZ, Columns("AE")) Is Nothing Then
        If ZZ = "Oui" And Range("AJ" & ZZ.Row) = "" Then
             Range("AJ" & ZZ.Row) = InputBox("Saisissez une valeur pour la cellule AJ" & ZZ.Row)
        End If
   End If
 
End Sub

Cordialement.

[Laura92300]

Bonjour et merci de votre retour.

J'ai installé votre code dans mon fichier mais cela ne fonctionne pas. Il ne se produit rien quand je mets ma cellule AE35 en "oui" et que la cellule AJ35 reste vide.

Je pense avoir oublié une étape peut être ou autre chose...

[Invité]

J'ai installé votre code dans mon fichier mais cela ne fonctionne pas. Il ne se produit rien quand je mets ma cellule AE35 en "oui" et que la cellule AJ35 reste vide.

Remplacez le O majuscule de mon "Oui" par un "o" minuscule.

Ou alors :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub WorkSheet_Change(ByVal ZZ As Range)
 
   If ZZ.Count > 1 Then Exit Sub
 
   On Error Resume Next
   If Not Application.Intersect(ZZ, Columns("AE")) Is Nothing Then
        If UCase(ZZ) = "OUI" And Range("AJ" & ZZ.Row) = "" Then
             Range("AJ" & ZZ.Row) = InputBox("Saisissez une valeur pour la cellule AJ" & ZZ.Row)
        End If
   End If
 
End Sub

Cordialement.

[Laura92300]

Merci pour votre retour mais je pense que je dois manquer une étape car cela ne fonctionne toujours pas. Désolée...

Cela viendrait-il peut-être du fait que les cellules concernées ne soient pas spécifiées dans le code ? En l'occurrence dans ce cas-là, les AE35 et AJ35.

[Invité]

Essayez ce fichier et dites moi ce que vous obtenez Pièce jointe 197733

Les cellules en jaune sont asservies à une liste de validation Oui - Non

Cordialement.