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

BBdoc31

XLDnaute Nouveau
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é
 

Oneida

XLDnaute Impliqué
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
VB:
'   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
 

Discussions similaires

Réponses
12
Affichages
620

Statistiques des forums

Discussions
313 222
Messages
2 096 329
Membres
106 571
dernier inscrit
Domdom24