modification de macros avec condition

  • Initiateur de la discussion Initiateur de la discussion br44
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
19
Affichages
2 K
B
Réponses
0
Affichages
1 K
B
B
Réponses
2
Affichages
995
B
Réponses
1
Affichages
944
B
Réponses
0
Affichages
959
B
Retour