Problème code insertion et remplissage ligne

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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...
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
272
Réponses
12
Affichages
232
Réponses
2
Affichages
210
Réponses
4
Affichages
203
Réponses
8
Affichages
237
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
519
Réponses
5
Affichages
190
Réponses
3
Affichages
672
Retour