Discussion :

[airfigeac]

Bonjour,


je cherche, dans une feuille "Admin" à créer un bouton pour supprimer toutes les lignes après la ligne 1 de toutes les feuilles nommées sem1, sem2 sem3 ....jusqu'à sem53
(ce sont des semaines).
J'ai modifié les noms "feuil1" en "sem1"... et en onglet sont nommées S1..
La ligne 1 est figée, j'ai figé les volets, et apres donc cette ligne 1, ce sont toutes les lignes d'apres que je veux pouvoir supprimer dans toutes les feuilles de sem1 à sem53
Les differentes colonnes dans ces feuilles son toujours les memes, A,B,C,D,E,F

J'ai tenté ce code mais ça ne marche pas, j'ai du mal à comprendre pourquoi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Supprimer_Click()
Dim i As Integer, j As Integer
Dim code
a = MsgBox("Etes vous sur de vouloir faire cela ?", vbYesNo)
If (a = 6) Then
With Sheets("S1")
code = .Range("A" & ActiveCell.Row) & .Range("B" & ActiveCell.Row) & _
    .Range("C" & ActiveCell.Row) & .Range("D" & ActiveCell.Row) & .Range("E" & ActiveCell.Row) & .Range("F" & ActiveCell.Row)
End With
For i = 2 To Sheets.Count
With Sheets(i)
    For j = .Range("B65536").End(xlUp).Row To 6 Step -1
        If .Cells(j, 2) = code Then .Rows(j).Delete
    Next j
End With
Next
Selection.EntireRow.Delete
Else
Cancel = True
End If
End Sub

Mais ça ne marche pas

Merci de votre aide

[Philippe Tulliez]

Bonjour,
Pas certain que ce soit le code le plus performant (on pourrait éviter les Select) mais voici un petit exemple qui écrit dans les plages A1:A25, les nombres de 1 à 25 des feuilles nommées Bruxelles, Madrid et Paris et qui ensuite supprime les lignes de 5 à 15 de ces mêmes feuilles
Cela vous mettra sur la piste

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub T()
    Sheets(Array("Bruxelles", "Madrid", "Paris")).Select
    Cells.Clear
    With Range("A1")
    .Value = 1
    .DataSeries Rowcol:=xlColumns, Type:=xlLinear, Step:=1, Stop:=25
    .Rows("5:15").Delete
    End With
    Sheets("Bruxelles").Select
End Sub

[EDIT]
Autre exemple avec boucle (sans Select) qui effectue le même travail

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub t()
  Dim sht As Worksheet
  For Each sht In ThisWorkbook.Worksheets
    With sht
      Select Case LCase(.Name)
         Case "bruxelles", "madrid", "paris"
              With .Range("A1")
              .Value = 1
              .DataSeries Rowcol:=xlColumns, Type:=xlLinear, Step:=1, Stop:=25
              End With
              .Rows("5:15").Delete
      End Select
 
    End With
  Next
  Set sht = Nothing
End Sub

Attention que dans les deux exemples, les lignes complètes (5 à 15) sont supprimées

[airfigeac]

bonjour, j'ai tenté d'adapter ton code (le 2eme)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Supprimer_Click()
 Dim sht As Worksheet
  For Each sht In ThisWorkbook.Worksheets
    With sht
      Select Case LCase(.Name)
         Case "S1", "S2", "S3"
              With .Range("A2")
              .Value = 1
              .DataSeries Rowcol:=xlColumns, Type:=xlLinear, Step:=1, Stop:=25
              End With
              .Rows("2:25").Delete
      End Select
 
    End With
  Next
  Set sht = Nothing
End Sub

Ca ne fonctionne pas, pas de message d'erreur.
S1 S2 S3 sont les trois feuilles (je mettrai toutes les feuilles apres) que je teste à supprimer le contenu, donc ici les lignes de 2 à 25
la igne 1 devait être préservée, j'ai mis

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

With .Range("A2")

ça ne fonctionne pas

[Philippe Tulliez]

Bonjour,

ça ne fonctionne pas

