Quelqu'un peut regarder ma macro !

[hellocarioca]

Bonjour,

tjrs le même prob avec ma macro et la même en revenant sur mon ordi ou ça marchait avant...🙁

Ma macro est la suivante:

Sub MacroArchive()
'
' MacroArchive Macro

Dim NumLigne1 As Long, NumLigne2 As Long
Dim I As Long, J As Long
NumLigne1 = Sheets("Dispute_DB").Range("T65536").End(xlUp).Row
NumLigne2 = Sheets("Closed Disputes").Range("T65536").End(xlUp).Row

I = 2
Do While I <= NumLigne1
If Sheets("Dispute_DB").Range("S" & I) = "Resolved" Then
NumLigne2 = NumLigne2 + 1
For J = 2 To 20
Sheets("Closed Disputes").Cells(NumLigne2, J) = Sheets("Dispute_DB").Cells(I, J)
Next
Sheets("Dispute_DB").Range("S" & I).EntireRow.Delete
Else
I = I + 1
End If
Loop

End Sub

Est ce que qq'1 voit une erreur?? parce que là je suis au bord de la crise de nerfs... 😕 ça marchait très bien avant, et la excel réagit comme ci il n'y avait même pas de macro !

help

Maud

 

[SergiO]

Re : Quelqu'un peut regarder ma macro !

Bonjour Maud,

Difficile de voir ce qui ne fonctionne plus sans le fichier.
Je ne vois voir rien dans le code...
... sauf peut-être la saisie de Resolved dans ton fichier où il faut respecter les majuscules et minuscules.

@+

Edit: Je viens de voir que tu as ouvert 3 posts pour le même sujet. Reste sur le même STP.

 

[TheLio]

Re : Quelqu'un peut regarder ma macro !

Hello Sergio Maud, le forum,

pour ceux qui veulent suivre le fil depuis le début

https://www.excel-downloads.com/threads/prob-de-macro.85781/

A++ TheLio

Edit sur 2007 si ton classeur n'est pas au format xlsm, tu dois réactiver au niveau de la sécurité à chaque ouveture je crois

 

[Excel_lent]

Re : Quelqu'un peut regarder ma macro !

Salut hellocarioca, SergiO, TheLio (sans oublier jeanpierre et les autres)

Quelle samba !!!!
Tu a déjà posé ce problème dans d'autres messages.
Demande toi pourquoi tu n'as pas de réponse !
Comment veux-tu tester une macro hors de son contexte ?
J'ai essayé de le faire (Excel 2000) mais comment voir la copie du vide (sans avoir le vertige) ?
J'ai pu constater que toutes les bonnes résolutions (Resolved) étaient supprimées.
La boucle est bouclée mais cela ne me suffit pas pour savoir si ton attente a été satisfaite.
Nous en sommes tous au même stade (pas Maracanã).

 

[hellocarioca]

Re : Quelqu'un peut regarder ma macro !

Bonjour tout le monde !

je suis vraiment dsl d'avoir créée autant de discussions... je recommencerai plus !

pour vous aider je vous met en copie un fichier example !

Dîtes moi ce que vous en pensez !

Merci

Maud

 

[SergiO]

Re : Quelqu'un peut regarder ma macro !

Re,

Tu recherches NumLigne1 et NumLigne2 sur la colonne T qui est vide !!!
Closed est en colonne R et non S

@+

 

[mutzik]

Re : Quelqu'un peut regarder ma macro !

bonjour,

dans la ligne
If Sheets("Dispute_DB").Range("S" & I) = "Closed" Then
alors que le statut "closed" se trouve dans la colonne R et non S

...
salut sergio !

 

[Excel_lent]

Re : Quelqu'un peut regarder ma macro !

Re,

A première vue (puisque tu es pressée), tu as :

If Sheets("Dispute_DB").Range("[B][COLOR=Red]S[/COLOR][/B]" & I) = "Closed" Then

et dans ta feuille, ton choix se fait en colonne R et pas S.

Ajout : salut Bretrand (ton oiseau ne ressemble pas au toucan brésilien).

 

[hellocarioca]

Re : Quelqu'un peut regarder ma macro !

Bonjour mes gentils genies d'excel !

je sais pas koi dire, sauf qu'à force d'avoir la tête dedans et ben les erreurs les plus bêtes sont les moins évidentes !

c le prob avec les NumLigne qui clochait !! Donc SergiO merci merci merci merci merci... je crois que tu m'as sauvé la vie, un peu plus et je sautais avec mon ordi...lol

Passez une très bonne journée !

Maud 😀