validation des donnees

[Votre Pseudo (voir Options)]

      

BONJOUR A TOUS​

   [/b]J'ai voulu améliorer une application en ajoutant une saisie automatique par user form ,mais je m'aperçois que les contrôles des validations ne sont plus opérationnellors de la saisie avec l'userform ,existe une solution a mon problème
les contrôles des validations sont les suivant:
   pas de saisie en C si A vide
   pas de saisie en D si C vide
   pas de saisie en E si D vide
   pas de saisie en F si E vide et seulement le mot "valider"
MERCI pour votre aide

 

[bernard]

je viens de m'apercevoir d'une erreur de manip,je ne suis pas encore familiarisé avec la merveille des appli qui est POSHIT,donc le post precedent c'est Bernard

a bientot

 

[bernard]

et voici le fichier joint

AH les lendemains de fetes c'est dur

 

[bernard]

et voici le fichier joint enfin

AH les lendemains de fetes c'est dur

 

[myDearFriend]

Bonjour Bernard, le Forum.


Comme dans ton exemple modifié ci-joint, je te propose le code suivant :

Dans le module de la feuille 1 :
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim Ok As Boolean
Dim C As Byte, L As Byte
   Cancel = True
   If Not Application.Intersect(Target, Range("c8:f17")) Is Nothing Then

      'Mémorise les coordonnées de la cellule cible
      L = Target.Row
      C = Target.Column

      'Vérifie que la cellule précédente ne soit pas vide
      Select Case C
      Case 3
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Ok = Cells(L, 1) <> ""
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Case Else
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Ok = Cells(L, C - 1) <> ""
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End Select

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If Ok Then UserForm1.Show
&nbsp;&nbsp;&nbsp;End If
End Sub

Dans le module de code du Userform :
Private Sub ListBox1_Click()
&nbsp;&nbsp;&nbsp;'La dernière colonne ne peut contenir que l'expression "Valider"
&nbsp;&nbsp;&nbsp;If ActiveCell.Column = 6 And ListBox1.Text <> "valider" Then Exit Sub
&nbsp;&nbsp;&nbsp;ActiveCell = ListBox1.Text
&nbsp;&nbsp;&nbsp;Unload Me
End Sub


Cordialement.

Didier_mDF

 

[bernard]

bonjour DIDIER,bonjour a tous

c'est exactement ce que je souhaitait
merci beaucoup et bonnes fetes

je suis entrain d'essayer POSHIT,( tresbon travail)mais mon pseudo ne reste pas memoriser et je n'arrive pas à inserer un gif enregistrer sous C/Mes documents/Mes images

MERCI ENCORE

 

[myDearFriend]

Re- Bernard,


Tout d'abord merci pour le compliment.

Comme pour tous les posts du Forum, tu ne peux pas insérer un gif émanant de ton disque dur, il faut impérativement que ton image soit stockée sur internet et seule une adresse URL est acceptée.

Par contre, pour ton pseudo qui ne reste pas enregistré, je t'avoue que je ne vois pas... je te propose de venir en parler sur le t'Chat ("coin détente") si tu le veux bien...

Cordialement.

Didier_mDF

 

[bernard]

merci Didier
a bientot