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
Faiblesse type spectre ✓ - Forum Jeux vidéo
Cmos checksum error ✓ - Forum Carte-mère/mémoire
Fan error lenovo - Forum Refroidissement
Playback error reconnect in 3s (1/5) francais - Forum Box et Streaming vidéo
Type de ram - Guide

1 réponse

Réponse 1 / 1

thev Messages postés 1969 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 17 mars 2025 710
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

Iptv smarters pro Network error occured! Please try again

Ordi lenovo fan error

Erreur d'exécution 13 Incompatibilité de type

message d'erreur network error

Problème de pointage antenne satellite