Adaptation macros encore et toujours

Bonjour le forum,

Dans mon projet, je voudrais numéroter les équipes dans la Col A de la ("Feuil4").

Pour ça j'ai mis en Module "NumEquipes" une macro qui fonctionne très bien tant que je la lance directement du dit module avec la ("Feuil4") affichée à l'écran.

Après ne nombreuse tentatives pour l'incorporer au "Private sub" de la ("Feuil3") et une migraine, je me tourne vers vous pour trouver une solution.

Merci à tous ceux qui voudrons bien me donner l'aspirine...

Merci de votre aide...

Mon fichier joint:

Atlonia,

Je propose de remplacer dans ta procédure "NumerosEquipes" le

With Sheets("Feuil4")

Par

With thisworkbook.ActiveSheet

Bonsoir Atlonia,

tu oublies de mettre le "."devant les objets pour indiquer qu'ils appartiennent à feuil4. si tu ne mets pas le point, Excel (VBA) fera référence aux cellules de la feuille active.

proposition de correction (non testée)

Option Explicit

Sub NumerosEquipes()

Dim Ligne As Long

With Sheets("Feuil4")
    Range(.Range("A2"), .Range("A2").End(xlDown)).ClearContents
    For Ligne = 2 To .Range("C" & Rows.Count).End(xlUp).Row
        If .Range("C" & Ligne).Value <> "" Then
            .Range("A" & Ligne) = "Equipe " & Format(Application.CountIf(Range(.Range("C2"), .Range("C" & Ligne)), "<>"), "0")
        Else
            .Range("A" & Ligne) = ""
        End If
    Next Ligne
End With

End Sub

Salut Atlonia,

Salut l'équipe!

décidément...

                                iNP2 = iNP2 + 1
                                TabloP(0, iLig - 1) = iNP2

A+

Bonsoir GVIALLES,

GVIALLES a écrit :

Atlonia,

Je propose de remplacer dans ta procédure "NumerosEquipes" le

With Sheets("Feuil4")

Par

With thisworkbook.ActiveSheet

Merci de t'intéresser à mon problème, mais je voulais que la macro ne concerne que la "Feuil4"...

Avec "With thisworkbook.ActiveSheet" elle peut agir sur n'importe quelle feuille affichée à l'écran...!

A moins que je ne me trompe...

h2so4 et curulis (l'auteur du code...) m'ont tous deux fourni une solution qui fonctionne.

Merci encore pour ton interêt...

A+

Bonsoir h2so4,

Ta solution fonctionne parfaitement...

Merci pour ton aide.

h2so4 a écrit :

Bonsoir Atlonia,

tu oublies de mettre le "."devant les objets pour indiquer qu'ils appartiennent à feuil4. si tu ne mets pas le point, Excel (VBA) fera référence aux cellules de la feuille active.

proposition de correction (non testée)

Option Explicit

Sub NumerosEquipes()

Dim Ligne As Long

With Sheets("Feuil4")
    Range(.Range("A2"), .Range("A2").End(xlDown)).ClearContents
    For Ligne = 2 To .Range("C" & Rows.Count).End(xlUp).Row
        If .Range("C" & Ligne).Value <> "" Then
            .Range("A" & Ligne) = "Equipe " & Format(Application.CountIf(Range(.Range("C2"), .Range("C" & Ligne)), "<>"), "0")
        Else
            .Range("A" & Ligne) = ""
        End If
    Next Ligne
End With

End Sub

Bonne continuation...

A+

Bonsoir curulis,

Ta solution est parfaite et on ne peut plus simple... pour toi...

J'aurais été bien incapable de la trouver tout seul, avec mes maigres connaissances en VBA.

comme tu a pu le voir j'étais parti sur une autre piste et même là, j'avais du mal...

curulis57 a écrit :

Salut Atlonia,

Salut l'équipe!

décidément...

                                iNP2 = iNP2 + 1
                                TabloP(0, iLig - 1) = iNP2

A+

Merci pour ton aide précieuse...

Bonne continuation.

A+