Supprimer une ligne en fonction d'une valeur

Bonjour,

Avant de commencé, merci par avance pour votre aide.

Je souhaiterais supprimer une ligne d'un tableau sur l'onglet "suivi personnel" en fonction d'une valeur que j'aurais choisi sur la page Administrateur.

(Je rentre manuellement l'identifiant d'une personne dans une cellule et sa me recherche la valeur dans le tableau une fois la valeur trouver , il supprime la ligne).

Cordialement

Bonsoir

Tu peux affecter une macro à ton bouton Suppression , comme ceci par exemple

Sub Suppression()
    Range("G38").Select
    Ident = Selection.Value
    Sheets("Suivi du personnel").Select
    Cells.Find(What:=Ident, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
    Rows("21:21").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp
    Sheets("Administrateur").Select
    Range("G38").Select
    Selection.ClearContents
    Range("I38:P38").Select
    Selection.ClearContents
End Sub

Bon courage; Cdlt

merci pour votre aide,

mais un message d'erreur apparaît (erreur syntaxe)

Je viens de trouver sur un autre site le code qui me correspond:

Sub Supprimer_employe()

Sheets("Suivi").Range("A" & Sheets("Administrateur").Range("H38")).EntireRow.Delete

End Sub

Cordialement

Bonjour,

Ce code m'intéresse aussi mais avec une variante.

Pour supprimer le lignes entières lorsque celles-ci contiennent une valeur, peu importe soit-elle, dans la colonne H par exemple.

Merci d'avance.

Bonjour

Voici la macro qui correspond

Dim i As Long

'Renseigner la valeur recherchée pour supprimer les lignes

MaVal = 40021

For i = Range("H10000").End(xlUp).Row To 1 Step -1

'8 correspond à la colonne H

If Cells(i, 8).Value Like MaVal Then Rows(i).Delete

Next i

Bon courage

Bonjour,

J'ai besoin d'un système assez similaire je me permet donc de vous poser la question ici =)

J'ai donc adapté la macro fournie (Merci) à mon fichier mais je voudrais pouvoir supprimer un ensemble de ligne via cette macro sans devoir spécifier une variable différente à chaque fois (j'ai plus de 100 lignes à supprimer)

Je cherche un truc du genre :

Mes vals au lieu de MaVal et lui mettre l’ensemble : 2970597, 2970595, 2970592 et excel supprimerais les lignes qui ont dans la colonne G une des valeurs

Sub ExclureCertainnesLignes()
Sheets("Formatage").Select
Dim i As Long
'Renseigner le n° de sécu de la ligne à supprimer
MaVal = "2970599"
For i = Range("G100000").End(xlUp).Row To 1 Step -1
'7 correspond à la colonne G
If Cells(i, 7).Value Like MaVal Then Rows(i).Delete
Next i

Bonjour bbc94, bonjour le forum

Essaie cela , si j'ai bien compris.

Tu mets tes valeurs dans un tableau.

Sub Suppression()
Dim i As Long, j As Long, MesVals As Variant
'Renseigner les valeur recherchée pour supprimer les lignes
MesVals = Array(42777, 43999, 42818)

For i = Range("G10000").End(xlUp).Row To 1 Step -1
    For j = LBound(MesVals) To UBound(MesVals)
    '7 correspond à la colonne G
        If MesVals(j) = Cells(i, 7).Value Then Rows(i).Delete: Exit For
    Next j
Next i

End Sub

Bon courage.

A +

Extra !! ça ne marchait pas mais c’était dû au fait que je n'avais pas mis de guillemets sur mes données !

Merci !!!! grand merci !

Voici le code final pour ceux qui voudraient :

Sub ExclureCertainnesLignes()
Sheets("Formatage").Select
Dim i As Long, j As Long, MesVals As Variant
'Renseigner les valeur recherchée pour supprimer les lignes
MesVals = Array("2970599", "1941099", "1950299", "1950699", "1990299", "197019304")

For i = Range("G100000").End(xlUp).Row To 1 Step -1
    For j = LBound(MesVals) To UBound(MesVals)
    '7 correspond à la colonne G
        If MesVals(j) = Cells(i, 7).Value Then Rows(i).Delete: Exit For
    Next j
Next i
Sheets("Format").Select

Enchantée pour toi

Suis contente d'avoir pu t'aider

Bonne fin de journée