ventilation de données par macro

[archi]

Bsr,
ci-joint un fichier pour expliquer mon problème de macro
merci d'avance
bye [file name=Test_BDV14.zip size=33705]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Test_BDV14.zip[/file]

 

[archi]

non, 'feuille à 3' ou 'feuille à 4' sont toujours en place dans le classeur, je les masque simplement...se sont des feuilles intermédiaire...évidemment, on pourrais sans passer, mais là c'est de la macro lourde...

bye

 

[ERIC S]

Bonjour

les choses que je ne comprends toujours pas :

1/ sur tes feuilles EQ3, EQ4 tu veux conserver tout l'historique des rencontres ?

2/ tu ne m'as pas dit comment tu remplis les données sur 'feuilles à 3'... je ne vois pas de macro qui le fait

A+

 

[archi]

Salut,

1/ sur tes feuilles EQ3, EQ4 tu veux conserver tout l'historique des rencontres ? Non


2/ tu ne m'as pas dit comment tu remplis les données sur \\'feuilles à 3\\'... je ne vois pas de macro qui le fait
les feuilles se remplissent automatiquement par des formules liées avec les feuilles 'Eq3'...!!

bye

 

[ERIC S]

Bonjour

un exemple joint de ce qui me semblerait mieux comme approche

sans doute des bugs, pas tout testé

1 feuille pour rencontre (dans un premier temps ne pas utiliser le bouton nouvelle feuille)

1 ajout sur feuille base : nb de joueurs par équipe

test à faire

1/ remplissage des feuilles joueurs (bouton Enregistrer les résultats
2/ le bouton 'réafficher...' est là en temporaire pour réafficher le bouton enregistrer sans effacer les données et refaire l'opération 1

3/ fonctionnement normal : enregistrer puis nouvelle feuille

4/ sélection journée division poule, équipe, joueurs
5/ remplissage matches....

la feuille comporte des lignes qui se masquent selon le nombre de joueurs (défini sur feuille base)

A+ [file name=pingTestBDV16.zip size=40457]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/pingTestBDV16.zip[/file]

 

[archi]

Merci Eric d'avoir pris sur ton temps pour simplifier mon fichier, Bravo

permets moi une remarque concernant la mise en page....
En effet, le faite de scinder en deux la feuille à '6 joueurs', rend la lisibilité peu facile pour les non initiés de mon site !!
(Je transforme la page en html)
il serait plus judicieux de revenir à l'ancienne version....si c'est possible ?
Pour les autres remarques, voir l'exemple ci-joint
bye [file name=Test_BDV17.zip size=43904]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Test_BDV17.zip[/file]

 

[ERIC S]

Bonjour

je regarde (mardi sans doute)

Pour le 6 joueurs, soit je suis passé au travers soit j en'avais que le 3 joueurs et le 4 joueurs dans ton fichier

Tant qu'il s'agit de bosser sur la présentation, cela ne doit pas poser de pb

Par contre s'il y a des erreurs de remplissage ou autre n'hésite pas à le dire

A+

 

[ERIC S]

re
A priori je n'ai pas la feuille à 6 joueurs et je n'ai pas de feuille réglementaire à dispo

envoie moi les infos merci

A+

 

[archi]

Pour l'exemple a 6 joueurs, prends le fichier
'Test_BDV15_20060529173224.zip' plus haut dans le fil

bye

 

[archi]

slt,

question à 10 balles
comment faire exécuter ta macro suivant à partir d'une autre feuille que 'Feuille à 4'??

Sub Equipe(Rangebase As String, RangeCopy As String, Nom As String)
Dim Lig1 As Integer, Lig2 As Integer
Dim i As Integer
  
Application.ScreenUpdating = False
   Sheets(WSBase).Range(RangeCopy).Copy
    
   With Sheets(Nom)

        'copie mise en forme et valeur
        .Range('A65536').End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteFormats
        .Range('A65536').End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
        Lig1 = .Range('A65536').End(xlUp).Row
        Lig2 = .Range('J65536').End(xlUp).Row + 1
        .Range('A4:H' & Lig1).Validation.Delete
        Range(.Range('A4'), .Range('H' & Lig1)).Sort Key1:=.Range('A4'), Order1:=xlAscending
        If Lig1 > Lig2 - 1 Then
            Range(.Range('J' & Lig2 - 1), .Range('M' & Lig2 - 1)).AutoFill _
            Destination:=Range(.Range('J' & Lig2 - 1), .Range('M' & Lig1)), Type:=xlFillDefault
        End If
   End With
    
   Sheets(WSBase).Activate
  
Application.ScreenUpdating = True
End Sub

merci
bye

 

[ERIC S]

Bonjour

la macro equipe est appelée par un eautre macro qui passe les arguments rangebase, rangecopy et nom

syntaxe
call equipe(arg1,arg2,arg3)

je regarde pour le dernier fichier que je t'ai envoyé en reprenant les formules

A+

 

[archi]

re,

en fait, je veux simplement placer le bouton de la macro sur la feuille 'Eq4'

j'ai essayé, mais après exécution, elle reste sur la feuille 'Feuille à 4'

donc, où placer la ligne:
Sheets('Eq4').Select
ou
Sheets('Eq4').activate

??

 

[ERIC S]

Bonjour

je ne sais pas sur quel fichier tu travailles mais si je me réfère à Test_BDV16, tu déclares WSBase égal à feuille à 3

il faudrait dans subequipe3 (et 4...) introduire la ligne en début de macro juste après les 'dim'

WSBase=activesheet.name

en déclaration tu peux alors réduire la ligne à :
Public Const WSBase As String

Je regarde les équations pour le nouveau fichier. Quel principe utilises-tu pour les contre et perf (au minimum un classement ?)

A+

 

[ERIC S]

re

fichier BVD17A

A tester car je n'ai pas tout pu revoir
les colonnes en caractères gris seront à mettre en caractère blanc dans fichier final

vérifier le fonctionnement de la feuille

A+ [file name=pingTestBDV17A.zip size=45269]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/pingTestBDV17A.zip[/file]

 

[archi]

slt Eric,

Ya un bug au niveau de

        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:='=Noms'

quand on change de division ???

Par ailleurs, je t'envoie un fichier car je n'arrive pas a modifier le code concernant l'exécution de la macro sur une autre feuille

merci
bye [file name=Test_BDV16_20060607111849.zip size=42038]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Test_BDV16_20060607111849.zip[/file]

Message édité par: archi, à: 07/06/2006 11:23

 

[ERIC S]

re

je regarde pour mon pb, je pense que cela est dû au fait que je protège la feuille et je croyais l'avoir résolu

comme j'ai eu un plantage hier, je n'avais peut-être pas le dernière version de fichier


pour ton pb de lancement de macro, j'aijuste besoin de comprendre : tu veux lancer ta macro à partir de eq4 et non de 'feuille à 4' mais en revenant sur eq4 à la fin

si c'est cela normalement

Sub Equipe4_A()
....
...

Next i
Sheets('EQ4').Activate 'retour feuille EQ4
End Sub