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

Le
Tibert
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'anne, mais ce fichier
fonctionne en fin d'anne cheval sur l'anne suivant ! auriez vous
une solution !
car sa m'affiche cette fentre d'erreur : "Erreur d'excution
'13':Incompatibilit de type "

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

Merci vous bonne journe..

*********************************************************************
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
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
MichD
Le #23480881
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
MichD
Le #23480871
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
MichD
Le #23480861
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
Tibert
Le #23480891
Bonjour <michde>

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


On 19 juin, 14:39, "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: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
Publicité
Poster une réponse
Anonyme