MACRO : erreur boucle

[rodrigues89]

Bonjour tout le monde,

j'ai un petit problème avec ma macro que je n'arrive pas à faire fonctionner. Je vous explique :

j'ai deux données, Téléphone et mail en face de chacune de ces données j'ai une colonne "état" dans laquelle je renseigne l'état de la donnée (corrigée ou rejetée).

Dans le meilleur des mondes, il suffirait que je mette un téléphone en "corrigée" pour que dans la colonne "état" du mail j'ai "corrigée" qui s'inscrive.

Pour cette étape j'y suis presque à part que ma macro bug (voir PJ)

Mais j'aimerais aussi que si dans un premier temps j'ai renseigné une cellules avec "corrigée" et que je change pour "rejetée" ou rien, alors l'état "corrigée" au niveau du mail s'efface.

Est ce que quelqu'un à une idée ? merci d'avance pour toutes les propositions

Rodrigues

 

[Compte Supprimé 979]

Re : MACRO : erreur boucle

Bonjour Rodrigues89

Pourquoi vouloir utiliser du code VBA quand tu peux faire ça simplement par formule

=si(B2="Corrigée";"Corrigée";"")

A+

 

[rodrigues89]

Re : MACRO : erreur boucle

Merci Bruno M45,

mais je suis obligé d'utiliser du code parce que ma liste déroulante doit rester active car il est possible que l'utilisateur corrige le mail mais pas le téléphone.

quelqu'un a une idée ?

 

[Si...]

Re : MACRO : erreur boucle

Salut

avec ta version, ajoute 3 lignes (sens TEL --> MAIL) :

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim l As Long
    Application.EnableEvents = False
    For l = Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
        If Cells(l, 2).Value = "Corrigée" Then Cells(l, 4).Value = "Corrigée"
        If Cells(l, 2).Value = "Rejetée" Then Cells(l, 4).Value = ""
    Next l
    Application.EnableEvents = True
End Sub

 

[rodrigues89]

Re : MACRO : erreur boucle

Merci beaucoup SI... c'est presque exctement ce qu'il me fallait et j'ai réussi à adapter le reste !

Merci mille fois