br44
XLDnaute Impliqué
bonjours le forum
Voilà suite à des recherches sur le forum j'ai trouver une macros permettant d'incrémenter un n° de facture à chaque ouverture du fichier . Je voudrais savoir si il est possible de modifier la macro de la manière suivante:
1°) qu'elle incremente à chaque nouvel enregistrement ( Bouton enregistrer d'un unserfrom) et en fonction d'un code client et d'une addresse de facturation ? dont voici les ref:
sheets("Détail").Range("G3") [code clients]
Sheets("Facture").Range ("F7") [ addresse de facturation]
2) Que si l'addresse de facturation à déja ètè enregistre dans un classeur archive il n'y a pas dincrementation du n° de facture mais le renvoie des valeures de la factures vers le classeur source ? dont les rèfèrences sont:
Classeur d'archive = "A.xls"
Classseur Source = " C.xls" sheets ("Facture")
En espèrant avoire ètè claire dans ma demande et vous remeciants tous et toutes par avance des rèponses que vous pourrez me transmetre je vous dis à bientôt sur se fil
Br44
ps : j'allais oublier la macros consernée dèsoler .
Private Sub Workbook_Open()
'==========================
'sur modèle de PtitCastor
'==========================
'Exemple avec une incrémentation à 1 chiffre
'Je reprend l ancienne valeur de l'incrément
NumIncrementFacture = Range("C16")
'Incrémentation
NumIncrementFacture = NumIncrementFacture + 1
'Je met à jour le numéro d incrémentation.
Range("C16") = NumIncrementFacture
End Sub
Br44
Voilà suite à des recherches sur le forum j'ai trouver une macros permettant d'incrémenter un n° de facture à chaque ouverture du fichier . Je voudrais savoir si il est possible de modifier la macro de la manière suivante:
1°) qu'elle incremente à chaque nouvel enregistrement ( Bouton enregistrer d'un unserfrom) et en fonction d'un code client et d'une addresse de facturation ? dont voici les ref:
sheets("Détail").Range("G3") [code clients]
Sheets("Facture").Range ("F7") [ addresse de facturation]
2) Que si l'addresse de facturation à déja ètè enregistre dans un classeur archive il n'y a pas dincrementation du n° de facture mais le renvoie des valeures de la factures vers le classeur source ? dont les rèfèrences sont:
Classeur d'archive = "A.xls"
Classseur Source = " C.xls" sheets ("Facture")
En espèrant avoire ètè claire dans ma demande et vous remeciants tous et toutes par avance des rèponses que vous pourrez me transmetre je vous dis à bientôt sur se fil
Br44
ps : j'allais oublier la macros consernée dèsoler .
Private Sub Workbook_Open()
'==========================
'sur modèle de PtitCastor
'==========================
'Exemple avec une incrémentation à 1 chiffre
'Je reprend l ancienne valeur de l'incrément
NumIncrementFacture = Range("C16")
'Incrémentation
NumIncrementFacture = NumIncrementFacture + 1
'Je met à jour le numéro d incrémentation.
Range("C16") = NumIncrementFacture
End Sub
Br44