Error type mismatch
Résolu
mohamed_2016
Messages postés
33
Statut
Membre
-
mohamed_2016 Messages postés 33 Statut Membre -
mohamed_2016 Messages postés 33 Statut Membre -
Bonjour le forum ,
J'ai rencontré un problème que je n'ai rencontré précédemment
Voici le code
et la ligne qui affiche l'erreur est celui la :
Merci pour l'aide.
J'ai rencontré un problème que je n'ai rencontré précédemment
Voici le code
[/contents/446-fichier-sub Sub] Invert_Correction()
Dim ActiveRange As Range
Set ActiveRange = ThisWorkbook.Sheets(2).Range("G9", "G" & NRow - 1)
For i = 1 To Num_Of_Timings
ActiveRange.offset(0, i - 1).Select
If Range("Invert").offset(0, i - 1).Value = "Yes" Then
For Each cell In Selection
If cell.Value <> "" Then
cell.Value = -cell.Value
End If
Next
End If
Next
End Sub
et la ligne qui affiche l'erreur est celui la :
cell.Value = -cell.Value
Merci pour l'aide.
A voir également:
- Error type mismatch
- Clear type - Guide
- Fan error lenovo - Forum Refroidissement
- Type de ram - Guide
- Cmos checksum error ✓ - Forum Carte-mère/mémoire
- Error 1962 ✓ - Forum PC fixe
Merci pour l'aide ,
c'est exactement ça , j'ai trouvé dans la colonne une valeur non numérique
Cordialement.