Microsoft 365 Effacer une même plage de cellule sélectionnée sur plusieurs feuille

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion ShrekL
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
S

ShrekL

XLDnaute Junior
Bonjour,

Il semble ue j'ai un petit bug dans ma commande me servant à effacer une même plage de cellule sélectionnée sur plusieurs feuille. Voici mon code :
VB: 
Sub Effacer_ligne()
'
' Effacer les lignes sélectionnées

'   Définir les feuilles par les no de feuil
    Pages = Array(Feuil3.Name, Feuil5.Name, Feuil8.Name, Feuil10.Name)
'   Définir les rapports par les no de feuil
    rapp = Array(Feuil5.Name, Feuil8.Name, Feuil10.Name)

'   Définir la variable x
    For Each x In Pages
    
'   Enlever la protection des feuilles
        Sheets(x).Unprotect
        Next x

'   Définition des variables
    Dim rng1 As Range
    Set rng1 = Selection.EntireRow
    
    Range(rng1.Address).Delete

'   DANS LES RAPPORTS
    
'   Définir la variable y
    For Each y In rapp

    Sheets(y).Range(rng1.Address).Delete

    Next y
    
    Cells(ActiveCell.Row, 1).Select
    ActiveCell.Offset(-2, 0).Copy
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    
    For Each x In Pages
    Sheets(x).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingColumns:=True, AllowFormattingRows:=True
    
    Next x

End Sub

Le bug se produit à la ligne " Sheets(y).Range(rng1.Address).Delete" lorsque je veux effacer les lignes dans les autres feuilles.

Il doit y avoir un moyen d'effacer cette plage sans sélectionner ou activer ces feuilles?

Merci et salutations,
 
Solution
Phil69970
Re

@ShrekL

Je te propose ceci :

VB: 
Sub suppr()

Pages = Array(Feuil3.Name, Feuil5.Name, Feuil8.Name, Feuil10.Name)      '   Définir les feuilles par les no de feuil
rapp = Array(Feuil5.Name, Feuil8.Name, Feuil10.Name)                             '   Définir les rapports par les no de feuil

For Each x In Pages
    Sheets(x).Unprotect                                                 '   Enlever la protection des feuilles
Next x


Dim MaZone&, DebZone&, FinZone&

MaZone = Selection.Rows.Count       '   Nbre de ligne sélectionné
DebZone = ActiveCell.Row            '   Début de la selection
FinZone = DebZone + MaZone          '   Fin de la selection ==> Debut de la sélection + Nbre de ligne sélectionné
'MaLigne = ActiveCell.Row...
Trier par date Trier par votes
Bonjour @ShrekL

Je te propose ceci avec plein de questions

VB: 
Sub suppr()

Pages = Array(Feuil3.Name, Feuil5.Name, Feuil8.Name, Feuil10.Name)      '   Définir les feuilles par les no de feuil
rapp = Array(Feuil5.Name, Feuil8.Name, Feuil10.Name)                             '   Définir les rapports par les no de feuil

'***********??????
'Pourquoi enlever les protections sur des feuilles ou tu ne vas pas aller ???????
'****************
For Each x In Pages
    Sheets(x).Unprotect                                                 '   Enlever la protection des feuilles
Next x
'****************
'***********?????


MaLigne = ActiveCell.Row

'   DANS LES RAPPORTS
For Each y In rapp
    Sheets(y).Rows(MaLigne).EntireRow.Delete                            '   Suppression de la ligne dans toutes les feuilles de l'aarray rapp
Next y

'********** ????????????????
'**********
' Que viennent faire ces lignes ici si tu es dans une procédure de suppression pourquoi tu fais de la copie
' Dis autrement que cherches tu as faire ici copier quoi sur quelles feuilles etc .....

Cells(ActiveCell.Row, 1).Select
ActiveCell.Offset(-2, 0).Copy
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=False

'**************
'**************??????????????

For Each x In Pages
    Sheets(x).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, _
        AllowFormattingColumns:=True, AllowFormattingRows:=True         '   Remets la protection des feuilles
Next x
End Sub

*Merci de ton retour

@Phil69970
 
Dernière édition:
Vote positif 0 Vote négatif
Phil69970 à dit:
Bonjour @ShrekL

Je te propose ceci avec plein de questions

VB: 
Sub suppr()

Pages = Array(Feuil3.Name, Feuil5.Name, Feuil8.Name, Feuil10.Name)      '   Définir les feuilles par les no de feuil
rapp = Array(Feuil5.Name, Feuil8.Name, Feuil10.Name)                             '   Définir les rapports par les no de feuil

