Code VBA obligation de compléter une cellule dans fichier Excel

Version imprimable

11/01/2016, 12h30
Laura92300

Code VBA obligation de compléter une cellule dans fichier Excel

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

Bonjour,

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

Code:

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.

11/01/2016, 14h35
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...

Citation:

Envoyé par Laura92300

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:

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.

12/01/2016, 10h42
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.
12/01/2016, 11h00
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.