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'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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
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