Problème avec AND

Version imprimable

Problème avec AND

Bonjour

J'ai un petit soucis sur ce script :

Code:

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

27/02/2012, 14h20
Philippe Tulliez

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

Code:

If (.Value = "MyFirstValue") And (.Offset(1, 0) = "MySecondValue") Then
27/02/2012, 14h24
casefayere

Bonjour,

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

Code:

If .Value = MyFirstValue And .Offset(1, 0) = MySecondValue Then
27/02/2012, 14h34
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
27/02/2012, 14h59
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:

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)

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:

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

Hello Corona

En modifiant comme suivant, cela ne fait plus rien

Code:

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

Bonjour,
C'est curieux parce-que j'avais la même erreur que toi avec ton code si la condition n'était pas remplie et ce dès l'arrivée à la dernière ligne de la feuille ce qui est normal.
Avec le code corrigé que je t'ai envoyé, cela fonctionne puisque le programme s'arrête à la dernière ligne remplie.
Voici le code complet.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Option Explicit Sub Del_Special() 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) With c Debug.Print c.Value, c.Address If .Value = "MyFirstValue" And .Offset(1, 0) = "MySecondValue" Then Debug.Print "End of Job - Trouvé": Exit For .Value = "" .Offset(-1, 0) = "" .Offset(1, 0) = "" End If End With Next End With Debug.Print "End of job" End Sub

Re

Je vais craquer si tu me dis que cela fonctionne chez toi car cela ne fait plus rien chez moi.
Un vrai casse-tête...
Voici le code modifié avec les valeurs

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Option Explicit
Sub Del_Special_2()
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
Debug.Print c.Value, c.Address
If .Value = "FRRECI-ComputerAdmins;Group" And .Offset(1, 0) = "##############################" Then
Debug.Print "End of Job - Trouvé": Exit For
.Value = ""
.Offset(-1, 0) = ""
.Offset(1, 0) = ""
End If
End With
Next
End With
Debug.Print "End of job"
End Sub

27/02/2012, 16h01
gFZT82

Bonjour,

Essaie avec

Code:

For Each c In .Range("A1:A" & dercel)

Cordialement.
27/02/2012, 16h08
Philippe Tulliez

Bonjour,
Oui, désolé, la correction faites par gFZT82 est la bonne.
J'ai fait cela très vite et évidemment ce n'est pas l'idéal.
27/02/2012, 16h17
lafafmentvotre

Hello
Ne sois pas désolé, cela m'aide beaucoup ces conseils.

En tout cas, cela ne fonctionne toujours pas... Je m'arrache les cheveux.
Lorsque j'exécute la macro, il ne se passe rien...
Suis vert

Bon,
Je viens de faire un dernier test et cela fonctionne parfaitement.
Cependant, il serait préférable de donner la valeur à la variable dercel avec la colonne A en lieu et place de B.
Ceci fonctionne parfaitement
Dans une table de 110 lignes, j'ai mis en
A106 : MyFirstValue
A107 : MySecondValue
Il efface bien A105, A106 & A107
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Option Explicit Sub Del_Special() Dim c As Range, dercel As Single With Sheets("AB") dercel = .Cells(.Rows.count, 1).End(xlUp).row For Each c In .Range("A1:A" & dercel) With c Debug.Print c.Value, c.Address 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