Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Incompatibilite de type vba

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion sevy1
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
S

sevy1

XLDnaute Occasionnel
Bonjour
j'ai un tableau contenant les dates TE et un nouveau sortie qui recoit la différence entre deux dates Ts je souhaite faire la differrence entre la date de la colonne F et celle de la colonne E ou la date du jour et celle de la colonne e si colonne f vide puis mettre le resultat dans la colonne N voici le draft de code mais j ai une erreur incompatibilité de type au niveau de la ligne rouge
Code: 
Sub calcule()
Dim Ws As Worksheet, Te(), Ts(), L&
 Set Ws = Feuil6
 Te = Ws.[A3].Resize(Ws.[A30000].End(xlUp).Row - 1, 13).Value
 ReDim Ts(1 To UBound(Te, 1), 1 To 3)
 For L = 1 To UBound(Te, 1)
    If IsDate(Te(L, 6)) Then 'And IsDate(Te(L, 2)) Then
       Ts(L, 2) = Year(Te(L, 6))
       Ts(L, 3) = Month(Te(L, 6))
      If IsDate(Te(L, 6)) And IsDate(Te(L, 5)) Then
      [COLOR="#FF0000"]Ts(L, 1) = Te(L, 6) - Te(L, 5)[/COLOR]
      End If
      If Te(L, 6) = "" And IsDate(Te(L, 5)) Then
      Ts(L, 1) = Date - Te(L, 5)
      End If
     End If
     Next L
 Ws.[n3].Resize(UBound(Ts, 1), UBound(Ts, 2)).Value2 = Ts
End Sub
 
Trier par date Trier par votes
Re : Incompatibilite de type vba

Bonjour
Merci considerer ce code
Code: 
Sub calcule()
Dim Ws As Worksheet, Te(), Ts(), L&
 Set Ws = Feuil6
 Te = Ws.[A3].Resize(Ws.[A30000].End(xlUp).Row - 1, 13).Value
 ReDim Ts(1 To UBound(Te, 1), 1 To 3)
 For L = 1 To UBound(Te, 1)
    If IsDate(Te(L, 6)) Then 'And IsDate(Te(L, 2)) Then
       Ts(L, 2) = Year(Te(L, 6))
       Ts(L, 3) = Month(Te(L, 6))
      If IsDate(Te(L, 6)) And IsDate(Te(L, 5)) Then
      Ts(L, 1) = Te(L, 6) - Te(L, 5)
      End If
      If Te(L, 6) = "" And IsDate(Te(L, 5)) Then
      Ts(L, 1) = Date - Te(L, 5)
      End If
     End If
     Next L
 Ws.[n3].Resize(UBound(Ts, 1), UBound(Ts, 2)).Value2 = Ts
End Sub
C'est sur cette ligne que signale le message d'erreur
Code: 
 Ts(L, 1) = Te(L, 6) - Te(L, 5)
Merci pour vos contributions
 
Vote positif 0 Vote négatif
Re : Incompatibilite de type vba

Bonjour,

tu aurais plus de chances d'être aidé si tu déposes un fichier anonymisé (par le mode avancé) 🙂
De nombreux "helpeur" pourront alors lire et comprendre ce que tu veux faire 🙂

P.
 
Vote positif 0 Vote négatif
Re : Incompatibilite de type vba

Bonjour sevy1.


Comme cela, peut-être ?​
Code: 
Sub calcule()
Dim Ws As Worksheet, Te(), Ts(), L&
    Set Ws = Feuil6
    Te = Ws.[A3].Resize(Ws.[A30000].End(xlUp).Row - 1, 13).Value
    ReDim Ts(1 To UBound(Te, 1), 1 To 3)
    For L = 1 To UBound(Te, 1)
        If IsDate(Te(L, 6)) Then
            Ts(L, 2) = Year(Te(L, 6))
            Ts(L, 3) = Month(Te(L, 6))
            If IsDate(Te(L, 6)) And IsDate(Te(L, 5)) Then
                Ts(L, 1) = CDate(Te(L, 6)) - CDate(Te(L, 5))
            End If
        ElseIf Te(L, 6) = "" And IsDate(Te(L, 5)) Then
            Ts(L, 1) = Date - CDate(Te(L, 5))
        End If
    Next L
    Ws.[n3].Resize(UBound(Ts, 1), UBound(Ts, 2)).Value2 = Ts
End Sub
Mais sans voir les données, je ne suis sûr de rien.​


Bonne soirée.


ℝOGER2327
#7852

Dimanche 8 Palotin 142 (Saint Bougrelas, prince - fête Suprême Tierce)
8 Floréal An CCXXIII, 6,9372h - champignon
2015-W18-1T16:38:58Z
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Incompatibilite de type vba

salut