Cela ne fonctionne pas parce-que S1, S2 et S3 sont écrits en majuscule, alors que dans le Select Case on teste les minuscules (la fonction LCase)
Voyez ma ligne suivante Case "bruxelles", "madrid", "paris" tous les noms sont en minuscule

[airfigeac]

ah ok, j'ai changé les S1 S2 S3 en s1 s2 s3

J'ai quand meme ce message "la methode delete de la classe range a échoué"
et quand je clique le débogage, ça me dirige sur le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Rows("2:25").Delete

[Philippe Tulliez]

Bonjour,

J'ai quand meme ce message "la methode delete de la classe range a échoué"

Mes tests on été effectués avec des feuilles vides à la base. N'y aurait-il pas un tableau structurés ou un autre objet en colonne A ?

[airfigeac]

Heu, si,

en fait la ligne 1 est un menu figé. (option volets figés)
Dessous oui, j'ai les colonnes A B C D E F qui sont alimentées par un userform (l'userform crée une nouvelle ligne à chaque fois)
Nom, Date, heure, theme, interlocuteur et consigne.
J'ai donc 53 feuilles correspondant ainsi à 53 semaines de l'année.

Le but de ce bouton en admin est de supprimer toutes les lignes après la ligne 1, notamment pour réutiliser le fichier en vierge pour 2021

Je ne sais pas si ça t'éclaire comment est conçu mon fichier?

[Philippe Tulliez]

Bonjour,
Le fait de figer les volets n'a aucune incidence sur la ligne d'instruction qui supprime des lignes.
Je ne comprends pas. L'erreur aurait été la 1024, j'aurais une explication mais pas celle-là

Mis à part cela

• Avec 53 feuilles je travaillerais avec un autre critère en ne listant que les feuilles à ne pas traiter
• Utiliser une feuille par semaine me semble être une mauvaise organisation des données. Dans 99,99% des cas une seule feuille suffit pour gérer l'année et même plusieurs années mais si pour des raisons impérieuses il faut traiter un classeur par année, je créerais un modèle (suffixe xltx ou xltm) vierge de toutes données et que je reprendrais en début d'année
• Je conseille également l'utilisation des tableaux structurés

[Pierre Fauconnier]

Salut.

[...]
je cherche, dans une feuille "Admin" à créer un bouton pour supprimer toutes les lignes après la ligne 1 de toutes les feuilles nommées sem1, sem2 sem3 ....jusqu'à sem53[...]

Basiquement, voici le code qui supprime les lignes après la ligne 1 pour chaque feuille dont le nom commence "Sem", qu'il y ait ou pas des tableaux structurés sur la feuille.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub DeleteSem()
  Dim sh As Worksheet
 
  For Each sh In Worksheets
    If UCase(sh.Name) Like "SEM*" Then
      sh.Range("a2:a1048576").EntireRow.Delete
    End If
  Next
End Sub

Peux-tu tester ce code ou mieux expliquer ton problème?

[airfigeac]

dans le code du bouton, je n'ai visé que la feuille "s1" et ça fonctionne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Supprimer_Click()
Dim sht As Worksheet
  For Each sht In ThisWorkbook.Worksheets
    With sht
      Select Case LCase(.Name)
         Case "s1"
              With .Range("A2")
              .Value = 1
              .DataSeries Rowcol:=xlColumns, Type:=xlLinear, Step:=1, Stop:=25
              End With
              .Rows("2:60").Delete
      End Select
 
    End With
  Next
  Set sht = Nothing
End Sub

Comment faire pour viser les feuilles de s1 à s53 ?
EDITAh bein si ça fonctionne maintenant ! j'ai ajouté s2 et ça marche ! ...au temps pour moi ! je comprends pas où est ce que j'ai foiré

Sinon oui, je suis conscient que faire 53 feuilles pour 53 semaines c'est pas le top, mais je suis novice sur excel, j'ai déjà eu beaucoup de mal à arriver à faire l'userform pour alimenter une feuille ...
Je sais que y a moyen de faire autrement mais je ne suis pas encore assez calé.

