Incrémenter et archiver
Bonjour à toutes et tous,
Tout d'abord une grand merci d'avance pour l'aide que vous pourriez m'apporter.
Je souhaiterais incrémenter une numérotation automatique avec archivage des mes mains Courantes par une une macro.
Dans le fichier, j'ai réussi avec VBA à mettre en place une numérotation automatique mais là s'arrêtent mes compétences.
Je fais donc appel à vous afin de m'aider à résoudre ma problématique.
Un grand merci.
Bien cordialement.
Warrior
Bonjour Warrior
Avec le fichier avec tes essais, ce serait un bon départ pour qu'on te réponde.
En quoi ta numérotation automatique , ne permet pas d'assurer l'archivage?
Cdlt
Le numéro à incrémenter est en O2?
Dans la feuille "historique MC", on historise "A6" (la date), I1 (la référence qui s'incrémentera), et les noms en I6,I7, et I8, si c'est bien cela, sur quelle action : un bouton "Historiser" sur la feuille MC, et les données précitées réinitialise la feuille MC?
A quoi le cartouche N1 à O4 sert t'il? A faire un calcul qui est reporté en I1?
J'aimerai aussi voir le code VBA de ton incrémentation : cela m'aiderait à comprendre.
Bonjour et merci de bien vouloir m'aider.
A quoi le cartouche N1 à O4 sert t'il? A faire un calcul qui est reporté en I1?
Je souhaiterais que I1 d'incrémente automatiquement en utilisant une macro que j'ai essayer de faire dans VBA - Module 2.
Dans module 8, VBA = à voir si cela serti à quelque chose?
Merci et bonne journée.
Jack2A
Bonjour Jack2A
pour historiser les données écrire dans un module des fonctions (Backup, InitData) qui seront appelées chacune par des boutons sur la feuille MC . Attention non testé, juste pour confirmer votre besoin.
Sub BackUp()
Dim sh as Worksheet
Set sh = ThisWorkbook.Sheets("HISTORIQUE MC")
derligne= sh.Cells(sh.Rows.Count, colonne).End(xlUp).Row
sh.Cells(derligne+1,1) = ThisWorkbook.Sheets("MC").Range("A6").Text
sh.Cells(derligne+1,2) = ThisWorkbook.Sheets("MC").Range("I1").Text
'pour les 3 agents
sh.Cells(derligne+1,3) = ThisWorkbook.Sheets("MC").Range("I6").Text + vbCr + ThisWorkbook.Sheets("MC").Range("I7").Text + vbCr + ThisWorkbook.Sheets("MC").Range("I8").Text
End Sub
Sub InitData()
Dim sh as Worksheet
Set sh = ThisWorkbook.Sheets("HISTORIQUE MC")
'La donnée A6 est toujours affecté par la formule =AUJOURDHUI()
'La référence I1 est affecté pat le calcul automatique??
ThisWorkbook.Sheets("MC").Range("I6").Text= ""
ThisWorkbook.Sheets("MC").Range("I7").Text= ""
ThisWorkbook.Sheets("MC").Range("I8").Text = ""
End SubJ'ai inséré dans le module 1 les fonctions VBA (fichier joint) et ensuite que dois-je faire ?