XL 2016 Interférence entre une boucle et un copie de feuille

[BBdoc31]

Bonjour,

J'ai un petit soucis dans mes macros,

' Copie de la feuille Data
Sheets("Data").Select
Sheets("Data").Copy After:=Sheets(2)
ActiveSheet.Name = Sheets("Data").Range("G3")
ActiveWindow.SelectedSheets.Visible = False
' Copie de la feuile Print
Sheets("PRINT").Select
Sheets("PRINT").Copy After:=Sheets(2)
ActiveSheet.Name = Sheets("Data").Range("G2")
ActiveWindow.SelectedSheets.Visible = False

Quand cette partie du code est active ma boucle se met en erreur

' Choix d'affichage de 4 ou 2 lignes
For Tour = 1 To NbT
If Sheets("Data").Range("H" & Tour * 10 + 12) = 2 Then
Sheets("PRINT").Rows(Tour * 7 + 172 & ":" & Tour * 7 + 173).Select
Selection.EntireRow.Hidden = True
Else
Sheets("PRINT").Rows(Tour * 7 + 172 & ":" & Tour * 7 + 173).Select
Selection.EntireRow.Hidden = False
End If
Next

la boucle est appelée après la copie par un userform après que le premier userform ai été fermé

 

[BBdoc31]

J'ai joint le fichier en espérant un peu plus de réponse

le MdP est 1

La partie de la copie se trouve dans FMod
La partie de l'affichage se trouve dans FMTest

 

[Oneida]

Bonjour,

Pour FMTest:
Pour select il faut que la feuille soit active. La plupart du temps ces select pas utiles et temps d'exec plus long

'   Choix d'affichage de 4 ou 2 lignes
            For Tour = 1 To NbT
                If Sheets("Data").Range("H" & Tour * 10 + 12) = 2 Then
                    Sheets("EN708").Rows(Tour * 7 + 172 & ":" & Tour * 7 + 173).EntireRow.Hidden = True
                Else
                    Sheets("EN708").Rows(Tour * 7 + 172 & ":" & Tour * 7 + 173).EntireRow.Hidden = False
                End If
            Next

Pour FMod, comprends pas

 

[BBdoc31]

Bonjour, j'ai corrigé comme tu as marqué.
Cela fonctionne très bien maintenant mais je n'ai pas compris pourquoi cela bloquait entre les 2 fonctions

Merci

 

[Oneida]

Bonjour,
Ben moi, je comprends ce que vous voulez vu que je ne sais pas comment ca marche!