S
sophie
Guest
Bonjour à tous,
Je planche depuis hier sur un petit problème qui commence à me rendre maboule! SVP de l'aide!
Voilà, je développe un programme de gestion commerciale pour ma boite. J'ai un unique formulaire de saisie de facture qui remplit 2 fonctions:
1)Soit création d'une nouvelle facture (Dans TXTFACT un nouveau numéro de fact s'incrémente puis l'utilisateur saisie ses articles, ses qtés et ses tarifs dans divers TXT)
2)Soit rappel d'une facture déjà créée et modif des lignes désignation etc...
Je souhaiterais que quand on click sur le bouton VALID:
1) Il regarde sur 'feuil1' dans la colonne A:1 à A:6000 si le numéro inscrit dans TXTFACT est déjà présent et si oui, il se met sur la même ligne et envoi les nouvelles infos (TXT1...)sur cette ligne. (C'est pour le cas d'une facture existante que l'on a rappelée et modifiée).
2)S'il ne trouve pas le numéro dans la colonne A1:A6000, donc il s'agit d'une nouvelle facture et il va à la dernière ligne non vide et envoie les infos des TXT...
J'arrive à faire les 2 procédures séparées mais quand je veux les relier avec IF THEN ELSE, je n'ai pas le résultat escompté.
Ci-dessous mon code actuel qui me créée une nouvelle ligne même si le numéro de fact est déjà dans A1:A6000.
Merci pour votre aide.
Sophie
Private sub CMDVALIDER _Click()
For each c in range ('A1:A6000')
If c.value=txtfact then
range ('b'& c).value=TXT1
Exit for
else
num2=sheets('feuil1').range ('a65536').end(xlup).row+1
sheets('feuil1').range('a'& num2).value=TXTFACT
sheets('feuil1').range('b'& num2).value=TXT1
exit for
end if
next c
end sub
Je planche depuis hier sur un petit problème qui commence à me rendre maboule! SVP de l'aide!
Voilà, je développe un programme de gestion commerciale pour ma boite. J'ai un unique formulaire de saisie de facture qui remplit 2 fonctions:
1)Soit création d'une nouvelle facture (Dans TXTFACT un nouveau numéro de fact s'incrémente puis l'utilisateur saisie ses articles, ses qtés et ses tarifs dans divers TXT)
2)Soit rappel d'une facture déjà créée et modif des lignes désignation etc...
Je souhaiterais que quand on click sur le bouton VALID:
1) Il regarde sur 'feuil1' dans la colonne A:1 à A:6000 si le numéro inscrit dans TXTFACT est déjà présent et si oui, il se met sur la même ligne et envoi les nouvelles infos (TXT1...)sur cette ligne. (C'est pour le cas d'une facture existante que l'on a rappelée et modifiée).
2)S'il ne trouve pas le numéro dans la colonne A1:A6000, donc il s'agit d'une nouvelle facture et il va à la dernière ligne non vide et envoie les infos des TXT...
J'arrive à faire les 2 procédures séparées mais quand je veux les relier avec IF THEN ELSE, je n'ai pas le résultat escompté.
Ci-dessous mon code actuel qui me créée une nouvelle ligne même si le numéro de fact est déjà dans A1:A6000.
Merci pour votre aide.
Sophie
Private sub CMDVALIDER _Click()
For each c in range ('A1:A6000')
If c.value=txtfact then
range ('b'& c).value=TXT1
Exit for
else
num2=sheets('feuil1').range ('a65536').end(xlup).row+1
sheets('feuil1').range('a'& num2).value=TXTFACT
sheets('feuil1').range('b'& num2).value=TXT1
exit for
end if
next c
end sub