correction macro

[jojo]

Bonjour, je voulais faire une macro afin , dans un tableau, que sa colore so je le ve, la plus grande valeur!

voila ma macro
Sub Z4()

Sheets('Tab').Select
reponse = MsgBox('Voulez vous afficher le nombre le plus élevé?', vbYesNo)

If reponse = vbYes Then Range('B3😀23').Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:='=MAX($B$3:$D$23)'
Selection.FormatConditions(1).Interior.ColorIndex = 33
reponse = MsgBox('Cliquez sur OK pour revenir au menu', vbOKOnly)
Range('B3😀23').Select
Selection.FormatConditions.Delete
Sheets('Menu').Select



If reponse = vbNo Then reponse = MsgBox('Cliquez sur OK pour revenir au menu', vbOKOnly)
Sheets('Menu').Select

End Sub

Le probleme ce que meme si je clik sur non, sa mexecute la macro !

que faire?
merci davance !

 

[Hervé]

BOnsoir jojo

Et comme ca : (je me suis permis de modifier ton code, pour eviter de créer des mefc pour trouver des max)

Sub Z4vev()
Dim cellule As Range

Sheets('Tab').Select
If MsgBox('Voulez vous afficher le nombre le plus élevé?', vbYesNo) = vbYes Then
        Set cellule = Range('b3:d23').Find(Application.WorksheetFunction.Max(Range('b3:d23')))
        If Not cellule Is Nothing Then cellule.Interior.ColorIndex = 33
End If
MsgBox 'Cliquez sur OK pour revenir au menu', vbOKOnly
If Not cellule Is Nothing Then cellule.Interior.ColorIndex = xlNone
Sheets('Menu').Select


End Sub

salut

 

[justine]

bonsoir le forum, jojo
il te manque 'end if' avant la seconde condition.
sinon, au lieu de reprendre par IF REPONSE=VBNO, termine ta premiere condition par un ELSE

 

[justine]

bonsoir le forum, jojo
il te manque 'end if' avant la seconde condition.
sinon, au lieu de reprendre par IF REPONSE=VBNO, termine ta premiere condition par un ELSE

 

[jojo]

hum.... merci hervé mais je la trouve un peu complexe car je ne connais pas trop encore le language !
Justine, tu ma di kil manke un end if??
mais kan jen met un a la fin de ma premiere condition sa me dit erreur de compilation end if sans block if

jai essayé de mettre else: if reponse=..... pour la seconde condition mais la pareil sa me dit else sans if

je ne sais pas ce qui foire ^^ mais jaimerai juste réglé le probleme, je ne pense pas que sa doit etre dur^^

 

[Hervé]

re jojo, bonsoir justine

comme ca :

Sub Z4()

Sheets('Tab').Select
reponse = MsgBox('Voulez vous afficher le nombre le plus élevé?', vbYesNo)

If reponse = vbYes Then
Range('B3😀23').Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:='=MAX($B$3:$D$23)'
Selection.FormatConditions(1).Interior.ColorIndex = 33
reponse = MsgBox('Cliquez sur OK pour revenir au menu', vbOKOnly)
Range('B3😀23').Select
Selection.FormatConditions.Delete
Sheets('Menu').Select

Else

If reponse = vbNo Then reponse = MsgBox('Cliquez sur OK pour revenir au menu', vbOKOnly)
Sheets('Menu').Select
End If
End Sub


salut

 

[Robert]

Bonsoir Jojo, Hervé, Justine, bonsoir le forum,

Non ce n'est pas dur en tous cas bien plus facile que de comprendre ce putain de langage SMS. Si tu as un moment à perdre, mais j'en doute, lis donc la charte de ce forum...

Sinon Justine à raison il manquait simplement un End If.
Je n'ai fait que reprendre ton code avec renvoi à la ligne après le Then du premier If, le second If devient un Else et j'ai rajouté le End If à la fin :

Sub Z4()
Sheets('Tab').Select
reponse = MsgBox('Voulez vous afficher le nombre le plus élevé?', vbYesNo)

If reponse = vbYes Then

Range('B3😀23').Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:='=MAX($B$3:$D$23)'
Selection.FormatConditions(1).Interior.ColorIndex = 33
reponse = MsgBox('Cliquez sur OK pour revenir au menu', vbOKOnly)
Range('B3😀23').Select
Selection.FormatConditions.Delete
Sheets('Menu').Select

Else

reponse = MsgBox('Cliquez sur OK pour revenir au menu', vbOKOnly)
Sheets('Menu').Select

End If

End Sub

Pourquoi ce second message à la fin puisque l'utilisateur n'a pas le choix ? Pourquoi pas un Sheets('Menu').Select tout simplement ?

Édition :

Heu Hervé... Je rêve là !!!

Message édité par: Robert, à: 18/02/2006 00:20

 

[jojo]

Merci robert, sa marche !
merci a tous et bonne journée