Erreur 13 incompatibilité de type vba
Résolu
bambino_3263
Messages postés
6
Date d'inscription
Statut
Membre
Dernière intervention
-
bambino_3263 Messages postés 6 Date d'inscription Statut Membre Dernière intervention -
bambino_3263 Messages postés 6 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Vba erreur 13
- Fifa 13 - Télécharger - Jeux vidéo
- Test redmi note 13 5g - Accueil - Téléphones
- Erreur 0x80070643 - Accueil - Windows
- Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
- Erreur 4101 france tv - Forum Lecteurs et supports vidéo
1 réponse
Bonjour,
Déjà, Pour poster du code sur le forum, merci de le faire en utilisant LES BALISES DE CODE (et en y précisant le langage afin d'avoir la coloration syntaxique)
Explications disponibles ici : https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
Ensuite, ... que contiennent tes cellules G13 et C14 ?
N'essaierais tu pas de multiplier des chiffres avec du text (ou autre chose ) ?
.
Déjà, Pour poster du code sur le forum, merci de le faire en utilisant LES BALISES DE CODE (et en y précisant le langage afin d'avoir la coloration syntaxique)
Explications disponibles ici : https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
Ensuite, ... que contiennent tes cellules G13 et C14 ?
N'essaierais tu pas de multiplier des chiffres avec du text (ou autre chose ) ?
.
les cellules g13 et c14 contiennent des formules
Private Sub CommandButton1_Click()
If Range("c5") = "" Or Range("c13") = "" Or Range("g13") = "" Then
MsgBox ("il manque des informations!")
'si les cellules sont vide alors changer la couleur de fond en jaune
If Range("c5") = "" Then
Range("c5").Interior.ColorIndex = 6
Else
Range("c5").Interior.ColorIndex = 0
End If
If Range("c13") = "" Then
Range("c13").Interior.ColorIndex = 6
Else
Range("c13").Interior.ColorIndex = 0
End If
If Range("g13") = "" Then
Range("g13").Interior.ColorIndex = 6
Else
Range("g13").Interior.ColorIndex = 0
End If
Else
'couleur de fond en blanc pour les cellules C5 C13 et G13
Range("c5").Interior.ColorIndex = 0
Range("c13").Interior.ColorIndex = 0
Range("g13").Interior.ColorIndex = 0
If Range("k7") = "" Then
Range("k7") = Now()
Else
ListObjects(1).ListRows.Add.Range(1, 1).Value = Now()
End If
'recherche le nr de ligne dans le tableau
dlt = Range("k130").End(xlUp).Row
'ajouter les informations dans le tableau
Range("l" & dlt) = Range("c3")
Range("m" & dlt) = Range("c13")
Range("n" & dlt) = Range("c14")
Range("o" & dlt) = Range("g13")
Range("p" & dlt) = Range("c5")
Range("q" & dlt) = Range("c6")
Range("r" & dlt) = Range("c14") * Range("g13")
End If
End Sub
Ensuite.. de formules..oui..mais qui retournent quoi comme valeur ?
N'hésites pas à nous partager ton classeur excel ( https://www.commentcamarche.net/faq/29493-utiliser-cjoint-pour-heberger-des-fichiers ) après y avoir retiré les éventuelles données confidentielles bien entendu...
https://www.cjoint.com/c/IDAjJeLThiE
le programme se trouve dans le bouton ajouter dans la feuille panier voila je sais pas si c'est bon
en C14 ... tu as du TEXT et non un nombre......
55.000 c'est du text
55,000 (ou 55 ) .. c'est un nombre
Le séparateur de décimal c'est la virgule.. pas le point. donc Excel interprete ça comme du text.
Et multiplier du text avec des nombres;..ça revient à multiplier des choux et des carottes (comme disait ma grand-mère )..