Supprimer cellule VBA

Version imprimable

04/07/2025, 15h15
LolaMartinez

1 pièce(s) jointe(s)

Supprimer cellule VBA

Bonjour à tous,

J'aimerais supprimer des cellules en fonction de mon test VRAI/FAUX, j'ai des dates qu'il faut re associer au bon fichier, si les deux fichiers correspondent j'aimerais que la macro passe à la cellule suivante et si elles ne correspondent pas, j'aimerais qu'elle supprime les cellules en remontant les cellules.

Ex: La colonne F donne le résultat de "=E1=A1"
Pièce jointe 668553

Pour l'instant j'arrive à supprimer les cellules avec un bouton mais je le fais à la main et c'est long, y'aurait-il moyen d'automatiser ça s'il vous plait?

Le code qui supprime manuellement via un bouton:

Sub Supp()

Range(ActiveCell, ActiveCell.Offset(0, 3)).Select
Range(ActiveCell, ActiveCell.Offset(0, 3)).Activate
Selection.Delete Shift:=xlUp

End Sub

Le code que j'ai essayé pour automatiser mais qui ne fonctionne pas (Err: "For sans Next"):

Sub Supp()

For Line = 1 To 1000
If Cells(ligne, 6) = "FAUX" Then
Range(ActiveCell, ActiveCell.Offset(0, 3)).Select
Range(ActiveCell, ActiveCell.Offset(0, 3)).Activate
Selection.Delete Shift:=xlUp
GoTo
ActiveCell.Offset(1).Select
End If

End Sub
04/07/2025, 15h53
Raccourcix

2 pièce(s) jointe(s)

Bonjour
pas besoin de macro pour faire ça

en colonne A une liste avec des valeurs (chaque valeur est unique d'après ce que je comprends)
en colonne E une liste avec des valeurs commune à la colonne A

si vous voulez identifier les valeurs de la colonne A qui ne sont pas présentes dans la colonne E vous pouvez utiliser la fonction EQUIV (qui renverra une erreur) ou NB.SI (qui renverra 0) puis supprimer les lignes sans correspondance

avec une autre solution consiste à utiliser une mise en forme conditionnel (valeur en double)

ici il est facile d'identifier en rouge les valeurs présentes dans les 2 colonnes
Pièce jointe 668554

vous pouvez aussi choisir d'identifier les valeurs uniques
Pièce jointe 668555

il ne vous reste plus qu'à sélectionner les lignes via un filtre par couleur et à supprimer les valeurs sans correspondance

Stéphane

Bonjour à tous,
Votre code n'est pas complet, et renvoie une erreur. Vous devez fermer votre boucle exemple :

Code:

1
2
3
4
For Each Cell In MaPlage
'...
'...
Next Cell

Voici un code minimaliste qui doit faire ce que vous demandez :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Supp()
    ' // Peut-être faut-il adapter au besoin par exemple With Feuil1 ou With sh_MyData etc...
    With ActiveSheet
        Dim Plage As Excel.Range ' // Affectation d'une variable Plage
        Set Plage = .Range("F1:F" & .Range("F" & .Rows.Count).End(xlUp).Row)
 
        Dim rowCounter As Long ' // Déclaration d'un compteur
        ' // Pour une suppression efficace on décompte de la dernière ligne à la première
        For rowCounter = Plage.Rows.Count To 1 Step -1
            ' // Si la cellule est égale à VRAI alors on supprime la ligne complète
            If .Cells(rowCounter, "F").Value = True Then .Cells(rowCounter, "f").EntireRow.Delete
        Next rowCounter
    End With
End Sub

07/07/2025, 09h10
LolaMartinez

Bonjour Stéphane,

Merci pour votre retour.
Si je fais ça cela va me supprimer mes valeurs qui sont juste décalées d'une ligne, dans mon exemple, la 3eme ligne renvoie faux mais lorsque les cellules de la 2eme ligne sont supprimées et remontées vers le haut, les deux valeurs correspondent bien.
A moins que je n'aie pas compris votre suggestion (ce qui est fort possible!)

Merci
Lola
07/07/2025, 09h11
LolaMartinez

Bonjour Valtrase,

Merci pour votre retour, je vais essayer comme ça, ça devrait aller mieux! :)
07/07/2025, 13h46
Raccourcix

Citation:

Envoyé par LolaMartinez

Bonjour Stéphane,

Merci pour votre retour.
Si je fais ça cela va me supprimer mes valeurs qui sont juste décalées d'une ligne, dans mon exemple, la 3eme ligne renvoie faux mais lorsque les cellules de la 2eme ligne sont supprimées et remontées vers le haut, les deux valeurs correspondent bien.
A moins que je n'aie pas compris votre suggestion (ce qui est fort possible!)

Merci
Lola

Bonjour
il faudrait que vous expliquiez l'objectif plutôt que le début de votre solution par macro
dans votre premier message vous dites vouloir associer des dates à des fichiers.

3 questions
où se trouve la liste des fichiers ?
où est celle des dates ?
comment souhaitez vous les mettre en correspondance ?

ensuite, est-ce une tâche ponctuelle ou une tâche récurrente ?
combien y a t-il de fichier : ? quelques-uns ou plusieurs milliers ?

je pense qu'une macro n'est pas nécessaire et qu'il existe déjà tous les outils dans Excel pour traiter votre problème simplement

Stéphane