Rapport de message :*
 

Re: Les erreurs

Titre du sujet : Re: Les erreurs
par PowerPlus le 13/01/2008 13:53:12

Votre code est bien pour le workbook mais pour un module standart j'obtient ce code:

Sub edit()
            If Target.Count > 1 Then   'Vérifie si le nombre de cellule sélectionner est superieur à 1
      MsgBox "Vous ne pouvez pas selectionner plus de 2 cellules"
            Else
          
            If Selection.NumberFormat = "##.00" Then 'Vérifie si la cellule a le format: "##.00"
      note.txtNote = Selection.Value
      note.txtCoef = Selection.Offset(1, 0).Value
      note.Show 0
            Else
    
     MsgBox "Vous ne pouvez pas rééditez de note à cet endrois"
           End If
           End If
End Sub


Quelque explications: Pour lancer ce genre de macro on utillise un commandbar (désolé). La macro ne se lance pas car le code continue à s'éxecuter, et l'erreur recommence.