Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Erreur d'exécution '13': Incompatibilité de type

Erreur d'exécution '13': Incompatibilité de type

4 réponses
Avatar
Tibert
Bonjour =E0 tous ;
J'utilise se code pour aller sur la date du jour dans ma feuil, mais
sa fonctionne pour les dates en cour d'ann=E9e, mais ce fichier
fonctionne en fin d'ann=E9e =E0 cheval sur l'ann=E9e suivant ! auriez vous
une solution !
car sa m'affiche cette fen=EAtre d'erreur : "Erreur d'ex=E9cution
'13':Incompatibilit=E9 de type "

ou alors ajouter une fen=EAtre d'information pour inform=E9 l'utilisateur
que la recherche date na pas put s'effectuer.

Merci =E0 vous bonne journ=E9e...........

*********************************************************************
Sub JourProcheJour()
Dim No_Ligne As Variant
With Worksheets("Planning") 'nom feuille =E0 adapter
.Activate
No_Ligne =3D Application.Match(CLng(Date), .Range("A2:A370"), 0)
If Not IsError(No_Ligne) Then
.Range("D" & No_Ligne).Select
Else
No_Ligne =3D Application.Match(CLng(Date), .Range("A2:A370"), 1)
If Date - Application.Index([A2:A370], No_Ligne) < _
Application.Index([C2:C370], No_Ligne + 1) - Date Then
Cells(No_Ligne, 3).Select
Else
Cells(No_Ligne + 2, 4).Select
End If
End If
End With
End Sub
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
MichD
Sub JourProcheJour()
Dim X As Variant, Rg As Range
With Worksheets("Planning")
.Activate
Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
X = Application.Match(CLng(DateSerial(Year(Now()), _
Month(Now()), Day(Now()))), Rg.Value2, 1)
If IsNumeric(X) Then
.Range("D" & X).Select
End If
End With
End Sub



MichD
--------------------------------------------
"Tibert" a écrit dans le message de groupe de discussion :


Bonjour à tous ;
J'utilise se code pour aller sur la date du jour dans ma feuil, mais
sa fonctionne pour les dates en cour d'année, mais ce fichier
fonctionne en fin d'année à cheval sur l'année suivant ! auriez vous
une solution !
car sa m'affiche cette fenêtre d'erreur : "Erreur d'exécution
'13':Incompatibilité de type "

ou alors ajouter une fenêtre d'information pour informé l'utilisateur
que la recherche date na pas put s'effectuer.

Merci à vous bonne journée...........

*********************************************************************
Sub JourProcheJour()
Dim No_Ligne As Variant
With Worksheets("Planning") 'nom feuille à adapter
.Activate
No_Ligne = Application.Match(CLng(Date), .Range("A2:A370"), 0)
If Not IsError(No_Ligne) Then
.Range("D" & No_Ligne).Select
Else
No_Ligne = Application.Match(CLng(Date), .Range("A2:A370"), 1)
If Date - Application.Index([A2:A370], No_Ligne) < _
Application.Index([C2:C370], No_Ligne + 1) - Date Then
Cells(No_Ligne, 3).Select
Else
Cells(No_Ligne + 2, 4).Select
End If
End If
End With
End Sub
Avatar
MichD
J'ai pris pour acquis que tes dates étaient en ordre croissant !



MichD
--------------------------------------------
"MichD" a écrit dans le message de groupe de discussion : itkqm4$boh$

Sub JourProcheJour()
Dim X As Variant, Rg As Range
With Worksheets("Planning")
.Activate
Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
X = Application.Match(CLng(DateSerial(Year(Now()), _
Month(Now()), Day(Now()))), Rg.Value2, 1)
If IsNumeric(X) Then
.Range("D" & X).Select
End If
End With
End Sub



MichD
--------------------------------------------
"Tibert" a écrit dans le message de groupe de discussion :


Bonjour à tous ;
J'utilise se code pour aller sur la date du jour dans ma feuil, mais
sa fonctionne pour les dates en cour d'année, mais ce fichier
fonctionne en fin d'année à cheval sur l'année suivant ! auriez vous
une solution !
car sa m'affiche cette fenêtre d'erreur : "Erreur d'exécution
'13':Incompatibilité de type "

ou alors ajouter une fenêtre d'information pour informé l'utilisateur
que la recherche date na pas put s'effectuer.

Merci à vous bonne journée...........

*********************************************************************
Sub JourProcheJour()
Dim No_Ligne As Variant
With Worksheets("Planning") 'nom feuille à adapter
.Activate
No_Ligne = Application.Match(CLng(Date), .Range("A2:A370"), 0)
If Not IsError(No_Ligne) Then
.Range("D" & No_Ligne).Select
Else
No_Ligne = Application.Match(CLng(Date), .Range("A2:A370"), 1)
If Date - Application.Index([A2:A370], No_Ligne) < _
Application.Index([C2:C370], No_Ligne + 1) - Date Then
Cells(No_Ligne, 3).Select
Else
Cells(No_Ligne + 2, 4).Select
End If
End If
End With
End Sub
Avatar
MichD
après un bon café, ceci serait suffisant,
'-------------------------------
Sub JourProcheJour()
Dim X As Variant, Rg As Range
With Worksheets("Planning")
.Activate
Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
X = Application.Match(CLng(Date), Rg.Value2, 1)
If IsNumeric(X) Then
.Range("D" & X).Select
End If
End With
End Sub
'-------------------------------
MichD
--------------------------------------------
Sub
Avatar
Tibert
Bonjour <michde>

Merci pour le code c'est super
Bonne journée....


On 19 juin, 14:39, "MichD" wrote:
Sub JourProcheJour()
Dim X As Variant, Rg As Range
With Worksheets("Planning")
    .Activate
    Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
    X = Application.Match(CLng(DateSerial(Year(Now()), _
        Month(Now()), Day(Now()))), Rg.Value2, 1)
    If IsNumeric(X) Then
        .Range("D" & X).Select
    End If
End With
End Sub

MichD
--------------------------------------------
"Tibert"  a crit dans le message de groupe de discussion :


Bonjour tous ;
J'utilise se code pour aller sur la date du jour dans ma feuil, mais
sa fonctionne pour les dates en cour d'ann e, mais ce fichier
fonctionne en fin d'ann e cheval sur l'ann e suivant ! auriez vous
une solution !
car sa m'affiche cette fen tre d'erreur : "Erreur d'ex cution
'13':Incompatibilit de type "

ou alors ajouter une fen tre d'information pour inform l'utilisateur
que la recherche date na pas put s'effectuer.

Merci vous bonne journ e...........

*********************************************************************
Sub JourProcheJour()
Dim No_Ligne As Variant
With Worksheets("Planning") 'nom feuille adapter
    .Activate
    No_Ligne = Application.Match(CLng(Date), .Range("A2:A370"), 0)
    If Not IsError(No_Ligne) Then
        .Range("D" & No_Ligne).Select
    Else
        No_Ligne = Application.Match(CLng(Date), .Range("A2:A37 0"), 1)
        If Date - Application.Index([A2:A370], No_Ligne) < _
            Application.Index([C2:C370], No_Ligne + 1) - Date Then
            Cells(No_Ligne, 3).Select
        Else
            Cells(No_Ligne + 2, 4).Select
        End If
    End If
End With
End Sub