Discussion :

[jerem1]

Bonjour à tous
J'ai actuellement Une cellule contenant un contenu X dans une feuille excel

Je voulais savoir comment programmer en VBA que :
Ma macro cherche ma la totalité des champs = X dans une colonne A d'une autre feuille, me selectionne la ligne associé à cette valeur et les suppriment automatiquement

Merci d'avance

[laurentabj]

Pas testé mais un truc dans ce genre devrait fonctionner

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
dim FeuilleSource as worksheet
dim FeuilleCible as worksheet
dim rangeSource as Range
dim rangeCible as Range
dim valueToFind as long
dim c as Object
dim a as inetger
 
set FeuilleSource = activeworkbook.worksheets("Source")
set FeuilleCible = activeworkbook.worksheets("Cible")
set rangeSource = FeuilleSource.cells(1,1) 'Valeur source à mettre en Source!A1
set rangeCible = FeuilleCible.usedrange
valueToFind = FeuilleSource.rangeSource
 
While a>0 'on fait autant de passe qu'il reste des valeurs = valueToFind
dim a = 0 
 
for each c in RangeCible.columns(1).cells 'on suppose que la valeur à trouver est en première colonne de ta plage de recherche
if c = valueToFind then
c.entirerow.delete
a= a+1
next c
 
 
Wend

[laurentabj]

Le même après test

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub test()
 
    Dim FeuilleSource As Worksheet
    Dim FeuilleCible As Worksheet
    Dim rangeSource As Range
    Dim rangeCible As Range
    Dim valueToFind As Long
    Dim c As Object
    Dim a As Integer
 
    Set FeuilleSource = ActiveWorkbook.Worksheets("Source")
    Set FeuilleCible = ActiveWorkbook.Worksheets("Cible")
    Set rangeSource = FeuilleSource.Cells(1, 1) 'Valeur source à mettre en Source!A1
    Set rangeCible = FeuilleCible.UsedRange
    valueToFind = rangeSource
 
    a = 1
 
    While a > 0 'on fait autant de passe qu'il reste des valeurs = valueToFind
    a = 0
        For Each c In rangeCible.Columns(1).Cells 'on suppose que la valeur à trouver est en première colonne de ta plage de recherche
            If c = valueToFind Then
            c.EntireRow.Delete
            a = a + 1
            End If
        Next
    Wend
 
End Sub