A voir également:
- Erreur 1004 méthode 'Range' dans boucle
- Erreur 0x80070643 - Accueil - Windows
- Corriger l'erreur 0x80070643 de la mise à jour KB5034441 de Windows 10 - Accueil - Windows
- Erreur 4101 france tv - Forum Lecteurs et supports vidéo
- Erreur 5000 france tv - Forum iPhone
- Télé samsung s'éteint et se rallume en boucle - Forum Téléviseurs
2 réponses
Bonjour Keyran, bonjour le forum,
Peut-être comme ça :
Peut-être comme ça :
Sub Macro1() Dim FS As Worksheet Dim i As Integer For Each FS In Worksheets For i = 1700 To 3 Step -1 If Application.WorksheetFunction.CountBlank(FS.Range(FS.Cells(i, 30), FS.Cells(i, 39))) > 4 Then FS.Range(FS.Cells(i, 29), FS.Cells(i, 39)).Delete Shift:=xlUp End If Next i Next FS End Sub
Résolu : Il me suffisait simplement de taper 'FS.Activate' après la ligne For Each FS In WorkSheets.
Ce n'est peut-être pas le plus élégant mais ça fonctionne, merci encore de votre aide !
PS : ayant posté ce message en invité, je ne suis pas reconnue comme son auteur et n'arrive pas à le mettre en résolu, une idée ?
Ce n'est peut-être pas le plus élégant mais ça fonctionne, merci encore de votre aide !
PS : ayant posté ce message en invité, je ne suis pas reconnue comme son auteur et n'arrive pas à le mettre en résolu, une idée ?