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

BBdoc31 · 22 Septembre 2023

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 · 20 Octobre 2023

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 · 24 Octobre 2023

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

BBdoc31 · 24 Octobre 2023

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 · 25 Octobre 2023

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

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

BBdoc31

XLDnaute Nouveau

BBdoc31

XLDnaute Nouveau

Pièces jointes

Oneida

XLDnaute Impliqué

BBdoc31

XLDnaute Nouveau

Oneida

XLDnaute Impliqué

Discussions similaires