Error type mismatch

Résolu/Fermé

mohamed_2016 Messages postés 31 Date d'inscription mardi 2 août 2016 Statut Membre Dernière intervention 19 août 2016 - 19 août 2016 à 11:45
mohamed_2016 Messages postés 31 Date d'inscription mardi 2 août 2016 Statut Membre Dernière intervention 19 août 2016 - 19 août 2016 à 12:21

Bonjour le forum ,
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
Network error ✓ - Forum Réseaux sociaux
Fan error lenovo - Forum Refroidissement
Eespt technical error ✓ - Forum TNT / Satellite / Réception
Network error iptv - Forum Réseaux sociaux

1 réponse

Réponse 1 / 1

thev Messages postés 1855 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 13 mai 2024 683
19 août 2016 à 12:08

Bonjour,

Vérifie si toutes les valeurs de ta sélection sont bien numériques.

mohamed_2016 Messages postés 31 Date d'inscription mardi 2 août 2016 Statut Membre Dernière intervention 19 août 2016
19 août 2016 à 12:21

Bonjour thev ,
Merci pour l'aide ,
c'est exactement ça , j'ai trouvé dans la colonne une valeur non numérique
Cordialement.

Discussions similaires

Ordi lenovo fan error

problème carte mère CMOS checksum error...

Erreur d'exécution 13 Incompatibilité de type

Faiblesse des pokémon spectre

panne zimbra free erreur 413

Discussions similaires

Newsletters