Macros
AMIBINGO
Messages postés
22
Statut
Membre
-
Le Pingou Messages postés 12714 Date d'inscription Statut Contributeur Dernière intervention -
Le Pingou Messages postés 12714 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Quelquen sur ce forum qui pourrait m'orienter sur la manière à incrémenter le rang d'un enregistrement.
Donc j'ai une masque de saisi pour une BD quelconque, je voudrais savoir comment incrémenter automatiquement le nombre (rang) d'enregsitrements, de sorte dés que je valide le 1er le rang passe directement de 1 à 2 et ainsi de suite.
Merci
Quelquen sur ce forum qui pourrait m'orienter sur la manière à incrémenter le rang d'un enregistrement.
Donc j'ai une masque de saisi pour une BD quelconque, je voudrais savoir comment incrémenter automatiquement le nombre (rang) d'enregsitrements, de sorte dés que je valide le 1er le rang passe directement de 1 à 2 et ainsi de suite.
Merci
A voir également:
- Macros
- Ez macros - Télécharger - Divers Utilitaires
- Comment utiliser les macros dans word - Guide
- Le classeur macros personnelles dans le dossier de démarrage doit être ouvert ✓ - Forum VB / VBA
- Macros ✓ - Forum LibreOffice / OpenOffice
- Problème de macros - Forum Windows
3 réponses
Bonjour,
Que comprendre pas masque de saisi .... ?
Si c'est un formulaire (Userform) il faut un champ reçoit le rang du dernier enregistrement auquel vous ajouter 1.
Que comprendre pas masque de saisi .... ?
Si c'est un formulaire (Userform) il faut un champ reçoit le rang du dernier enregistrement auquel vous ajouter 1.
Bonjour,
Je suppose que dans votre code actuel vous avez des lignes comme ceci :
Comme indiqué ici (on n'est jamais mieux servit que par soi même...), utilisez une variable vous permettant de trouver la dernière ligne saisie...
Salutations à Mister Le Pingou.
Bonne journée
Cordialement,
Franck P
Je suppose que dans votre code actuel vous avez des lignes comme ceci :
Sheets("FeuilleBD").Range("A1") = Sheets("Feuilledesaisie").Range("G8")
Sheets("FeuilleBD").Range("B1") = Sheets("Feuilledesaisie").Range("G9")
Sheets("FeuilleBD").Range("C1") = Sheets("Feuilledesaisie").Range("G10")
etc...
Comme indiqué ici (on n'est jamais mieux servit que par soi même...), utilisez une variable vous permettant de trouver la dernière ligne saisie...
Dim DernLigne As Long
DernLigne = Sheets("FeuilleBD").Range("A" & Rows.Count).End(xlUp).Row + 1
Sheets("FeuilleBD").Range("A" & DernLigne) = Sheets("Feuilledesaisie").Range("G8")
Sheets("FeuilleBD").Range("B" & DernLigne) = Sheets("Feuilledesaisie").Range("G9")
Sheets("FeuilleBD").Range("C" & DernLigne) = Sheets("Feuilledesaisie").Range("G10")
Salutations à Mister Le Pingou.
Bonne journée
Cordialement,
Franck P
Le masque de saisie: la feuille qui me permet de saisir un nouveau enregistrement et avec un bouton de validation mon enregsitrement est repris automatiquement sur ma fauille BD avec incrémentation automatique sur cette feuille de masque de saisie pour le rang de l'enregistrement.
Donc une fois validée ma saisie, la ligne ( de l'enregistrement) est réinitialisée et le rang incrémenté, donc indiquant le rang de mon prochain enregistrement.
J'espère que ça vous met en lumière.
Je vous demamnde de m'éclairer d'avantage sur le formulaire (Userform) indiqué sur votre message.
Merci