Problème code insertion et remplissage ligne

r0man0

XLDnaute Nouveau
Bonjour,
j'ai tapé un code en suivant mon idée que j'avais posé sur une feuille, en faite je voulais insérer 2 lignes et les remplir avec ce que je voulais, d'abord avec la date et l'heure courante, et après en allant chercher les infos dans un autre classeur, mais ça marche pas, pardon ça fonctionne pas...
voici mon code...

Code:
Sub insertion()
Dim i As Long
Worksheets("CR_INTER").Activate
For i = Range("A65536").End(xlUp).Row To 1 Step -1
If Not Intersect(Range("A" & i), Selection) Is Nothing Then
Rows(i).Resize(2).Insert
Range("A" & i + 1).Value = Date
Range("B" & i + 1).Value = Time
'Range("I" & i + 1).Value = ActiveWorkbook("GPS").Sheets("feuil1").Cells(2, 5)
'Range("J" & i + 1).Value = ActiveWorkbook("GPS").Sheets("feuil1").Cells(2, 3)
'Range("L" & i + 1).Value = ActiveWorkbook("GPS").Sheets("feuil1").Cells(2, 4)
'Range("I" & i + 2).Value = ActiveWorkbook("GPS").Sheets("feuil1").Cells(2, 8)
'Range("J" & i + 2).Value = ActiveWorkbook("GPS").Sheets("feuil1").Cells(2, 6)
'Range("L" & i + 2).Value = ActiveWorkbook("GPS").Sheets("feuil1").Cells(2, 7)
End If
Next
End Sub

il m'écrit "propriété ou méthode non gérée par cet objet" avec une erreur d'éxécution '438',
j'ai mis en exergue les lignes incriminées.
Merci...
 

Discussions similaires

Réponses
11
Affichages
361
Réponses
4
Affichages
238

Statistiques des forums

Discussions
312 579
Messages
2 089 880
Membres
104 298
dernier inscrit
MarieCB