End Sub et Le Next de For Next

Bonsoir,

Deux petits problèmes qui doivent se raccrocher à des règles basiques mais que je n'ai pas encore résolu :

Il s'agit d'effacer une liste si le mot est présent dans une autre liste.

Un bouton dont le code dans la feuille est :

Code:

---

1 2 3 4

Private Sub A_effacer_Click() Private Sub Worksheet(ByVal Target As Range) ... End Sub

---

un message s'affiche : "End Sub attendu" : ?? Il y a bien un End Sub en fin de code.

Deuxième mécontentement (:(), il s'agit de regarder si le mot dans la liste située sur la même feuille en AK3:AK100 se trouve dans la plage C2:C100, et dans ce cas, supprimer le mot dans AK3:AK100.

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub A_effacer_Click() Private Sub Worksheet(ByVal Target As Range) Dim Cell As Range FOr Each Cell In Range ("D2:AC100") If Range ("D2:AC100").Value = Range ("AK2:AK100") then Cell.Value.Delete Next End If End SUb

---

Un message : For sans Next (ou Next sans For), je sais plus. Mais lorsque je mets For avant Next , un autre message d'erreur s'affiche. ???
Second essai avec deux variables :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub A_effacer_Click() Private Sub Worksheet(ByVal Target As Range) Dim Cell As Range x = Range("D2:AC100").Cells y = Range("AK:AC100").Cells FOr Each Cell In x If x.Cell.Value = y.Cell.Value then y.Cell.Value.Delete Next FOr End If End Sub

---

Un résultat d'erreur est envoyé.

merci pour votre aide.

Comment tu peux oser écrire ceci? voyons!

Code:

---

1 2 3 4

sub x() sub y() ... end sub

---

une sub s'écrit comme ceci

Code:

---

1 2 3

sub X() 'code end sub

---

attention, n'y-a-til pas concurrence entre le Private Sub du bouton et le Private Sub du Worksheet_change ? car ça ne résoud pas le "ENd Sub Attendu"

avec cette macro

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub A_effacer_Click() Private Sub Worksheet(ByVal Target As Range) Dim Cell As Range FOr Each Cell In Range ("D2:AC100") If Range ("D2:AC100").Value = Range ("AK2:AK100") then Cell.Value.Delete Next End If End SUb

---

End Sub Attendu est aussi renvoyé.

as tu lu qu'on peut pas écrire ainsi

Salut logiclogic et le forum
Au risque de te décevoir, VBA est interpréteur de texte. Comme malheureusement ce n'est pas toi qui l'a développé, il obéit à un certain nombre de règles. C'est pareil que le français. Il faut respecter ses orthographe et syntaxe pour qu'Excel arrive à comprendre ce qu'il doit faire.
Et tu as du pot, quand Excel arrive à avoir une idée de ce qui ne va pas, il te le signale.
Donc : une macro commence par un début (sub ou function) et finit par une fin (end sub ou end Function). On ne peut pas imbriquer le code de deux macros. On peut appeler une macro dans le code d'une autre.
Si tu veux que le code d'une macro puisse être exécuter en automatique ou à partir d'un bouton, il faut que les deux l'appelle en s'en servant de sous-programme.

Au lieu de mettre un code inapplicable, si tu expliquais ce que tu veux obtenir, on pourrait peut-être t'aider.
A+
PS : tu ne peux pas séparer les instructions de leurs fin (If et endif, par exemple)
For ....
if ....
Next ...
End iF
te ressortira systèmatiquement une erreur, il trouve un next sans avoir clôturé son instruction If
Idem pour
If...
For...
Endif
Next
VBA ne peut pas analyser le code, puisque une instruction n'est pas clôturée alors que tu en commence une autre qui a besoin d'une instruction de fin

Bonsoir,


il s'agit, lorsqu'on clique sur un bouton, de lancer une macro qui vérifie si un des mots de la liste AK se trouve dans la plage de cellules, et de la supprimer si c'est le cas.
Tu trouveras tout les détails dans mon premier message. Merci, je vais essayer avec une formule pour supprimer les doublons, mais si tu a la réponse je ne serais pas contre.

Pour en revenir au Attendu End Sub, cela m'est déjà arrivé le fait que ce message apparaisse en début de macro (alors que la macro commence bien par Sub et se termine par End Sub).

Sinon, merci pour End If qui doit être avant le Next.;)

:cfou:

Code:

---

1 2 3

Private Sub A_effacer_Click() '?? Private Sub Worksheet(ByVal Target As Range) Dim Cell As Range

---

Tu réinvente la roue? tu ne peux pas "imbriquer" les procédures comme ceci.
un peux de lecture d'abord

bonjour

au cas ou il n'aurais pas compris

tu a une private bidulechouette en trop !!!!!!!


au plaisir

Salut logiclogic et le forum

Citation:

---

Deuxième mécontentement (:(), il s'agit de regarder si le mot dans la liste située sur la même feuille en AK3:AK100 se trouve dans la plage C2:C100, et dans ce cas, supprimer le mot dans AK3:AK100

---

Je ne m'occupe pas de ta macro qui définie des plages différentes

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub test() Dim Cel As Range, Cel_1 As Range For Each Cel In [C2:C100] For Each Cel_1 In [AK3:AK100] If Cel = Cel_1 Then Cel_1.Delete Shift:=xlUp Exit For End If Next Cel Next X End Sub

---

Pour toutes les cellules de C2:C100 faire une boucle sur les cellules de la plage AK3:AK100. S'il y a égalité, supprimer la cellule AK, lancer le test d'une nouvelle cellule de C.
J'ai mis un "Exit For" pour accélérer le traitement en partant du principe que la colonne AK ne comporte pas de doublons.
Ne connaisssant rien d'autre que les postes, je suggèrerais de remplacer [AK3:AK100] par Range([AK100], cells(rows.Count, "AK").end(xlup)) de AK3 à denière non vide en AK. mais ça suppose que AK ne contient que la liste.
A+

PS : comme le code est simple, je ne l'ai même pas testé.

bonsoir,

remarque générale : :aie:je suis novice dans le vba... :roll:

Citation:

---

Envoyé par logiclogic

attention, n'y-a-til pas concurrence entre le Private Sub du bouton et le Private Sub du Worksheet_change ? car ça ne résoud pas le "ENd Sub Attendu"

avec cette macro

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub A_effacer_Click() Private Sub Worksheet(ByVal Target As Range) Dim Cell As Range FOr Each Cell In Range ("D2:AC100") If Range ("D2:AC100").Value = Range ("AK2:AK100") then Cell.Value.Delete Next End If End SUb

---

End Sub Attendu est aussi renvoyé.

---

bonjour quand tu imbrique une condition "if" dans une boucle le end if dois etre forcement avnt le next



au plaisir