Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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
404
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…