O
Olivier_HTP
Guest
Bonjour le Forum,
Dans le cadre de mon usine à gaz personnelle, je viens d'ajouter un code pour affichage auto 'en dur' de la date et de l'heure dans 2 colonnes. Ca fonctionne correctement, quand je saisis une valeur dans une cellule de la colonne B, la date et l'heure s'affichent bien dans les colonnes A et S.
MAIS, quand je teste mes anciennes macros, qui tournaient bien avant cet ajout, je n'ai pas de problème non plus à l'exception d'une macro qui me déclenche un message d'erreur d'exécution 13 'incompatibilité de type', et le débogueur surligne la ligne suivante dans mon code d'afficahage auto du temps :
If Target = '' Then
Le code (merci Jean-Marie !) concernant l'affichage auto date et heure est le suivant :
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Target, Range('B12:B10500')) Is Nothing Then: Exit Sub
If Target = '' Then
Target.Offset(0, 17) = ''
Target.Offset(0, -1) = ''
Else
Target.Offset(0, 17) = Time
'Date auto en colonne A :
Target.Offset(0, -1) = Now
End If
'End Sub
Et le code de la macro qui plante depuis l'ajout du code précédent est le suivant :
Sub TP()
'
Dim Ligne As Long
Dim Plage As String
Ligne = ActiveCell.Row
'Test pour éviter recopie accidentelle ligne de titre :
If Ligne > 11 Then
Plage = Range('F65536').End(xlUp).Offset(1, 0).Row
Range('B' & CStr(Ligne) & ':L' & CStr(Ligne)).Select
Selection.Copy
Range('B' & CStr(Plage)).Select
ActiveSheet.Paste
Range('B' & CStr(Ligne)).Select
Application.CutCopyMode = False
Columns(6).Find('*', , , , , xlPrevious).Offset(0, 1).Select
ActiveCell.Value = 'TP'
'Range('B12').Select
Columns(2).Find('*', , , , , xlPrevious).Offset(1, 0).Select
Else
Marep = MsgBox('Vous ne pouvez pas recopier cette ligne !', 1, 'US')
If Marep = vbOK Then
End If
End If
End Sub
Cette dernière macro a en fait pour but de copier la ligne active et de la coller dans la première ligne vide du tableau, en rajoutant 'TP' dans la colonne G.
Quand je sors du débogueur, la ligne a bien été recopiée, mais la mention TP ne figure pas dans la colonne G.
Merci d'avance de votre aide.
Bon dimanche à tous.
Olivier_HTP
Message édité par: Olivier_HTP, à: 21/08/2005 09:18
Dans le cadre de mon usine à gaz personnelle, je viens d'ajouter un code pour affichage auto 'en dur' de la date et de l'heure dans 2 colonnes. Ca fonctionne correctement, quand je saisis une valeur dans une cellule de la colonne B, la date et l'heure s'affichent bien dans les colonnes A et S.
MAIS, quand je teste mes anciennes macros, qui tournaient bien avant cet ajout, je n'ai pas de problème non plus à l'exception d'une macro qui me déclenche un message d'erreur d'exécution 13 'incompatibilité de type', et le débogueur surligne la ligne suivante dans mon code d'afficahage auto du temps :
If Target = '' Then
Le code (merci Jean-Marie !) concernant l'affichage auto date et heure est le suivant :
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Target, Range('B12:B10500')) Is Nothing Then: Exit Sub
If Target = '' Then
Target.Offset(0, 17) = ''
Target.Offset(0, -1) = ''
Else
Target.Offset(0, 17) = Time
'Date auto en colonne A :
Target.Offset(0, -1) = Now
End If
'End Sub
Et le code de la macro qui plante depuis l'ajout du code précédent est le suivant :
Sub TP()
'
Dim Ligne As Long
Dim Plage As String
Ligne = ActiveCell.Row
'Test pour éviter recopie accidentelle ligne de titre :
If Ligne > 11 Then
Plage = Range('F65536').End(xlUp).Offset(1, 0).Row
Range('B' & CStr(Ligne) & ':L' & CStr(Ligne)).Select
Selection.Copy
Range('B' & CStr(Plage)).Select
ActiveSheet.Paste
Range('B' & CStr(Ligne)).Select
Application.CutCopyMode = False
Columns(6).Find('*', , , , , xlPrevious).Offset(0, 1).Select
ActiveCell.Value = 'TP'
'Range('B12').Select
Columns(2).Find('*', , , , , xlPrevious).Offset(1, 0).Select
Else
Marep = MsgBox('Vous ne pouvez pas recopier cette ligne !', 1, 'US')
If Marep = vbOK Then
End If
End If
End Sub
Cette dernière macro a en fait pour but de copier la ligne active et de la coller dans la première ligne vide du tableau, en rajoutant 'TP' dans la colonne G.
Quand je sors du débogueur, la ligne a bien été recopiée, mais la mention TP ne figure pas dans la colonne G.
Merci d'avance de votre aide.
Bon dimanche à tous.
Olivier_HTP
Message édité par: Olivier_HTP, à: 21/08/2005 09:18