[airfigeac]

Bon, j'ai trouvé une ruse, vous allez trouver ça très barbare maisbon, ça fonctionne.

Dans ma feuille admin :

un bouton pour deprotéger toutes les feuilles

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Deproteger_Click()
Dim feuille As Worksheet
For Each feuille In ActiveWorkbook.Worksheets
feuille.Unprotect "mdp"
Next
End Sub

un bouton suppression des lignes (de 2 à 600) de toutes les feuilles (53 semaines)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Supprimer_Click()
Dim sht As Worksheet
  For Each sht In ThisWorkbook.Worksheets
    With sht
      Select Case LCase(.Name)
         Case "s1", "s2", "s3", "s4", "s5", "s6", "s7", "s8", "s9", "s10", "s11", "s12", "s13", "s14", "s15", "s16", "s17", "s18", "s19", "s20", "s21", "s22", "s23", "s24", "s25", "s26", "s27", "s28", "s29", "s30", "s31", "s32", "s33", "s34", "s35", "s36", "s37", "s38", "s39", "s40", "s41", "s42", "s43", "s44", "s45", "s46", "s47", "s48", "s49", "s50", "s51", "s52", "s53"
              With .Range("A2")
              .Value = 1
              .DataSeries Rowcol:=xlColumns, Type:=xlLinear, Step:=1, Stop:=25
              End With
              .Rows("2:600").Delete
      End Select
 
    End With
  Next
  Set sht = Nothing
End Sub

Dans thisworkbook j'ai le code pour protéger toutes les feuilles à l'ouverture :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Workbook_Open()
Dim i As Integer
Sheets("Accueil").Activate
shMenu.PrepareButtons
For Each Sh In Array("S1", "S2", "S3", "S4", "S5", "S6", "S7", "S8", "S9", "S10", "S11", "S12", "S13", "S14", "S15", "S16", "S17", "S18", "S19", "S20", "S21", "S22", "S23", "S24", "S25", "S26", "S27", "S28", "S29", "S30", "S31", "S32", "S33", "S34", "S35", "S36", "S37", "S38", "S39", "S40", "S41", "S42", "S43", "S44", "S45", "S46", "S47", "S48", "S49", "S50", "S51", "S52", "S53")
        Sheets(Sh).Visible = xlVeryHidden
    Next Sh
  For i = 1 To Sheets.Count
   Sheets(i).Protect Password:="mdp", UserInterfaceOnly:=True
    Sheets(i).EnableSelection = xlNoRestrictions
  Next i 
End Sub

Du coup c'est certes barbare mais ça fonctionne nickel !
Sinon, quand je clique le bouton "déprotéger toutes les feuilles" on se croierait en discothèque mais bon, je ne l'utiliserai que rarement et de toute façon, comme il a déjà été dit, il sera mieux que je fasse autrement pour gérer les 53 semaines qu'avec 53 feuilles.

[Pierre Fauconnier]

Pour éviter l'effet discothèque (et accélérer ta macro), tu peux démarrer ta macro par Application.Screenupdating = False et terminer la macro par Application.ScreenUpdating = True

[airfigeac]

Pour éviter l'effet discothèque (et accélérer ta macro), tu peux démarrer ta macro par Application.Screenupdating = False et terminer la macro par Application.ScreenUpdating = True

Mais t'es partout !
j'allai sur l'autre discussion t'amener ici mais je vois que tu y es déjà ! ^^
je regarde de pres ton code ^^

edit

je mets ça où?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Screenupdating = False et terminer la macro par Application.ScreenUpdating = True

J'ai trp peur que le fichier parte en purée !

[Philippe Tulliez]

Bonjour,

je mets ça où?

En début de procédure, l'instruction Application.Screenupdating = False et en fin de procédure il n'est pas obligatoire de remettre à True la valeur car c'est automatique. Sauf bien entendu si d'autres instructions au sein de la procédure nécessitent l'affichage.

[airfigeac]

Merci beaucoup !!! y a plus l'effet discothèque ! ^^
Zetes trop forts ^^