VBA (Excel) - Supprimer une ligne Résolu/Fermé

Question

Hello !

J'aimerai savoir comment rechercher une valeur dans une colonne et supprimer la ligne correspondante... 
Voila ce que j'ai fait :

    Range("A1").Select
    Do While ActiveCell <> "toto"
        ActiveCell.Offset(1, 0).Select
    Loop
        
    Selection.Delete Shift:=xlUp

En fait, je n'arrive pas à sélectionner la ligne entière pour la supprimer...

QQ'un a une soluce ?...
Merci d'avance ! ;o)

Mangda · Accepted Answer

Et tout simplement un 
Selection.EntireRow.Delete
Ca ne serait pas plus simple ?
Ou un peu plus complique, mais plus simple que ce qui a ete propose:
Rows(Selection.Row).Delete shift:=xlUp

Mais je vis au moins deux problemes a ton code:

 Si toto apparaît deux fois, il ne sera supprimer qu' une seule fois
 Si toto n’apparaît jamais, a la ligne 65536 tu vas avoir une erreur sur le offset.

Ne sachant pas combien de ligne tu as, tu pourrais mettre comme code:
For i = Cells(1, 1).CurrentRegion.Rows.Count To 1 Step -1
   If Cells(i, 1).Value = "toto" Then Cells(i, 1).EntireRow.Delete
Next
 en sachant que tu peux remplacer Cells(1, 1).CurrentRegion.Rows.Count par le nombre de lignes correspondant.

DaNot · Answer

Salut,

Essayes :
Range ("A:A").Select
Selection.Delete ...

DaNot

DaNot · Answer

Ah, ok...

Voilà une petite fonction qui te sera peut etre utile :

Function GetColumn(aValue As Long) As String

If aValue < 26 Then
        GetColumn = Chr(64 + aValue)
    Else
        GetColumn = Chr(64 + (aValue \ 26)) & GetColumn(aValue Mod 26)
    End If
End Function


Cette fonction renvoie la colonne associée à un nombre (ex. 49 retourne "AW", 55 retourne "BC"). Il ne te reste plus qu'à :

Range (GetColumn (ActiveCell.Column) & ":" & GetColumn (ActiveCell.Column)).Select
Selection.Delete....

DaNot

DaNot · Answer

C'est plus simple que je ne pensais ;-)

Il existe la propriété Row d'un objet de type Range qui contient le # de la ligne. Donc, il suffit d'utiliser Range(Trim(Str(ActiveCell.Row)) & ":" & Trim(Str(ActiveCell.Row))).Select

voulou...

DaNot

XRay · Answer

effectivement, c'est plus simple et ca fonctionne aussi bien !Pour les doublons, je me base sur un code unique donc pas de problème pour ca mais merci de ton conseil !

seb · Answer

en fait tu veux effacer une ligne dans ton tableau excel???mais est elle presente plusieurs fois dans ton tableau cette ligne??

scafandre · Answer

bonjour 
moi j'aimerai suprimer un ligne entiere qui ne commence pas par un nombre... est-ce possible ?

merci d'avance.

MrB · Answer

et moi
je cherche à supprimer les lignes dont les 4 premieres cellules sont vide...
A vous lire, merci d'avance.

poutz · Answer

