Discussion :

[CLAUDE19]

Bonjour le forum,

La macro ci-dessous placée dans un module me sert sur l'ensemble des feuilles de supprimer la ligne sélectionnée.

Je souhaiterais qu'elle ne puisse être utilisé uniquement que dans deux feuille (Feuil1 et Feuil2) et l'interdire pour les autres feuilles en affichant un message d'erreur si elle est sollicité à ce moment là

Code :

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

1
2
3
4
5
6
7
8
Sub EffacerLigne()
numro_ligne = 1
numero_ligne = ActiveCell.Row
numero_colonne = ActiveCell.Column
If numero_ligne > 7 Then
    ActiveSheet.Cells(numero_ligne, numero_colonne).EntireRow.Delete
End If
End Sub

D'avance merci pour votre aide

[SfJ5Rpw8]

Tant que tu est dans les Active... tu peu tester le nom de la feuille active :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub EffacerLigne()
    If ActiveCell.Row > 7 Then
        Select Case ActiveSheet.Name
         Case "DataWord", "Index"
           ActiveCell.EntireRow.Delete
         Case Else
           MsgBox "Erreur supression ligne impossible sur feuille " & ActiveSheet.Name
        End Select
    End If
End Sub

[patricktoulon]

bonjour
essai ca

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub EffacerLigne()
Dim numero_ligne As Long, numero_colonne As Long
 
 
numro_ligne = 1
numero_ligne = ActiveCell.Row
numero_colonne = ActiveCell.Column
If numero_ligne > 7 Then
    If ActiveSheet.Name = "Feuil1" Or ActiveSheet.Name = "Feuil2" Then
 
Rows(numero_ligne & "," & numero_colonne).Delete
End If
End If
End Sub

au plaisir

[Philippe Tulliez]

Bonjour,
Parcourir la collection des feuilles

Code :

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

1
2
3
4
5
6
7
8
9
10
 Dim sht As Worksheet
 For Each sht In Worksheets
  Select Case sht.Name
   Case "Feuil1", "Feuil2"
    ' Action - test et delete
 
   Case Else
    ' Message
  End Select
 Next

[patricktoulon]

j'aime bien la methode de corona aussi

le principe
boucler sur toute les sheets
avec un select case
c'est bien aussi

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
sub EffacerLigne()
Dim sht As Worksheet
 For Each sht In Worksheets
  Select Case sht.Name
   Case "Feuil1", "Feuil2"
    ' Action - test et delete
 If activecell.rows > 7 Then
    If ActiveSheet.Name = "Feuil1" Or ActiveSheet.Name = "Feuil2" Then
 
Rows(activecell.rows & "," & activecell.rows ).Delete
 
   Case Else
    msgbox "On est au dessus de la ligne 7" & vbcrlf & "Recommencer"  
End Select
 Next
end sub

au plaisir

[SfJ5Rpw8]

j'aime bien la methode de corona aussi

le principe
boucler sur toute les sheets
avec un select case
(...)

.... attention le but c'est d'effacer la ligne contenant la cellule active , et donc de la feuille active
pas de toutes les feuilles (sauf exceptions...) !

[Philippe Tulliez]

Bonjour bbil,

attention le but c'est d'effacer la ligne contenant la cellule active , et donc de la feuille active
pas de toutes les feuilles (sauf exceptions...) !

J'avais cru comprendre uniquement les feuilles Feuil1 & Feuil2 et dans les autres cas envoyer un message d'où le Case Else mais tu as raison, à la relecture c'est bien sur la feuille active en faisant un test si on se trouve sur Feuil1 ou Feuil2

Je souhaiterais qu'elle ne puisse être utilisé uniquement que dans deux feuille (Feuil1 et Feuil2) et l'interdire pour les autres feuilles en affichant un message d'erreur si elle est sollicité à ce moment là