[VBA-E]PB sur une boucle for each next

Version imprimable

Bonjour, ma boucle ci dessus s'arrête dès qu'elle rencontre une cellule avec la valeur "ALL", alors qu'elle doit rechercher sur l'ensemble des cellules d'une plage nommée. D'où le for each c in.....
et je comprend pas pourquoi le next c ne passe pas?:?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
For Each c In Plage
                c = ActiveCell.Value
 
                    If c = "CE637000_FEJ" Then
                            If ActiveCell.Offset(0, -2).Value <> "ALL" Then
                                MsgBox ActiveCell.Offset(0, -2).Value
                                MsgBox ActiveCell.Address
                                ActiveCell.EntireRow.Delete
                            End If
 
 
 
                    End If
 
                Next c

Merci.

utilise plutot ceci voir ci ca marche:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
For Each u In Plage.count
                c = ActiveCell.Value
 
                    If c = "CE637000_FEJ" Then
                            If ActiveCell.Offset(0, -2).Value <> "ALL" Then
                                MsgBox ActiveCell.Offset(0, -2).Value
                                MsgBox ActiveCell.Address
                                ActiveCell.EntireRow.Delete
                            End If
 
                    End If
 
                Next u

28/07/2006, 13h49
jmfmarques

ce qui saute au yeux est ceci , dans la boucle :

Citation:

c = ActiveCell.Value

If c = "CE637000_FEJ" Then

Il est bien évident que ne saurait de cette façon être traitée une autre cellule que celle contenant la valeur "CE637000_FEJ"

C'est à peu prés l'équivalent de :

Citation:

je veux traiter tous les légumes mais ignorerai tout ce qui n'est pas le navet !!!;)

Elle est bien bonne, celle-là !

J'ai modifié mon code de la manière suivante:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
For Each c In Plage
                Valeurlue = c
 
                    If Valeurlue = "CE637000_FEJ" Then
                    Cpt = Cpt + 1
                            'If ActiveCell.Offset(0, -2).Value <> "ALL" Then
                                'MsgBox ActiveCell.Offset(0, -2).Value
                                'MsgBox ActiveCell.Address
                                ActiveCell.EntireRow.Delete
 
                            'End If
 
 
                    End If
          Next c
Msgbox Cpt

il efface certes les bonnes lignes, mais pas toutes celles qui vérifient ma condition? c'est à dire que mon Cpt doit me remonter 1 si je relance la macro, car seule une ligne comporte la valeur ALL et CE637000_FEJ.

31/07/2006, 15h01
AnozerOne
euh question de newbie mais c'est normal que ton code comporte des ', concrétement cela les réduits à des simples commentaires non ?
et au lieu de répéter 3 fois active cell, tu peux faire :
Code:

1 2 With Active Cell .... End With
Je me trompes ?

Désolé si j'ai insulté ton éventuelle expérience de VBA, je débutes totalement
31/07/2006, 15h05
Elstak
Mouarf retournes à tes problemes !!! :mouarf:

bon aller je vais te répondre.

Code:

'commentaire

ca t'a bon !

mais with activecell, le code doit toujours commencer par activecell. Exemple :
Code:

1 2 3 4 with activecell .Offset(0, -2).Value .EntireRow.Delete end with
si t'a

Code:

msgbox activecell.....

tu peux pas mettre ton with
31/07/2006, 15h11
AnozerOne

Yeah 50 % de bonnes réponses 8-)

Citation:

Envoyé par Elstak

..

mais with activecell, le code doit toujours commencer par activecell. ...

essai :
Code:

1 2 3 4 5 With ActiveCell MsgBox "Adresse : " & .Address & " Locale : " & .AddressLocal & " Ligne : " & .Row _ & " Colonne " & .Column & " Valeur : " & .Value End With
:mouarf:

31/07/2006, 15h44
Elstak

chut !!

:oops:
31/07/2006, 15h47
AnozerOne

oho le score monte à 75 % de bonnes réponses.
La moitié des points seulement car sur le principe j'avais bon mais je ne voyais pas cela comme ca :mouarf: