Macros
AMIBINGO
Messages postés
22
Statut
Membre
-
Le Pingou Messages postés 12275 Date d'inscription Statut Contributeur Dernière intervention -
Le Pingou Messages postés 12275 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
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.
-
Salut "Le Pingou"
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
-
-
Bonjour,
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 -
Bonjour,
Merci pour l'information.
Je constate que pijaku (merci et amicales salutations) vous a parfaitement renseigné.
