Problème d'éxécution macro

[ascarter]

Bonjour à tous,
J'ai un petit soucis de programmation en VBA. Dans mon fichier joint, je ne comprend pas pourquoi la macro n'éxécute pas les paragraphes ("obligatoire non faite" et "demande client") simultanément. Seul le dernier paragraphe est pris en compte. Mais j'aimerais que les deux le soit. Pouvez vous m'aider svp.
Merci d'avance

 

[Robert]

Re : Problème d'éxécution macro

Bonjour Ascarter, bonjour le forum,

J'ai fait tourner ta macro pas à pas et elle exécute bien tout le code ! Le problème doit venir des conditions qui ne sont peut-être pas bien exposées...

 

[mintri]

Re : Problème d'éxécution macro

Hello ascarter,

En fait tu as écrit ceci :


If Cells(i, 2) = "" And Cells(i, 1).Interior.ColorIndex = 3 Then
Cells(i, 5) = Cells(i, 1)
Cells(i, 5).Interior.ColorIndex = Cells(i, 1).Interior.ColorIndex
Else
Cells(i, 5) = ""
Cells(i, 5).Interior.ColorIndex = 2
End If

'demande client
If Cells(i, 4) = 1 Then
Cells(i, 5) = Cells(i, 3)
Cells(i, 5).Interior.ColorIndex = Cells(i, 3).Interior.ColorIndex
Else
Cells(i, 5) = ""
Cells(i, 5).Interior.ColorIndex = 2
End If


Dans ton deuxième paragraphe, tout ce qui se trouve sous Else sera exécuté si cela ne répond pas aux conditions du "if". Autrement dit, il va écraser les modifications effectuées dans ton premier paragraphe. Si tu enlèves le "else" de ton deuxième paragraphe, les deux devront s'exécuter sans souci !

Edit : bonjour Robert

 

[ascarter]

Re : Problème d'éxécution macro

Merci beaucoup, à plus

 

[herve62]

Re : Problème d'éxécution macro

Bonjour
Juste je finissais de tester , RAS
Sinon Ok avec Mintri , tu modifies 2 fois en Cells(i,5) donc c'est la dernière qui est prise en compte