Suppression ligne complete selon valeur d'une cellule

pierrejean

XLDnaute Barbatruc

• 17 Février 2017

• #2

Bonjour Nicoalbert

Un essai

 

Pièces jointes

• Suppression ligne complete selon valeur d'une cellule.xls

  349 KB · Affichages: 89

Vote positif 0 Vote négatif

N

NICOALBERT

XLDnaute Occasionnel

• 17 Février 2017

• #3

bonjour pierrejean ,

Un grand merci pour ta réponse qui fonctionne très bien .

j’adapterais la macro pour la feuille "Extérieur"

Par contre pour la feuille "Tête à Tête" , comme il faut que dans la colonne F et H les deux équipe y soit il faut que je modifie quel parti du code ?

cdlt Nicoalbert.

 

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 17 Février 2017

• #4

Bonjour à tous,

Peut-être cette macro :

Code:

Option Explicit

Sub sup()
Dim i As Long, derligne As Long
Application.ScreenUpdating = False
With Sheets("Domicile")
derligne = .Range("F3").End(xlDown).Row
For i = derligne To 1 Step -1
Sheets("MDJ").Select
  If .Cells(i, 6) <> Range("C2") And .Cells(i, 6) <> Range("D2") Then
.Rows(i).Delete
  End If
Next i
End With
Sheets("Domicile").Select
Range("A1").Select
Application.ScreenUpdating = True
End Sub

Bonne journée à tous !

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 17 Février 2017

• #5

Re
Voici pour tête a tête et extérieur
NB : J'ai également modifié Domicile pour exclure en équipe 2 (comme ton exemple)

 

Pièces jointes

• Suppression ligne complete selon valeur d'une cellule.xls

  277 KB · Affichages: 65

Vote positif 0 Vote négatif

N

NICOALBERT

XLDnaute Occasionnel

• 17 Février 2017

• #6

un très grand merci pierrejean , ça fonctionne parfaitement .

Le seul soucis c'est au niveau des dates elles se modifient !!

Je me retrouve avec des date de 2017 qui ne sont pas présente dans la base

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 17 Février 2017

• #7

Re
Peux-tu donner quelques exemples S.T.P ?

 

Vote positif 0 Vote négatif

N

NICOALBERT

XLDnaute Occasionnel

• 17 Février 2017

• #8

Comme tu peut le voir après avoir lancé la macro les lignes 8 à 13 les jours et les mois sont inversé , comme pour les heures en lignes 4 et 5 (alors qu'il n'y a aucune formules)

 

Vote positif 0 Vote négatif

natorp

XLDnaute Barbatruc

• 17 Février 2017

• #9

Bjr Nicoalbert, Pierrejean et jbarbe

Ce sujet m'intéresse et j'ai une question pour nicoalbert, est-ce vraiment une suppression de ligne que tu souhaites ou un filtre en fonction des valeurs des cellules de la page MDJ ?
car en cas de suppression, les autres données sont effacées...

Excusez-moi pour mon intrusion..cordialement Gérard

 

Vote positif 0 Vote négatif

N

NICOALBERT

XLDnaute Occasionnel

• 17 Février 2017

• #10

Bonjour natorp ,

Merci pour cette question , en fait ce que je cherche c'est en partant de la feuille MDJ , sortir les données par chaque match à venir des équipes à domicile , en extérieur et lorsqu'elle ont déjà jouer ensemble.

Après peut être qu'en filtrant , copiant et transférant les données ça parait plus simple.

Moi je partais sur le premier modèle car je ne voyais que cette solution.

cdlt Nicoalbert

 

Vote positif 0 Vote négatif

natorp

XLDnaute Barbatruc

• 17 Février 2017

• #11

Pardon, je n'avais pas vu la feuille "base" sur laquelle s'appuie les macros de pierrejean

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 17 Février 2017

• #12

Re

OK : version rectifiée

 

Pièces jointes

• Suppression ligne complete selon valeur d'une cellule.xls

  281.5 KB · Affichages: 69

Vote positif 0 Vote négatif

N

NICOALBERT

XLDnaute Occasionnel

• 17 Février 2017

• #13

Un très grand merci pierrejean , ça fonctionne à merveille .

 

Vote positif 0 Vote négatif

debellahi

XLDnaute Nouveau

• 30 Août 2021

• #14

JBARBE à dit:

Bonjour à tous,

Peut-être cette macro :

Code:

Option Explicit

Sub sup()
Dim i As Long, derligne As Long
Application.ScreenUpdating = False
With Sheets("Domicile")
derligne = .Range("F3").End(xlDown).Row
For i = derligne To 1 Step -1
Sheets("MDJ").Select
  If .Cells(i, 6) <> Range("C2") And .Cells(i, 6) <> Range("D2") Then
.Rows(i).Delete
  End If
Next i
End With
Sheets("Domicile").Select
Range("A1").Select
Application.ScreenUpdating = True
End Sub

Bonne journée à tous !

Cliquez pour agrandir...

Bonjour/Bonsoir !
Ce code m'a été d'un grand secours. Merci pour votre généreux partage.
Serait-il possible de supprimer uniquement la ligne d'un tableau (mode tableau), au lieu d'une ligne entière ?

 

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 30 Août 2021

• #15

debellahi à dit:

Bonjour/Bonsoir !
Ce code m'a été d'un grand secours. Merci pour votre généreux partage.
Serait-il possible de supprimer uniquement la ligne d'un tableau (mode tableau), au lieu d'une ligne entière ?

Cliquez pour agrandir...

Bonsoir à tous, debellahi,
Cela ne supprimera pas mais effacera les lignes des colonnes choisies !
Peut-être ceci, qui effacera les lignes correspondantes à i de la colonne F ( 6) !
Modif : .Cells(i, 6).Clear en remplacement de .Rows(i).Delete

Plusieurs lignes et colonnes ( exemple : colonnes 1 à 6 ) > .Range(Cells(i,1),Cells(i,6)).Clear

VB:

Option Explicit

Sub sup()
Dim i As Long, derligne As Long
Application.ScreenUpdating = False
With Sheets("Domicile")
derligne = .Range("F3").End(xlDown).Row
For i = derligne To 1 Step -1
Sheets("MDJ").Select
  If .Cells(i, 6) <> Range("C2") And .Cells(i, 6) <> Range("D2") Then
.Cells(i, 6).Clear
  End If
Next i
End With
Sheets("Domicile").Select
Range("A1").Select
Application.ScreenUpdating = True
End Sub

Bonne nuit !

 

Dernière édition: 30 Août 2021

Vote positif 0 Vote négatif