'***********??????
'Pourquoi enlever les protections sur des feuilles ou tu ne vas pas aller ???????
'****************
For Each x In Pages
    Sheets(x).Unprotect                                                 '   Enlever la protection des feuilles
Next x
'****************
'***********?????


MaLigne = ActiveCell.Row

'   DANS LES RAPPORTS
For Each y In rapp
    Sheets(y).Rows(MaLigne).EntireRow.Delete                            '   Suppression de la ligne dans toutes les feuilles de l'aarray rapp
Next y

'********** ????????????????
'**********
' Que viennent faire ces lignes ici si tu es dans une procédure de suppression pourquoi tu fais de la copie
' Dis autrement que cherches tu as faire ici copier quoi sur quelles feuilles etc .....

Cells(ActiveCell.Row, 1).Select
ActiveCell.Offset(-2, 0).Copy
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=False

'**************
'**************??????????????

For Each x In Pages
    Sheets(x).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, _
        AllowFormattingColumns:=True, AllowFormattingRows:=True         '   Remets la protection des feuilles
Next x
End Sub

*Merci de ton retour

@Phil69970
Cliquez pour agrandir...
Bonjour Phil... encore merci pour ton aide. Malheureusement cela ne fonctionne pas car la variable Maligne=ActiveCell efface une seule ligne (celle de la cellule active) alors que ce que je veux c'est effacer plusieurs lignes sélectionnées par l'utilisateur.

En gros, j'aurais p-e due simplement demander pourquoi la variable rng1 = Selection.EntireRow.Delete ne fonctionne pas sur des pages autres que celle active et comment puis-je contourner ce problème?

Pour les autres questions, voici un peu les réponses :
- La protections était désactivée jusqu'à maintenant car, avant aujourd'hui, j'activais les feuilles afin d'effacer les lignes et cela ne fonctionnait pas lorsque les feuilles étaient protégées. Lorsque le code fonctionnera, j'essayerai sans cette étape que j'aimerais bien éliminer effectivement.
- La copie de la cellule à la fin c'est parce que sur ma feuille active, mes lignes sont numérotées avec un numéro d'item. Chaque no d'item ligne est relative à la ligne précédente. En effaçant une ligne, j'ai un problème de référence qui se cré pour les lignes subséquentes alors je ne fais que rétablir la numérotation en recopiant la formule de la ligne au-dessus (uniquement dans ma feuille active).

Merci et salutations,
 
Vote positif 0 Vote négatif
Re

ShrekL à dit:
Maligne=ActiveCell efface une seule ligne (celle de la cellule active) alors que ce que je veux c'est effacer plusieurs lignes sélectionnées par l'utilisateur.
Cliquez pour agrandir...
Je n'avais pas compris que tu en effaçais plusieurs d'un coup, effectivement mon code agit uniquement sur la ligne active

Donc si j'ai compris tu souhaites que l'utilisateur puisse sélectionner X lignes et puise les supprimer dans X feuilles en même temps

@ShrekL
*Confirme moi mon code fonctionne bien pour la ligne active de la feuille active et la même ligne des autres feuilles (déclarer dans ton array)

@Phil69970
 
Vote positif 0 Vote négatif
Re

@ShrekL

Je te propose ceci :

VB: 
Sub suppr()

Pages = Array(Feuil3.Name, Feuil5.Name, Feuil8.Name, Feuil10.Name)      '   Définir les feuilles par les no de feuil
rapp = Array(Feuil5.Name, Feuil8.Name, Feuil10.Name)                             '   Définir les rapports par les no de feuil

For Each x In Pages
    Sheets(x).Unprotect                                                 '   Enlever la protection des feuilles
Next x


Dim MaZone&, DebZone&, FinZone&

MaZone = Selection.Rows.Count       '   Nbre de ligne sélectionné
DebZone = ActiveCell.Row            '   Début de la selection
FinZone = DebZone + MaZone          '   Fin de la selection ==> Debut de la sélection + Nbre de ligne sélectionné
'MaLigne = ActiveCell.Row           '   Code pour supprimer SEULEMENT la ligne Active

For Each y In rapp
    Sheets(y).Rows(DebZone & ":" & FinZone).EntireRow.Delete            '   Suppression de la ligne dans toutes les feuilles de l'array rapp
    'Sheets(y).Rows(MaLigne).EntireRow.Delete                           '   Suppression QUE de la ligne Active dans toutes les feuilles de l'array rapp
Next y

MsgBox MaZone & " lignes ont été supprimées", vbInformation, "Suppression effectuée"

