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

Microsoft 365 vba erreur 13 incompatibilité de type

M

Mwadepaname

XLDnaute Junior
Bonjour le forum,

je cherche à extraire le nombre de mail envoyé de la part de xxx au mois M suite extraction sur excel.

lorsque je fais un test avec quelques lignes tout fonctionne mais une fois que j'extrais les mails j'ai une erreur 13 incompatibilité de type sur les lignes
data1 = Sheets("data").Range("A2")
data2 = Sheets("data").Range("A3")

(A savoir l'extraction comportera beaucoup de lignes.)

J'ai modifié les variables data1 et 2 en string au lieu de long et l'erreur revient mais cette fois sur la ligne
If cel.Value = data1 And cel.Offset(1, 0).Value Like data2 Then

Si quelqu'un sait d'où cela provient?

Merci beaucoup.
Fichier ci-joint

et voici le code

Sub compter_mail()
Application.ScreenUpdating = False

Dim cel As Range, plage As Range, data1 As Long, data2 As Long
Dim nb As Integer, i As Integer, j As Integer

data1 = Sheets("data").Range("A2")
data2 = Sheets("data").Range("A3")
nb = 0
Set plage = Sheets("test mail").Range("a1:a" & Sheets("test mail").Range("A" & Rows.count).End(xlUp).Row)

For Each cel In plage
If cel.Value = data1 And cel.Offset(1, 0).Value Like data2 Then
nb = nb + 1
End If

Next cel
MsgBox (nb)

End Sub
 

Pièces jointes

  • test compteur mail.xlsm
    28.3 KB · Affichages: 14
Solution
Bonjour mwadepaname, le forum

Chez moi ce code fonctionne correctement :
VB: 
Option Explicit

Sub compter_mail()
Application.ScreenUpdating = False

Dim cel As Range, plage As Range, Data1 As String, Data2 As String
Dim nb As Integer ', i As Integer, j As Integer

Data1 = Sheets("data").Range("A2")
Data2 = Sheets("data").Range("A3")

nb = 0
Set plage = Sheets("test mail").Range("a1:a" & Sheets("test mail").Range("A" & Rows.Count).End(xlUp).Row)

For Each cel In plage
    If cel.Value = Data1 And cel.Offset(1, 0).Value Like Data2 Then
        nb = nb + 1
    End If
Next cel

Data1 = Right(Data1, Len(Data1) - 5)
Data2 = Right(Data2, Len(Data2) - 1)
Data2 = Left(Data2, Len(Data2) - 1)

MsgBox Data1 & " a envoyé " & (nb) & " mails."...
Trier par date Trier par votes

Phil69970

XLDnaute Barbatruc
Bonjour mwadepaname, le forum

Chez moi ce code fonctionne correctement :
VB: 
Option Explicit

Sub compter_mail()
Application.ScreenUpdating = False

Dim cel As Range, plage As Range, Data1 As String, Data2 As String
Dim nb As Integer ', i As Integer, j As Integer

Data1 = Sheets("data").Range("A2")
Data2 = Sheets("data").Range("A3")

nb = 0
Set plage = Sheets("test mail").Range("a1:a" & Sheets("test mail").Range("A" & Rows.Count).End(xlUp).Row)

For Each cel In plage
    If cel.Value = Data1 And cel.Offset(1, 0).Value Like Data2 Then
        nb = nb + 1
    End If
Next cel

Data1 = Right(Data1, Len(Data1) - 5)
Data2 = Right(Data2, Len(Data2) - 1)
Data2 = Left(Data2, Len(Data2) - 1)

MsgBox Data1 & " a envoyé " & (nb) & " mails."
Sheets("test mail").[I2] = nb
Sheets("test mail").[I4] = Data1 & " a envoyé " & (nb) & " mails en " & Data2
End Sub
Précision :
Les valeurs que tu souhaites récupérer en I2 et I4 de la feuille "test mail" ce fait en vba.
@Phil69970
 
Dernière édition:
Vote positif 0 Vote négatif
Solution
M

Mwadepaname

XLDnaute Junior

Merci @Phil69970
Je ne connaissais pas la fonction len
Je vais regarder ça de plus près.
ça fonctionne si j'ai peu de données mais dès que j'extrais j'ai le même message d'erreur.
J'ai plus de 30000 lignes
 
Dernière édition:
Vote positif 0 Vote négatif
M

Mwadepaname

XLDnaute Junior
J'avais répondu trop vite désolé. J'ai testé avec l'extraction des mails et ça me fait la même chose.
erreur 13 incompatibilité de type
 
Vote positif 0 Vote négatif
M

Mwadepaname

XLDnaute Junior
ça fonctionne jusqu'à la ligne 26500 avec mon extraction. J'essaie de supprimer les données confidentiel mais trop de ligne je viens de mettre des lignes bidons jusqu'à 40000 et ça fonctionne. Je n'y comprends plus rien.
J'ai testé avec d'autres extracts. Le résultat est le même erreur 13
 
Dernière édition:
Vote positif 0 Vote négatif
M

Mwadepaname

XLDnaute Junior
j'ai supprimé pleins de lignes mais au moins on voit toujours l'erreur. Ca pourra peut être aider à localiser le problème
Phil69970 à dit:
Pourtant cela fonctionne bien avec le fichier que tu as donné .
Donne le bon fichier avec des noms bidons et une 100 de lignes

@Phil69970
Cliquez pour agrandir...
J'ai supprimé pleins de lignes et le problème reste donc ça pourra peut être servir à localiser le problème.
 

Pièces jointes

  • test compteur mail 2.xlsm
    40.7 KB · Affichages: 3
Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc
mwadepaname, le forum

C'est ces 2 lignes qui font buggés la macro
Ligne 95573 et 95583



Si tu veux les repérer

For Each cel In plage
'Repere la ligne juste au dessus de l'erreur
Dim NumLigneErreur As Long
NumLigneErreur = NumLigneErreur + 1

If cel.Value = Data1 And cel.Offset(1, 0).Value Like Data2 Then
nb = nb + 1
End If

Next cel

@Phil69970
 
Vote positif 0 Vote négatif
M

Mwadepaname

XLDnaute Junior

Bravo !!! j'aurais jamais trouvé.

Par contre j'ai essayé le code pour trouver les erreurs, ça ne fonctionne pas, je dois mal m'y prendre.
Pour info je suis novice en vba

Au pire, je recherche via formules, vérifications des erreurs.

Merci en tout cas !!!
 
Dernière édition:
Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc
mwadepaname

Mwadepaname à dit:
Par contre j'ai essayé le code pour trouver les erreurs, ça ne fonctionne pas, je dois mal m'y prendre.
Pour info je suis novice en vba
Cliquez pour agrandir...

En fait quand tu rajoutes les 3 lignes
Phil69970 à dit:
'Repere la ligne juste au dessus de l'erreur
Dim NumLigneErreur As Long
NumLigneErreur = NumLigneErreur + 1
Cliquez pour agrandir...
Quand ta macro plante tu passes ta souris sur le code ==> NumLigneErreur et tu dois voir le numero de la ligne située juste au dessus de l'erreur.
Il te resteras à aller à la ligne en question pour voir l'erreur...juste en dessous.

@Phil69970
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

  • Question
XL 2013 enregistrer la capture d'une shape avec les api avec transparence
2
Réponses
26
Affichages
916
patricktoulon
  • Question
Microsoft 365 Incompatibilité de type
Réponses
1
Affichages
283
Dranreb
S
  • Résolu(e)
Microsoft 365 Ecrasement d'une ligne si déjà existante
Réponses
2
Affichages
158
sebastien176
S
R
  • Question
Microsoft 365 problème incompatibilité de type 13 sur macro "couper - coller"
Réponses
6
Affichages
322
rh.finances
R
  • Résolu(e)
XL 2010 Module de classe avec Dictionary
3 4 5
Réponses
66
Affichages
3 K
patricktoulon
E
  • Résolu(e)
Microsoft 365 Boucle sur lignes <>0
Réponses
2
Affichages
321
eric72
E
  • Question
XL 2021 [Résolu] MFC et tableau structuré
Réponses
14
Affichages
301
jeff1494
  • Question
XL 2019 code pour tous les disques
Réponses
3
Affichages
528
AtTheOne
G
  • Question
Microsoft 365 Incompatibilité de type - Array
Réponses
2
Affichages
439
guiyom
G
A
  • Question
VBA qui fonctionnait avant, mais ne fonctionne plus avec le 64 bits
Réponses
2
Affichages
137
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…