Discussion :

[lafafmentvotre]

Bonjour

J'ai un petit soucis sur ce script :

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
 
Sub Del_Special()
Dim  c As Range
With Sheets("Sheet1")
Set dercel = .Cells(.Rows.Count, 2).End(xlUp)
For Each c In .Range("A:A")
With c
If .Value = "MyFirstValue" And .Offset(1, 0) = "MySecondValue" Then
    .Value = ""
    .Offset(-1, 0) = ""
    .Offset(1, 0) = ""
End If
End With
Next
End With

Il met une erreur sur la ligne 8.

Une idée ?

Merci par avance

[Philippe Tulliez]

Bonjour,
Pas le temps de tester mais je placerais des parenthèses

Code :

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

If (.Value = "MyFirstValue") And (.Offset(1, 0) = "MySecondValue") Then

[casefayere]

Bonjour,

Perso, je pense qu'il s'agit de variables donc enlever les ""

Code :

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

If .Value = MyFirstValue And .Offset(1, 0) = MySecondValue Then

[lafafmentvotre]

Bonjour corona
J'avais essayé avec parenthèses mais idem, erreur

Bonjour casefayere
J'ai mis des noms en exemple entre "" mais il ne s'agit pas de variables mais bien de texte.

Merci pour votre aide

[Philippe Tulliez]

Bonjour,
Après avoir testé, le problème que tu rencontres, c'est vraisemblablement que la condition n'est pas remplie et arrivé à la dernière ligne de la feuille, il ne peut plus aller une ligne plus bas (.offset,1,0)
Je m'étais posé la question de la raison de Dercel en range. Modifie les premières lignes de ton code et ta boucle.

Code :

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

1
2
3
4
Dim c As Range, dercel As Single
 With Sheets("A")
  dercel = .Cells(.Rows.count, 2).End(xlUp).row
  For Each c In .Range("A" & dercel)

[lafafmentvotre]

Hello Corona

En modifiant comme suivant, cela ne fait plus rien

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
Sub Del_Special()
Dim c As Range, dercel As Single
With Sheets("TEST")
dercel = .Cells(.Rows.Count, 2).End(xlUp).Row
For Each c In .Range("A" & dercel)
With c
If .Value = "MyFirstValue" And .Offset(1, 0) = "MySecondValue" Then
.Value = ""
.Offset(-1, 0) = ""
.Offset(1, 0) = ""
End If
End With
Next
End With
End Sub

[mentat]

Tu as peut être la solution de passer par deux conditions If

par contre je comprend pas ce que tu souhaite faire avec les offsets...

.offset(numéro de ligne,numéro colonne)

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
 
Private Sub CommandButton1_Click()
 
Dim c As Range
With Sheets("feuil1")
Set dercel = .Cells(.Rows.Count, 2).End(xlUp)
For Each c In .Range("A1:A6")
With c
If .Value = "MyFirstValue" Then
    If .Offset(1, 0) = "MySecondValue" Then
        .Value = ""
        .Offset(-1, 0) = ""
        .Offset(1, 0) = ""
        End If
End If
End With
Next
End With
 
End Sub