Cells(ActiveCell.Row, 1).Select
ActiveCell.Offset(-2, 0).Copy
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=False

For Each x In Pages
    Sheets(x).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, _
        AllowFormattingColumns:=True, AllowFormattingRows:=True         '   Remets la protection des feuilles
Next x
End Sub

*Merci de ton retour

@Phil69970
 
Dernière édition:
Vote positif 0 Vote négatif
Solution
Merveilleux Phil69970!!! Ça fonctionne à merveille et j'ai naturellement enlevé un peu de superflu.

Voici mon code final pour information
VB: 
Sub Effacer_ligne()
'
' Effacer les lignes sélectionnées

'   Définir les feuilles par les no de feuil
    Pages = Array(Feuil3.Name, Feuil5.Name, Feuil8.Name, Feuil10.Name)
    
'   Définir la variable x
    For Each x In Pages
    
'   Enlever la protection des feuilles
        Sheets(x).Unprotect
        Next x

'   Définition des variables
    Dim MaZone&, DebZone&, FinZone&

    MaZone = Selection.Rows.Count       '   Nbre de ligne sélectionné
    DebZone = ActiveCell.Row            '   Début de la selection
    FinZone = DebZone + MaZone          '   Fin de la selection ==> Debut de la sélection + Nbre de ligne sélectionné


    For Each x In Pages
    Sheets(x).Rows(DebZone & ":" & FinZone).EntireRow.Delete            '   Suppression de la ligne dans toutes les feuilles de l'array rapp

    Next x
    
    Cells(ActiveCell.Row, 1).Select
    ActiveCell.Offset(-2, 0).Copy
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False

    For Each x In Pages
    Sheets(x).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingColumns:=True, AllowFormattingRows:=True
    
    Next x

End Sub
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
348
patricktoulon
patricktoulon
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
941
tnion
T
VBA_dev_Anne_Marie
  • Question Question
Microsoft 365 VBA : copier les adresses
Réponses
7
Affichages
663
VBA_dev_Anne_Marie
VBA_dev_Anne_Marie
N
  • Question Question
Microsoft 365 Alimenter une Combo Active X inséré dans une feuille de calcul
Réponses
3
Affichages
344
NONO14
N
thunder23
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
643
thunder23
thunder23
S
  • Question Question
Microsoft 365 VBA pour copier une une des données d'une ligne à une autre
Réponses
3
Affichages
927
salma_hayek
S
J
  • Question Question
XL 2019 recuperer plage de cellule sur feuille differente
Réponses
2
Affichages
671
juju91
J
S
  • Résolu(e)
Microsoft 365 Effacer le contenu de cellule sur la même ligne d'une autre feuille
Réponses
6
Affichages
910
Robert
Robert
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
1 K
Gestionnaire_rh
G
Nicolas JACQUIN
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
Nicolas JACQUIN
S
  • Résolu(e)
Microsoft 365 Bug de macro pour effacer une ligne
Réponses
4
Affichages
1 K
ShrekL
S
V
  • Résolu(e)
Microsoft 365 VBA effacer plusieurs cellules en fonctionde la valeur d'une dans une boucle for
2 3
Réponses
39
Affichages
3 K
vincent32
V
A
  • Question Question
XL 2016 Adapter une image à une cellule
2
Réponses
16
Affichages
2 K
Dudu2
Dudu2
oguruma
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V1.05 - Evolutions majeures exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
10
Affichages
889
oguruma
oguruma
cathodique
  • Résolu(e)
XL 2010 Problème màj feuilles depuis fichiers CSV
2
Réponses
23
Affichages
3 K
cathodique
cathodique
S
  • Question Question
Microsoft 365 Sélectionner la même cellule que la cellule active dans une autre feuille
Réponses
2
Affichages
1 K
ShrekL
S
T
  • Question Question
XL 2010 VBA - Bouton mettre en rouge plusieurs cellules sur la ligne de la cellule sélectionnée
Réponses
11
Affichages
723
job75
job75
M
  • Question Question
Microsoft 365 Imprimer deux zones d'impression provenant de deux onglets sur une seule feuille
Réponses
5
Affichages
622
herve62
herve62
tactic6
  • Question Question
XL 2016 Aide pour userform (sujet clos)
Réponses
8
Affichages
589
tactic6
tactic6
J
  • Résolu(e)
XL 2016 Aide Macro VBA - Reporter valeurs Feuille 1 dans une autre feuille 2 à partir d'une certaine cellule
Réponses
9
Affichages
5 K
jo77
J
Retour