A voir également:
- Programmation avec VBA sous oobase
- Application de programmation - Guide
- Comment mettre en veille un programme sous windows 10 - Guide
- Excel compter cellule couleur sans vba - Guide
- Find vba - Astuces et Solutions
- Mkdir vba ✓ - Forum VB / VBA
5 réponses
PS : voici mon code déja existant ( ############### c'est là ou je bloque... ):
Sub Main
/*************************************Declaration des variables**********************************************/
dim mon_formulaire as object
dim datent=########
dim datesor=#########
dim nom as string
dim prenom as string
dim recherche_nom as string
dim recherche_prenom as string
dim nombre_enregistrement as integer
dim boucle as integer
dim valeur as string
dim validation as integer
dim compteur as integer
/*************************************Initialisation des variables*********************************************/
mon_formulaire=Thiscomponent.forms.getbyname("stat-rea")
validation = 0
compteur = 0
/*******************************************Programme principal************************************************/
do
if(datent<=datesor)then
nom=mon_formulaire.TextBox1.text
for boucle= 0 to nombre_enregistrement
recherche_nom = ############
if(nom==recherche_nom)then
position = boucle
compteur=compteur+1
end if
next
if compteur > 0 ) then
if(position>compteur) then
position = position - compteur
else position = compteur - position
end if
prenom
for boucle = position to compteur
recherche_prenom =#####################
if (recherche_prenom == prenom ) then
valeur = msgbox( " Attention, il existe déja un/une "&nom&" "&prenom&". Souhaitez vous continuer?",vbyesno)
if( valeur = "yes") then validation =1
end if
next
validation = 1
end if
else msgbox( " Attention, il y a des erreurs! Vérifier que les dates soient cohérentes. ")
end if
while ( (validation != 1) || (valeur == "No") )
End Sub
Ah oui, c'est mon premier VBA, je fais du C généralement donc si les fonctions ne sont pas bonnes vous pouvez me le signaler ^^
Sub Main
/*************************************Declaration des variables**********************************************/
dim mon_formulaire as object
dim datent=########
dim datesor=#########
dim nom as string
dim prenom as string
dim recherche_nom as string
dim recherche_prenom as string
dim nombre_enregistrement as integer
dim boucle as integer
dim valeur as string
dim validation as integer
dim compteur as integer
/*************************************Initialisation des variables*********************************************/
mon_formulaire=Thiscomponent.forms.getbyname("stat-rea")
validation = 0
compteur = 0
/*******************************************Programme principal************************************************/
do
if(datent<=datesor)then
nom=mon_formulaire.TextBox1.text
for boucle= 0 to nombre_enregistrement
recherche_nom = ############
if(nom==recherche_nom)then
position = boucle
compteur=compteur+1
end if
next
if compteur > 0 ) then
if(position>compteur) then
position = position - compteur
else position = compteur - position
end if
prenom
for boucle = position to compteur
recherche_prenom =#####################
if (recherche_prenom == prenom ) then
valeur = msgbox( " Attention, il existe déja un/une "&nom&" "&prenom&". Souhaitez vous continuer?",vbyesno)
if( valeur = "yes") then validation =1
end if
next
validation = 1
end if
else msgbox( " Attention, il y a des erreurs! Vérifier que les dates soient cohérentes. ")
end if
while ( (validation != 1) || (valeur == "No") )
End Sub
Ah oui, c'est mon premier VBA, je fais du C généralement donc si les fonctions ne sont pas bonnes vous pouvez me le signaler ^^
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question