problème d'une fonction sub Fermé

Question

Bonjour, 

j'ai du mal a créer une fonction. en gros j'aimerai que la fonction lise se qui se situe dans la colonne H en commençant par la cellule H "pièce" et si dans celle cellule la valeur et du texte. Un message d'erreur apparais et par colorier la cellule dans la première colonne de la feuille "renseignement".

voici le bout de code

Sub msgerreur()
Dim i As Integer
For i = 16 To 15000
If Sheets("pièce").Cells(8, i).Value = "" Then
Else
    If IsNumeric(Sheets("pièce").Cells(8, i).Value) Then
    Else
   if  MsgBox("Vous avez des erreurs, corrigé les.", vbOK) = vbOK then
    Sheets("renseignement").Cells(1, (i - 14)).Interior.Color = RGB(255, 255, 0)
End If
End If
Next i
End Sub

tuxboy · Answer

Il faudrait corriger : "Vous avez des erreurs, corrigé les." 
et simplifier : 
If Sheets("pièce").Cells(8, i).Value <> "" Then  
  If Not IsNumeric(Sheets("pièce").Cells(8, i).Value) Then  
     MsgBox("Vous avez des erreurs, corrigé les.", vbOK)  
     Sheets("renseignement").Cells(1, (i - 14)).Interior.Color = RGB(255, 255, 0)  
  EndIf 
EndIf

Problème d'une fonction sub

1 réponse

Discussions similaires