Numérotation de ligne en VBA Résolu/Fermé

Question

Bonjour à tous,

Pour l'organisation de concours j'ai besoin de réaliser un bordereau de participation. Ce bordereau comporte 8 colonnes (de A à H) dont deux (A et E) qui sont normalement masquées. Cinq colonnes sont verrouillées (A, B, C, E et F) et deux sont totalement libres (G et H).
Trois colonnes (B, C et D) ont un format de nombre personnalisé et la colonne «E» contient une fonction pour créer le N° d'adhérent complet. Chaque participant peut concourir avec un nombre maxi d'objet, c'est la cellule nommée Maxi_Auteur.
Au Départ le bordereau est totalement vide, chaque fois qu'un N° de carte (colonne D) est saisi les colonnes B et C sont automatiquement remplies.
Ce que je souhaiterais s'est avoir une numérotation automatique de la colonne «A». Cette numérotation ira de 1 à 4 (Maxi_Auteur). La saisie doit pouvoir se faire de façon totalement aléatoire, c'est dire qu'on n'est pas obligé se saisir les quatre objets d'un même auteur les uns à la suite des autres, de même qu'un auteur n'est pas tenu de présenter 4 objets.
De façon plus claire, chaque fois qu'une saisie à lieu colonne «D» je dois numéroter la colonne «A» en incrémentant de 1 à chaque fois pour un même N° d'adhérent.
Ci-dessous un lien vers un classeur exemple avec ce que j'ai réalisé avec des fonctions en colonne «A» mais je n'arrive pas au résultat escompté. Je pense qu'il faut passer par du VBA dans une procédure Worksheet.

http://www.cijoint.fr/cjlink.php?file=cj201012/cijkOA7qqd.xls

Merci d'avance pour votre aide.
Cordialement
Mistral

pijaku · Answer

Salut Mistral,
Apparemment le serveur de cijoint.fr est à nouveau planté. (Erreur interne - Erreur 500)...
Essaye de nous envoyer ton fichier par cjoint.com.

Mistral_13200 · Answer

Bonjour pijaku,

Voilà le nouveau lien vers mon classeur...

https://www.cjoint.com/?0mrjsa6HcZp

Cordialement
mistral

Mistral_13200 · Answer

Re,


Le principe est bon.
Par contre il faudrait que lorsque le N° de carte est vide le N° de Bdx le soit aussi.
Bdx totalement vierge = pas de N°de Bdx.
On efface un N° de carte on efface aussi le N° de Bdx.

En tout cas mecri a toi pour le temps que tu me consacre
Mistral

Mistral_13200 · Answer

Bonsoir,

Je suis obligé de garder les deux colonnes A et F. La A parce que je m'en sert ailleurs dans mon classeur et la F parce que c'est celle qui est visible et qui sera imprimée avec le Bdx.
Je viens de refaire un essai et la numérotation fonction bien. Par contre j'ai un souci lorsque j'essaye d'effacer un N° de carte.
Si j'efface une seule ligne il apparaît un «0» dans les colonne A et F.
Si j'efface plusieurs lignes en même temps la numérotation reste.
Ce que je souhaiterais c'est que quand j'efface une ou plusieurs lignes les cellules des colonnes A et F redeviennent vide. Es-ce possible ?
Pourrais-tu Stp commenté ta macro car je ne comprends pas tout.
D'avance merci
Mistral

Mistral_13200 · Answer

Bonjour,

J'ai un autre problème !
Sur la feuille Bordereau de mon classeur final j'ai déjà une procédure :
Private Sub Worksheet_Change(ByVal sel As Range).
Sur laquelle Option Explicit est activé.

J'ai essayé de coller ton code à la fin de ma procédure est bien évidement j'ai eu un message comme quoi une variable n'était pas déclarée.
Je ne peux pas supprimer ma procédure Worcksheet !
Comment faire ?
Merci de m'aider.
Cordialement
Mistral

Numérotation de ligne en VBA

5 réponses

Discussions similaires