Il doit y avoir mieux !

[WDAndCo]

Bonjour le Forum

Il doit être possible d'éviter cette double vérification avoir une autre façon de faire !

          If Cells(2, 4) <> "" And Cells(2, 8) = 0 Then MsgBox "Impossible car la derniere Intervention n'a pas d'heures !", , "Message de Auto CRU (WD And Co.)": If MsgBox("Voulez-vous effacer la ligne 2 ?", vbYesNo, "Confirmation") = vbYes Then Rows("2:2").Delete: Exit Sub
          If Cells(2, 4) <> "" And Cells(2, 8) = 0 Then Exit Sub
    Rows("2:2").Select
    Selection.Copy
    Selection.Insert Shift:=xlDown
    Cells(2, 3) = Cells(1, 68)

Etc...

D'avance merci
Dominique

 

[Orodreth]

Re : Il doit y avoir mieux !

Bonjour,

Je pige pas. Pourquoi tu regroupes pas ?

'On regroupe la conditionnelle vu qu'elle est identique
If Cells(2,4).value <> "" And Cells(2,8).value = 0 Then
	'Si on rentre dedans, on fait tous les traitements
    MsgBox "Impossible car la derniere Intervention n'a pas d'heures !", , "Message de Auto CRU (WD And Co.)"
	'On demande si l'utilisateur veut supprimer, si oui on supprime
	If MsgBox("Voulez-vous effacer la ligne 2 ?", vbYesNo, "Confirmation") = vbYes Then Rows("2:2").Delete
	'Dans tous les cas, si on est rentré dans la conditionnelle, on sort de la procédure
	Exit Sub
end if

'Si on arrive ici, on n'est pas rentré dans la conditionnelle, on reprend le code normalement
Rows("2:2").Select
Selection.Copy
Selection.Insert Shift:=xlDown
Cells(2, 3) = Cells(1, 68)

Ca me parait déjà plus lisible comme ça (en fait, il y a des parties de ton code que je ne suis pas sûr d'avoir compris)

Cordialement,
Orodreth

 

[WDAndCo]

Re : Il doit y avoir mieux !

Merci beaucoup, et avec les explications SVP.
Encore merci
Dominique

 

[Orodreth]

Re : Il doit y avoir mieux !

Pas de quoi, un plaisir 🙂