une macro pour plusieurs feuilles

[archi]

Bjr le forum,
j'ai un code dont la première ligne est:

Public Const WSBase As String = "Feuille3 de Eq1"

ce code va chercher les infos sur la "feuille3 de Eq1"....et je l'active a partir d'un bouton qui ce trouve en feuil "Eq1".
cependant, ayant d'autre feuil intitulé "Eq2", "Eq3", "Eq4", je voudrais que cette macro utilise les infos sur la "feuille3 de Eq2", "feuille3 de Eq3", etc...d'où ma question:
comment transformer la ligne de code ci-dessus de facon a créer une macro générique de type:

Public Const WSBase As String = "Feuille3 de Eq+[Color=Red]numéro de l'onglet de la feuille active"[/Color]

merci d'avance
bye

 

[archi]

Re : une macro pour plusieurs feuilles

Bjr tatiak et merci
cependant je ne vois pas comment l'insérer dans le code ci-dessous (moi novice)

Option Explicit
  
Public Const WSBase As String = "Feuille3 de Eq1"
Sub Equipe3_A()

Dim Rangebase As String, RangeCopy As String, RowCopy As Integer, Nom As String
Dim nbjoueurs As Byte, nbrencontres As Byte, offsetjoueur As Byte, i As Byte, j As Byte
Application.ScreenUpdating = False

nbjoueurs = 3       'nombre de joueurs
nbrencontres = 3    'nombre de rencontres par joueur
offsetjoueur = 7    'différence de lignes entre 2 joueurs

For i = 1 To nbjoueurs
     
    Rangebase = "c" & (2 + offsetjoueur * (i - 1)) 'C2 puis C9...
    'vérification présence nom de joueur
    If Not InStr(1, Sheets(WSBase).Range(Rangebase).Value, " ") < 1 Then
         With Sheets(WSBase).Range(Rangebase)
        Nom = Application.WorksheetFunction.Proper(Left(.Value, InStr(1, .Value, " ") + 1) + ".")
        End With
        For j = 1 To nbrencontres
            'test validité ligne par ligne d'où RangeCount =  1 ligne à la fois, fixe
            If Not Range("I" & (4 + offsetjoueur * (i - 1) + j)).Value = "" Then
                RangeCopy = "B" & (4 + offsetjoueur * (i - 1) + j) & _
                            ":I" & (4 + offsetjoueur * (i - 1) + j)
                Equipe Rangebase, RangeCopy, Nom
            End If
        Next
    End If
Next i
Sheets("Eq3").Activate
Application.ScreenUpdating = True
End Sub

help me
bye

 

[Gorfael]

Re : une macro pour plusieurs feuilles

Euh ... une constante a comme son nom l'indique une valeur constante et non variable.
Pour ton besoin la déclaration devrait être par exemple :

Public WsBase as string

puis dans le corps de la macro à chaque fois que de besoin, il est nécessaire de définir la valeur de la variable Ws Base comme par exemple :

for i = 1 to 10
     WsBase= "Feuille3 de Eq" &  i
     ..... intructions .....
next i

Salut à tous

Dim WS() As String ' ou direct : Dim WS(1 to 10) as String, sans redim
Dim x As Integer

ReDim WS(1 to WorkSheets.Count) ' à supprimer si nombre fixe-voir ci-dessus
For x = 1 To 10
    Set WS(x) = "Feuille3 de Eq" &  x
Next

Et après tu jongles avec tes variables
A+

 

[archi]

Re : une macro pour plusieurs feuilles

Merci à tous mais je n'arrive pas a faire le code malgré vos suggestions...je suis en période d'apprentissage....
help

 

[archi]

Re : une macro pour plusieurs feuilles

Merci pour le code, cependant j'ai oublié de préciser que cette macro été lié avec une autre dont voici le code:

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

malheureusement, je ne sais pas quoi modifier pour que les deux fonctionne correctement ???

 

[archi]

Re : une macro pour plusieurs feuilles

voici un fichier pour plus d'explication
bye

 

[archi]

Re : une macro pour plusieurs feuilles

oui c ca, merci...cependant, tu a supprimer la macro qui gère le tableau B26:I42 de la feuil "Feuil3 Eq1"

bye

 

[ERIC S]

Re : une macro pour plusieurs feuilles

Bonjour

a tester car non vérifié

la différence entre equip3 et x réside dans le décalage de ligne (delta de 21 lignes)

d'après fichier tatiak

appel par bouton transfère le numéro d'équipe et l'offset (bouton du haut 0, bouton du bas 21)

récupération de l'offset par macro equip3 (ajout de variable decal)

ajout de +decal sur lignes rangebase et testvalidité

 

[archi]

Re : une macro pour plusieurs feuilles

Merci Eric, c bon de te retrouver

pour plus de simplicité, peut on faire de cette macro, une macro générique en modifiant le code

Private Sub CommandButton1_Click()
Call Equipe3(1, 0)
End Sub
--------en---------
Private Sub CommandButton1_Click()
Call Equipe3(NuméroEquipe de l'onglet, 0)
End Sub

car si j'insert une autre Equipe X, la macro ne suit pas
bye

 

[ERIC S]

Re : une macro pour plusieurs feuilles

re

essaie

Call Equipe3(Right(ActiveSheet.Name, Len(ActiveSheet.Name) - 2), 0)

tu prends les caractères de droite de ton nom de feuille sans le "Eq"

 

[archi]

Re : une macro pour plusieurs feuilles

merci ca marche, cependant ya un petit bug...
...la macro ne ventile pas la ligne 26 de la feuil3 Eq1 ou feuil3 Eq2 ??
bye

 

[ERIC S]

Re : une macro pour plusieurs feuilles

re

a tester

tes macros equipe3 & x n'étaient pas tout à fait écrites de la même façon

 

[archi]

Re : une macro pour plusieurs feuilles

je regarde ça demain
Merci et bye