ôte moi d'un doute STP : tu as ce type d'erreur signalé quand, en E tu as autre chose qu'une date!
Avec le code de ROGER et dans ce contexte j'ai le message d'erreur mais pas avec
Code: 
Sub calcule()
  Dim Ws As Worksheet, Te(), Ts(), L&
  Set Ws = Feuil6
  Te = Ws.[A3].Resize(Ws.[A30000].End(xlUp).Row - 1, 6).Value '6 suffit avec les colonnes  de date
  ReDim Ts(1 To UBound(Te, 1), 1 To 3)
  For L = 1 To UBound(Te, 1)
    If IsDate(Te(L, 6)) Then
      Ts(L, 2) = Year(Te(L, 6)):    Ts(L, 3) = Month(Te(L, 6))
      If IsDate(Te(L, 5)) Then Ts(L, 1) = Te(L, 6) - Te(L, 5)
    Else
      If IsDate(Te(L, 5)) Then Ts(L, 1) = Date - Te(L, 5)
    End If
  Next
  Ws.[N3].Resize(UBound(Ts, 1), UBound(Ts, 2)).Value2 = Ts
End Sub

Mais je ne trompe peut-être de contexte ?
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Incompatibilite de type vba

Bonsoir.

Te = Ws.[A3].Resize(Ws.[A30000].End(xlUp).Row - 1, 13).Value
Cliquez pour agrandir...
me parait incohérent. Un de ces deux :
Te = Ws.[A3].Resize(Ws.[A30000].End(xlUp).Row - 2, 13)
Te = Ws.[A2].Resize(Ws.[A30000].End(xlUp).Row - 1, 13)
me semblerait plus logique.

Possible que ça plantait sur les valeurs, probablement vides, de la ligne qui suivait la dernière.
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Incompatibilite de type vba

Suite à la remarque de Si..., j'ai corrigé une étourderie dans le code.
À Dranreb : je pense que le souci venait de ce que certaines dates sont en fait du texte. Ce qui n'empêche pas que la définition de Te est effectivement douteuse.

Bonne nuit.


ℝOGER2327
#7853

Dimanche 8 Palotin 142 (Saint Bougrelas, prince - fête Suprême Tierce)
8 Floréal An CCXXIII, 8,1261h - champignon
2015-W18-1T19:30:10Z
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Résolu(e)
XL pour MAC Code vba pour recherche sur une seule ligne
Réponses
4
Affichages
119
deudecos
J
  • Question Question
XL 2021 transfert listview vers feuille excel
Réponses
9
Affichages
705
Piment
P
F
  • Question Question
Autres Listbox-transfère la recherche dans une ListBox vers une feuille de calcul
2
Réponses
18
Affichages
390
dysorthographie
J
  • Question Question
Microsoft 365 Userform comboboxes indexés
Réponses
8
Affichages
357
jp26200
J
  • Question Question
XL 2021 Erreur "l'indice n'appartient à la selection"
Réponses
10
Affichages
663
treza88
N
  • Résolu(e)
Microsoft 365 Rechercher la dernière cellule saisie dans un TS et ajouter l'heure système
19 20 21
Réponses
303
Affichages
71 K
NONO14
N
  • Résolu(e)
XL 2021 VBA - Est-ce que le format d'une cellule est un format de type Date (quelconque)
2 3 4
Réponses
48
Affichages
1 K
Dudu2
N
  • Résolu(e)
Microsoft 365 Mettre la 4ème colonne d'une ListBox au format [h]:mm
3 4 5
Réponses
68
Affichages
3 K
NONO14
N
N
  • Question Question
Listbox click
Réponses
10
Affichages
633
ChTi160
D
  • Question Question
XL 2021 Formule Excel dans VBA
Réponses
3
Affichages
161
dl87671
D
N
  • Résolu(e)
Microsoft 365 Modification impossible d'une TextBox
2 3 4
Réponses
56
Affichages
3 K
NONO14
N
N
  • Résolu(e)
Microsoft 365 Code fonction pour création code aléatoire
2 3
Réponses
32
Affichages
1 K
NONO14
N
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
2 K
Gestionnaire_rh
G
  • Résolu(e)
XL 2019 Adapter ce code, et améliorer le tableau avec graphique à l'année à y insérer ?
Réponses
4
Affichages
425
sylvanu
D
  • Question Question
XL 2021 Boucle sur deux feuilles
Réponses
11
Affichages
340
dadaze
D
N
  • Résolu(e)
Microsoft 365 Recherche dans un tableau structuré à partir d'une TextBox
Réponses
11
Affichages
842
NONO14
N
U
  • Question Question
Autres [RÉSOLU] Compléter macro pour Suppr cellules
Réponses
7
Affichages
427
un internaute
U
U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
685
un internaute
U
S
  • Question Question
XL 2021 Listing Album Panini
Réponses
5
Affichages
551
job75
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
405
patricktoulon
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…