XL 2016 Bonjour.

S

soan

XLDnaute Barbatruc

Inactif

• 8 Avril 2021

• #2

Bonjour manzol,

bienvenue sur le site XLD !

pour supprimer la 10ème ligne :

Rows(10).Delete

soan

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 8 Avril 2021

• #3

Quel titre évocateur franchement n'importe quoi

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 9 Avril 2021

• #4

Bonjour Bruno,

oui, ça aurait été mieux : « Au revoir, 10ème ligne »

mébon, comme c'est son tout 1er post, j'ai rien dit à ce sujet...

soan

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 9 Avril 2021

• #5

Bonjour à toutes et à tous,
Je vous souhaite une belle journée
@manzol
- Ce serait bien de mettre un titre qui reflète votre besoin, cela permet de mieux retrouver les discussions par la suite,
- Expliquez plus clairement votre besoin (quel critère ? par exemple),
- Egalement, un fichier exemple montrant ce que vous attendez, nous permettrait de vous répondre,
Bonne journée,
Amicalement,
lionel,

 

Dernière édition: 9 Avril 2021

Vote positif 0 Vote négatif

M

manzol

XLDnaute Nouveau

• 9 Avril 2021

• #6

Bonjour @Usine à gaz, merci beaucoup pour votre reaction.
je joins mon fichier pour vous permettre de bien me comprendre et m'aider.
en effet sur le tableau là dans la feuille journal, je veux securiser la feuille pour empecher toutes modification manuelle dans ce cas:
- je veux par exemple supprimer la 2è opération (dont la reférence est la première colonne du tableau (num OP)), je veux créer un bouton "supprimer", en cliquant dessus ça te sort une boite de dialogue, tu tape par ex: 2 puis tu clique "ok" pouf ça supprime la ligne qui porte le numero 2 dans la premiere colonne.

- ou soit m'aider à créer un boutton/icone de suppression sur chaque ligne, comme ça en cliquant dessus la ligne s'efface directement.

merci beaucoup d'avance

 

Pièces jointes

• mon fichier mz.xlsm

  32 KB · Affichages: 7

Vote positif 0 Vote négatif

M

manzol

XLDnaute Nouveau

• 9 Avril 2021

• #7

merci

soan à dit:

Bonjour manzol,

bienvenue sur le site XLD !

pour supprimer la 10ème ligne :

Rows(10).Delete

soan

Cliquez pour agrandir...

@soan.
ça marche, mais seulement, je veux que ca ne soit pas figer, car je peux vouloir supprimer la ligne 2 ou 5, ainsi de suite. comment faire? (cfr le commentaire et le fichiers que je viens de joindre)
merci

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 9 Avril 2021

• #8

Bonjour @manzol, Soan, Bruno, Lionel

Tirer de l'aide de Bilou
Je te propose ceci....

Tu mets des "x" sur les lignes qui seront supprimées
*Edit :Les "x" sont à mettre dans la colonne A

@Phil69970

 

Pièces jointes

• Supprimer Lignes V1.xlsm

  30.1 KB · Affichages: 5

Dernière édition: 9 Avril 2021

Vote positif 0 Vote négatif

M

manzol

XLDnaute Nouveau

• 9 Avril 2021

• #9

très interessant @Phil69970 , merci beaucoup, seulement je ne comprend pas comment mettre les x en question

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 9 Avril 2021

• #10

Bonjour manzol, le fil,

je vais avoir une solution très intéressante à te proposer, et très adaptée à ton journal, mais ça va me prendre beaucoup de temps pour la faire, alors à plus tard. ​

soan

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 9 Avril 2021

• #11

Re

Tu ne sais pas mettre un "X" dans la colonne A dans les lignes que tu veux supprimer !

manzol à dit:

seulement je ne comprend pas comment mettre les x en question

Cliquez pour agrandir...

Si tu veux supprimer la ligne 20 tu mets un "x" dans la cellule A20 !!! et tu cliques sur le bouton "sup Ligne"

@Phil69970

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 9 Avril 2021

• #12

@manzol, le fil,

ton fichier en retour.

pour ce que je vais te proposer, y'a ni boîte de dialogue pour saisir un n° d'opération, ni ligne à cocher ; il faut juste que tu sélectionnes la bonne cellule avant de faire Ctrl e ; ça doit être en colonne A ; à partir de la ligne 9 ou en dessous ; et seulement si la cellule à droite n'est pas vide, car OP doit être indiqué en colonne B : il faut un n° d'opération.

par exemple, tu veux supprimer l'opération n° 4 ; sélectionne A16 et fais Ctrl e ➯ rien, et c'est normal, car B16 est vide ; sélectionne A15 et fais Ctrl e ➯ message : "Voulez-vous supprimer l'opération n° 4 ?" ; clic sur "Oui" ➯ ça supprime les 2 lignes 15 et 16 de l'opération n° 4 ; bien sûr, si t'avais cliqué sur "Non" : feuille inchangée.

autre exemple (juste après avoir supprimé l'opération n° 4) : tu veux supprimer l'opération n° 9 ; sélectionne A23 et fais Ctrl e ➯ message : "Voulez-vous supprimer l'opération n° 9 ?" ; clic sur "Oui" ➯ ça supprime les 2 lignes 23 et 24 de l'opération n° 9.

cerise sur le gâteau : si une opération fait plus de 2 lignes, elle sera entièrement supprimée. ​

mon code VBA est dans Module4 :

VB:

Option Explicit

Sub SupprOp()
  Dim col%, lg1&, lg2&
  With ActiveCell
    col = .Column: If col > 1 Then Exit Sub
    lg1 = .Row: If lg1 < 9 Then Exit Sub
    If .Offset(, 1) = "" Then Exit Sub
  End With
  lg2 = lg1 + 1
  Do While Cells(lg2, 2) = "" And Cells(lg2, 3) <> ""
    lg2 = lg2 + 1
  Loop
  lg2 = lg2 - 1
  If MsgBox("Voulez-vous supprimer l'opération n° " & Cells(lg1, 2) _
    & " ?", 36) = 6 Then Rows(lg1 & ":" & lg2).Delete
End Sub

regarde aussi Module1. c'est non testé puisque ta feuille "balance" est absente ; de plus, bizarrement, tu as utilisé à la fois sh et sh2 pour référencer la même feuille "journal1" !​

soan

 

Pièces jointes

• mon fichier mz.xlsm

  29.5 KB · Affichages: 4

Dernière édition: 9 Avril 2021

Vote positif 0 Vote négatif

M

manzol

XLDnaute Nouveau

• 12 Avril 2021

• #13

merci beaucoup @soan ça marche parfaitement.
pour Sh et Sh2 comprends moi, je suis encore à mes debit,

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 12 Avril 2021

• #14

@manzol

merci pour ton retour, j'suis ravi qu'ma solution te convienne ! ​

pour sh et sh2 : si c'est car tu en es à tes débuts, alors bon courage pour la suite ! j'croyais qu'il y avait une autre raison.

soan

 

Dernière édition: 12 Avril 2021

Vote positif 0 Vote négatif

M

manzol

XLDnaute Nouveau

• 12 Avril 2021

• #15

merci.
merci d'avoir corrigé aussi mon module 1

 

Vote positif 0 Vote négatif