|
|
|
|
Bonjour,
J'ai une erreur d'execution '13': type incompatible. J'ai retourné le web et rien n'en est tombé. Pouvez-vous m'aider?
Function Edition(j As Integer)
Dim i As Integer, k As Integer
k = 1
Range("Résultats!E2") = Nomzone
If DLD = True Then
Range("Résultats!G2") = "Sur un an"
For i = 1 To 3600
If Worksheets("Saisie").Range("A1").Offset(i, j) = 1 Or Worksheets("Saisie").Range("A1").Offset(i, j) = 2 And Worksheets("Saisie").Range("A1").Offset(i, 3) = Nomzone Then
Worksheets("Résultats").Range("A4").Offset(k) = Worksheets("Saisie").Range("A1").Offset(i, 0)
Worksheets("Résultats").Range("B4").Offset(k) = Worksheets("Saisie").Range("A1").Offset(i, 1)
Worksheets("Résultats").Range("C4").Offset(k) = Worksheets("Saisie").Range("A1").Offset(i, j)
k = k + 1
End If
Next i
Else: For i = 1 To 3600
...
End If
Unload Filtre1
End Function
Je vous remercie d'avance
Bonjour,
With Worksheets("Saisie")
For i = 1 To 3600
If .Cells(i, j) = 1 Or .Cells(i, j) = 2 Then
End If
End With
Et je ne comprend pas non plus ce que tu veux faire avec NomZone ? A+ L'expérience instruit plus sûrement que le conseil. (André Gide) Si tu te cogne à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius) |
Adsltv erreur exécution 75 Code erreur 80048820 Del erreur d'execution 13 type incompatible Erreur 403 Erreur d'execution '13' incompatibilite de type userform Erreur d'execution 401 Erreur d'exécution 2220 Erreur execution 13 Erreur execution 429 free audio converter Erreur itunes 13 Erreur le service audio n'est pas en cours d'execution Erreur pour installer toca race driver 3 code 3.7.13.0; 3008 Erreur resource id #13 en php Messag erreur the contents of this file cannot be unpacked. the executable you are attempting to run has been corrupted. please N'est pas conçu pour s'éxécuter sous windows ou il contient une erreur Rapport d'erreur executer chkdsk? Scanner son pc par l executable pour corriger les erreurs Vb incompatibilité de type erreur 13
