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
A voir également:
- Problème d'une fonction sub
- Fonction si et - Guide
- Fonction miroir - Guide
- Fonction moyenne excel - Guide
- Fonction remplacer sur word - Guide
- Une fonction de reconnaissance interne a reporté une erreur - Forum Mail
1 réponse
Il faudrait corriger : "Vous avez des erreurs, corrigé les."
et simplifier :
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
ç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