Actualité informatique
Test comparatif matériel informatique
Jeux vidéo
Astuces informatique
Vidéo
Télécharger
Services en ligne
Forum informatique
01Business



|||-  

Problème de code dans userform

 

1 utilisateur anonyme
Ajouter une réponse
 

 
Page photos
 
     
Vider la liste des messages à citer
 
 Page :
1
Auteur
 Sujet :

Problème de code dans userform

Prévenir les modérateurs en cas d'abus 
tallia64
tallia64
  1. Posté le 14/06/2009 à 22:59:36  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
bonsoir je travaille sur un code qui me permet de retrouver des personnes dans une liste, selon certains critères. Les critères dans mon formulaire sont les suivants :

 RaisonSociale format RaisonSociale = UCase(RaisonSociale )
 Titre format Titre = UCase(Titre )
 Nom format Nom = UCase(Nom )
 Prénom format Prenom = UCase(Prenom )
 DateDeNaissance format DateDeNaissance.MaxLength = 8

 Quand je lance mon application sans le critère DateDeNaissance mon application fonctionne parfaitement dès que je rajoute le critère DateDeNaissance elle n'effectue plus la recherche et je ne comprends pas pourquoi. Voici mon code certes un peu brouillon car je débute en vba en espérant que vous puissiez m'aider. Je vous en remercie d'avance pour votre aide et votre compréhension car je dois présenter cette application cette semaine. Bonne soirée.
 Tallia  :(

 voici mon fichier : http://cjoint.com/?goboWYmUGC

 Private Sub liste_noire_Click()

 Dim DerLig As Long, lig As Long
 Dim VRaisonsociale As String, VTitre As String, VNom As String, VPrenom As String, VDateDeNaissance As String
 ' Récupérer le numéro de ligne sur laquelle on se trouve
 lig = ActiveCell.Row

 ' Mémoriser la raison sociale, le titre, le nom,le prénom, la date de naissance de la ligne sélectionnée

 VRaisonsociale = ActiveSheet.Range("A" & lig).Value
 VTitre = ActiveSheet.Range("B" & lig).Value
 VNom = ActiveSheet.Range("C" & lig).Value
 VPrenom = ActiveSheet.Range("D" & lig).Value
 VDateDeNaissance = ActiveSheet.Range("E" & lig).Value

 ' Vérifier l'existence d'une raison sociale nom et prénom sur la ligne

 If VRaisonsociale = "" And VTitre = "" And VNom = "" And VPrenom = "" And VDateDeNaissance = "" Then
 MsgBox "Merci de selectionner une ligne avec un titre un nom et prénom et une date de naissance"
 Exit Sub
 End If

 ' Effectuer une recherche de doublon

 If NbVSearch(VRaisonsociale, VTitre, VNom, VPrenom, VDateDeNaissance) > 0 Then
 If MsgBox("Attention cette personne fait déjà partie de la liste !" & vbCrLf & vbCrLf _
 & "Voulez-vous continuer ?", vbQuestion + vbYesNo, "ATTENTION ..." ) = vbNo Then
 'AJOUT.Hide
 End If
 ActiveSheet.Range("A" & lig & ":P" & lig).Interior.ColorIndex = 3
 End If
 end sub

 Function NbVSearch(RaisonSociale As String, TITRE As String, NOM As String, PRENOM As String, DateDeNaissance As String)
 Dim myformule As String


 myformule = "SUMPRODUCT((liste_noire!$A$2:​$A$65535=""" & RaisonSociale & """ )*(liste_noire!$B$2:$B$6553​5=""" & TITRE & """ )*(liste_noire!$C$2:$C$6553​5=""" & NOM & """ )*(liste_noire!$D$2:$D$6553​5=""" & PRENOM & """ )*(liste_noire!$E$2:$E$6553​5=""" & DateDeNaissance & """ ))"
 NbVSearch = Application.Evaluate(myformule​)
 ' si la raison sociale est vide
 If RaisonSociale = "" Then
 myformule = "sumproduct((liste_noire!$B$2:​$B$65535=""" & TITRE & """ )*(liste_noire!$C$2:$C$6553​5=""" & NOM & """ )*(liste_noire!$D$2:$D$6553​5=""" & PRENOM & """ )*(liste_noire!$E$2:$E$6553​5=""" & DateDeNaissance & """ ))"
 End If
 End Function

 Page :
1

Aller à :
 

Sujets relatifs
probléme ordi Problème Fonction Recherche MACRO
Probleme de lenteur de site internet Problème macro avec VBA
Problème avec IE pour télécharger fichier Problème avec les fonctions
Problème centre de sécurité windows Concours de programmation - Legends of Code
Problème avec script PHP/MySQL de license Demande d'aide pour création de code javascrit
Plus de sujets relatifs à : Problème de code dans userform

Les 5 sujets de discussion précédents Nombre de réponses Dernier message
Problème de code dans userform 0
script tcl pour mac802_11 0
MACRO SELECTIONNER LES LIGNES D'UNE TABLE AYANT LA MEME DATE 0
MACRO SELECTIONNER LES LIGNES D'UNE TABLE AYANT LA MEME DATE 0
MACRO pour selectionner les lignes d'une table ayant la meme 0