Discussion :

[rond24]

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 :

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

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.

[biggione]

utilise plutot ceci voir ci ca marche:

Code :

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

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

[jmfmarques]

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

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 :

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

Elle est bien bonne, celle-là !

[rond24]

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

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
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.

[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 :

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

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

[Elstak]

Mouarf retournes à tes problemes !!!

bon aller je vais te répondre.

Code :

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

'commentaire

ca t'a bon !


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

Code :

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

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

si t'a

Code :

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

msgbox activecell.....

tu peux pas mettre ton with

[AnozerOne]

Yeah 50 % de bonnes réponses

[SfJ5Rpw8]

..

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

essai :

Code :

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

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

[Elstak]

chut !!

[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