XL 2010 créer un nombre de lignes supplémentaires selon critère colonne T

[deps]

Bonjour Forum

Dans le tableau des la feuille REC du fichier joint

je souhaiterais qu à chaque fois que le nombre (n) affiché en colonne T (= nombre maxi d'équipes engagées) >1 alors
une macro crée les lignes manquantes en fin de tableau puis retrie le tableau selon la colonne (U et C)
Exemple 1
En ligne 2 - le club de Lyon a 2 équipes inscrites (chiffre 2 en colonne T)
Comment faire pour créer en fin de tableau la même ligne avec t =1 (l'équipe n°1)

exemple 2
L'équipe de lille a inscrit 3 équipes en colonne T
il faut donc créer la ligne avec t=1 puis celle avec t=2


Quelqu'un aurait-il une idée ?

merci au fortum
Deps

 

[mapomme]

Bonjour deps,

Voir le fichier joint. Le code est dans le module de la feuille. La macro ajoute les lignes manquantes et supprime les lignes excédentaires.

 

[deps]

Bonjour Mapomme

Merci pour cette macro.
Cependant, il y a des doublons

par exemple l'équipe qui avait au départ "3" en colonne T
à la fin de la macro il y a 3 lignes avec "3" en colonne T
je souhaiterais qu'à la fin de la macro il y ait une ligne avec 1 en colonne T , une ligne avec 2 en colonne T et une ligne avec 1 en colonne T

en gros on passerait de Nombre d'équipes à N° d'équipe
mais peut-être serait ce plus simple d'ajouter une colonne et ajouter ce n° d'équipe ???

qu'en penses tu ?

merci
Deps

 

[mapomme]

Re,

La colonne étant nommée Nombre maxi, j'ai considéré que cette colonne comprenait le nombre d'équipes désiré. L'identification des équipes se retrouve donc en colonne V.

Si une mauvaise manip se produit (par exemple pour 3 équipes, effacement par mégarde de la ligne numéroté 3 en colonne T), alors on est incapable de retrouver le besoin initial (c'est à dire trois équipes). Il serait sans doute mieux de mettre le rang de l'équipe dans une colonne spécifique en colonne U (Equipe N°). L'identification des équipes se retrouve en colonne W.

edit: changer v1 pour v2 (voir message #7 )

 

[deps]

Bonjour

oui tu as tout as fait raison sur "la mauvaise manip possible"

Excellente idée et merci pour cette macro qui fonctionne très bien

Deps

 

[deps]

Re

Que signifie exactement cette instruction ?

   source.RemoveDuplicates Columns:=Array(3, 20), Header:=xlYes

Merci
Deps

 

[mapomme]

Bonjour deps,

source.RemoveDuplicates Columns:=Array(3, 20), Header:=xlYes

Cette instruction correspond au menu "Données / Supprimer les doublons"

Pour la zone Source, on supprime toutes les lignes en double
avec comme critères de doublons les colonnes 3 et 20 de Source
et Source contient une ligne d'en-têtes.

Comme Source contient les colonnes de A à W, la colonne 3 est la colonne C et la colonne 20 est la colonne T. Ce qui ne doit pas être le cas (grossière erreur d'étourderie entre la version v1 et v2 suite à l'ajout d'une colonne dans la v2)

Tu viens donc de révéler (avec tact) une grave erreur sur la v2. Les doublons doivent se faire sur la colonne C 'Code AS' et sur la colonne V 'Inscription'; donc sur les colonnes 3 et 22 de Source (et non pas 3 et 20).

Je mets sur ce message et sur celui de la v2, la version corrigée v2a.

Bien vu deps !

 

[deps]

Salut

je n'ai rien révélé du tout, je me posais simplement la question
car je ne comprends pas tout et ça je le révèle.

deps

 

[mapomme]

Re,

En tout cas, tu as bien fait de poser la question

 

[deps]

Bonjour mapomme

j'ai supprimé quelques colonnes et j'ai transposé les lettres des colonnes d'origines vers les colonnes finales
Mais forcément j'ai du oublié quelque chose car maintenant lors du 1er clic sur le bouton, ça fonctionne mais lors du 2e clic les doublons apparaissent.

si tu arrives à voir mon erreur...je te remercie encore

bonne journée
Deps

 

[mapomme]

Bonjour deps,

Voir fichier joint.