Bonjour j'ai une programme de comptage pour determiner des entrants et des sortants à la minute je voudrais qu'il soit toutes les 10 minutes voici le code : Public FeuilleSource As String Sub TraitementComptage() Dim TempsDépart As Date Dim DépartComptage As Boolean 'saisir le premier temps constaté sur une campagne de comtage TempsDépart = InputBox("Heure de début de campagne de comptage", "initialisation temps") 'Génération d'une feuille pour chaque touche FeuilleSource = ActiveSheet.Name For i = 1 To 4 Sheets.Add ActiveSheet.Name = "T" & i Next 'Génération Feuille Synthèse Sheets.Add ActiveSheet.Name = "Synthèse" For i = 1 To 4 Range(Chr(i + 66) & 1).Value = "T" & i Next i 'Ventilation des données dans la feuille touche correspondante Sheets(FeuilleSource).Select i = 1 Do While Sheets(FeuilleSource).Range("A" & i).Value <> "" ValeurCellule = Sheets(FeuilleSource).Range("A" & i).Value Sheets(ValeurCellule).Range("A" & i).Value = ValeurCellule Sheets(ValeurCellule).Range("B" & i).Value = Sheets(FeuilleSource).Range("B" & i) Sheets(ValeurCellule).Range("C" & i).Value = Sheets(FeuilleSource).Range("C" & i) Sheets(ValeurCellule).Range("D" & i).Value = Sheets(FeuilleSource).Range("D" & i) Sheets(ValeurCellule).Range("E" & i).Value = Sheets(FeuilleSource).Range("E" & i) i = i + 1 Loop 'Tri des feuilles For i = 1 To 4 Sheets("T" & i).Select Columns("A:G").Select Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom Next i 'Insertion d'une colonne contenant l'information de la nieme minute depuis le temps de départ For i = 1 To 4 Sheets("T" & i).Select j = 1 Do While Range("A" & j).Value <> "" Range("G" & j).Value = 1 + Minute(Range("E" & j).Value - TempsDépart) + 60 * Hour(Range("E" & j).Value - TempsDépart) j = j + 1 Loop If j > 1 Then 'enregistrement du nombre de minutes entre début et fin de comptage 'et du nombre de lignes pour la feuille Range("F1").Value = Range("G" & j - 1) Range("F2").Value = j - 1 End If Next i 'Remplissage dans la feuille synthèse des colonnes de regroupement indiquant le nombre de comptage 'pour chaque minute écoulée et chaque touche For i = 1 To 4 Sheets("T" & i).Select Sheets("Synthèse").Range(Chr(i + 66) & 2).Value = Range("B1").Value k = 1 DerniereLigneComptée = 1 For j = 1 To Range("F1").Value 'nb de minutes Sheets("Synthèse").Range("A" & j + 2).Value = j 'minute courante Sheets("Synthèse").Range("B" & j + 2).Value = DateAdd("n", j - 1, TempsDépart) 'temps courant comptage = 0 DépartComptage = False For k = DerniereLigneComptée To Range("F2").Value 'nombre de lignes If Range("G" & k) = j Then DépartComptage = True comptage = comptage + 1 End If If DépartComptage And Range("G" & k) <> j Then DerniereLigneComptée = k 'mémorisation pour entrée de boucle suivante Exit For End If Next k Sheets("Synthèse").Range(Chr(i + 66) & j + 2).Value = comptage 'indication du nb de comtage pour la minute courante Next j Next i End Sub merci beaucoup pour votre aide

Felipe · Answer

DaNot, la fonction que tu avais donné m'a été très utile, mais il y a just un problème:
Quand aValue=0, alors ça bug...

Donc pour ceux qui vont se servir encore de cette fonction, voici une petite ajuste à la fonction de DaNot:

---
Function GetColumn(aValue As Long) As String

If aValue <> 0 Then
        If aValue < 26 Then
            GetColumn = Chr(64 + aValue)
        Else
            GetColumn = Chr(64 + (Int(aValue \ 26))) & GetColumn(aValue Mod 26)
        End If
    Else:
        Exit Function
    End If
    
End Function
---

Felipe

isabelle · Answer

Bonjour,

comment peut-on supprimer dans excel un mot qui apparait 2 fois ou plus pour qu'il disparaisse complétement et ne garder que les mots uniques qui n'ont pas de doublons dans la colonne ?

merci pour vos réponse

isabelle

Lidy · Answer

Bonjour,

J'ai un problème avec VBA? Est ce que vous pouvez m'aider?

j'ai des données sur excel  et j'ai une colonne F qui contient les codes, donc je voulais faire une boucle qui recherche dans la colonne F et lorsque elle trouve le code "NOT", elle supprime la ligne entière correpondant à ce code

voici ce que j'ai essayé mais malhereusement ça ne marche pas


Range("F2").Select
ActiveCell.Offset(-1, 0).Select

Do While ActiveCell.Value <> "NOT"
  If ActiveCell.Value = "NOT" Then
    Selection.EntireRow.Delete
  End If
Loop

merci

Ed. · Answer

ActiveCell.EntireRow.Delete 'pour une ligne
ActiveCell.EntireColumn.Delete 'pour une colonne

dlescot · Answer

Avec du retard....

' supprime la ligne complète
Dim plage As Range, s As Range

Set plage = Range("A1").EntireRow

For Each s In plage
    s.Delete Shift:=xlUp
Next s

VBA (Excel) - Supprimer une ligne

14 réponses

Discussions similaires