VBA excel - Erreur '13' Type incompatible
Résolu/Fermé
A voir également:
- VBA excel - Erreur '13' Type incompatible
- Erreur 0x80070643 - Guide
- Liste déroulante excel - Guide
- Formule excel - Guide
- Si et excel - Guide
- Aller à la ligne excel - Guide
1 réponse
wilfried_42
Messages postés
907
Date d'inscription
mardi 19 août 2008
Statut
Contributeur
Dernière intervention
8 décembre 2009
242
17 févr. 2009 à 11:20
17 févr. 2009 à 11:20
Bonjour
en definissant ta colonne E en format texte, ta colonne E est du texte
If Val(Cells(ligne, 5).Value) < 10 Then
en definissant ta colonne E en format texte, ta colonne E est du texte
If Val(Cells(ligne, 5).Value) < 10 Then
17 févr. 2009 à 11:29
C'est tout bon.
Un grand merci.
Bonne journée à toi et @ +
17 oct. 2013 à 11:33
j'ai la même erreur avec le code suivant :
'On cherche à savoir si une fréquence de recyclage a été définie pour cette formation
If listes.Cells(ligne_recyclage, colonne_formation + 1).Value <> "" Or listes.Cells(ligne_recyclage, colonne_formation + 1).Value <> 0 Then
'Création de la date de renouvellement
If CDbl(listes.Cells(ligne_recyclage, colonne_formation + 1).Value) = CLng(listes.Cells(ligne_recyclage, colonne_formation + 1).Value) Then 'Vérifie si la valeur entrée est un entier ...
'...si oui on applique le code suivant.
offset = Format(saisie.Cells(i, colonne_saisie + 2).Value, "yyyy") + listes.Cells(ligne_recyclage, colonne_formation + 1).Value
date_recyclage = Format(saisie.Cells(i, colonne_saisie + 2).Value, "dd") & "/" & Format(saisie.Cells(i, colonne_saisie + 2).Value, "mm") & "/" & offset
recap.Cells(j, colonne_recap + 1).Value = date_recyclage
recap.Cells(j, colonne_recap + 1).Interior.Color = RGB(153, 255, 153)
Else:
-- pouvez vous m'aider svp--
Bonne journée