Problème d'une fonction sub
JP
-
jo -
jo -
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
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
1 réponse
-
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-
Merci
ça marche
Sub msgerreur()
for i = 1 to 5000
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)
End If
End If
next i
End Sub
-
