correction macro

jojo · 17 Février 2006

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é · 17 Février 2006

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 · 17 Février 2006

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 · 17 Février 2006

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 · 17 Février 2006

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é · 18 Février 2006

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 · 18 Février 2006

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 · 18 Février 2006

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

correction macro

jojo

Guest

Hervé

XLDnaute Barbatruc

justine

XLDnaute Occasionnel

justine

XLDnaute Occasionnel

jojo

Guest

Hervé

XLDnaute Barbatruc

Robert

XLDnaute Barbatruc

jojo

Guest

Discussions similaires

correction macro

jojo

Guest

Hervé

XLDnaute Barbatruc

justine

XLDnaute Occasionnel

justine

XLDnaute Occasionnel

jojo

Guest

Hervé

XLDnaute Barbatruc

Robert

XLDnaute Barbatruc

jojo

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency