Problème code insertion et remplissage ligne

[r0man0]

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...

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...

 

[Papou-net]

Re : Problème code insertion et remplissage ligne

Bonjour r0man0,,

Apparemment, l'erreur vient de ActiveWorkbook.

Essaie en modifiant les lignes incriminées comme suit :

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
With Workbooks("GPS").Sheets("feuil1")
Range("I" & i + 1).Value = .Cells(2, 5)
Range("J" & i + 1).Value = .Cells(2, 3)
Range("L" & i + 1).Value = .Cells(2, 4)
Range("I" & i + 2).Value = .Cells(2, 8)
Range("J" & i + 2).Value = .Cells(2, 6)
Range("L" & i + 2).Value = .Cells(2, 7)
End WithEnd If
Next
End Sub

Il faut, bien entendu, que le classeur "GPS" soit ouvert.

Cordialement.

 

[r0man0]

Re : Problème code insertion et remplissage ligne

Re,
J'ai essayé avec tes modifications Papou-net, mais il m'indique une erreur d'éxécution '9' avec "l'indice n'appartient pas à la sélection", mon classeur "gps" est bien ouvert pourtant, et c'est sur cette ligne là que ça plante...

With Workbooks("GPS").Sheets("feuil1")

 

[Papou-net]

Re : Problème code insertion et remplissage ligne

RE r0man0,,

C'est peut-être dû à une erreur dans mon code, si tu l'as recopié tel quel.

Il faut séparer la troisième ligne en partant du bas :

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
With Workbooks("GPS").Sheets("feuil1")
Range("I" & i + 1).Value = .Cells(2, 5)
Range("J" & i + 1).Value = .Cells(2, 3)
Range("L" & i + 1).Value = .Cells(2, 4)
Range("I" & i + 2).Value = .Cells(2, 8)
Range("J" & i + 2).Value = .Cells(2, 6)
Range("L" & i + 2).Value = .Cells(2, 7)
End With '<---- passage à la ligne suivante pour End If
End If
Next
End Sub

Cordialement.

 

[r0man0]

Re : Problème code insertion et remplissage ligne

Bonjour Papou-net,
j'ai naturellement fait ça en recopiant ton code, donc je suis un peu embêté...

 

[Papou-net]

Re : Problème code insertion et remplissage ligne

Bonjour r0man0,

Bonjour Papou-net,
j'ai naturellement fait ça en recopiant ton code, donc je suis un peu embêté...

Peux-tu joindre une copie allégée de tes fichiers ?

Cordialement.

 

[r0man0]

Re : Problème code insertion et remplissage ligne

Salut, ouais je vais essayé mais ce sera qu'à partir de demain. Bonne soirée.

 

[r0man0]

Re : Problème code insertion et remplissage ligne

Bien le bonjour Papou-net, je te joints mes deux classeurs excel, d'ailleurs tu pourras remarquer que je travail aussi sur un userform, en faite je souhaiterai arriver à tout faire à partir d'un userform, mais je t'expliquerai ça plus tard. et encore merci pour ton aide précieuse.
Mais je viens de me rendre compte que je sais pas où se trouve l'icône joindre...

 

[Papou-net]

Re : Problème code insertion et remplissage ligne

Mais je viens de me rendre compte que je sais pas où se trouve l'icône joindre...

Bonjour r0man0,

Pour joindre des fichiers, tu dois cliquer sur Aller en mode avancé juste en-dessous du cadre du message, puis tu défiles la fenêtre vers le bas et tu cliques sur le bouton Gérer les pièces jointes.

Dans la nouvelle fenêtre qui s'ouvre, tu cliques (dans l'ordre) sur le premier bouton Parcourir, puis sur le bouton Envoyer et enfin sur le bouton Fermer.

Cordialement.

 

[r0man0]

Re : Problème code insertion et remplissage ligne

Euh par contre serais-tu prêt à m'aider sur un autre problème, en faite j'ai ouvert un autre post pour pas traiter deux sujets en un, mais ça concerne une macro pour inscrire dans .txt une plage de données, mais avec pour condition un mot, un code à 4 lettres, càd que si par exemple ma plage dépasse un certain nombre de lignes, un userform s'ouvre avec un textbox me demandant de rentrer ce mot, et elle m'inscrit dans un premier .txt de ma première ligne à la ligne qu'elle a trouvé avec ce mot, et de la ligne du mot à la dernière ligne. je te mets le lien de mon sujet.
Ce lien n'existe plus


25/09/2012*13h08 #1

 

[r0man0]

Re : Problème code insertion et remplissage ligne

Bien le bonjour Papou-net, je te joints mes deux classeurs excel, d'ailleurs tu pourras remarquer que je travail aussi sur un userform, en faite je souhaiterai arriver à tout faire à partir d'un userform, mais je t'expliquerai ça plus tard. et encore merci pour ton aide précieuse.

Ahhh, ok merci.

 

[Papou-net]

Re : Problème code insertion et remplissage ligne

Bonjour r0man0,

J'ai bien reçu tes fichiers exemple, j'y regarde dans le WE.

Par contre, peux-tu me donner la date et l'heure de la demande concernée dans ton message #10 car le lien ne fonctionne pas ?

@ +

Cordialement.

 

[Gardien de phare]

Re : Problème code insertion et remplissage ligne

Bonjour,

Remplacer Workbooks("GPS") par Workbooks("GPS.xls") ou Workbooks("GPS.xlsx") selon la version.

HTH

--
François L

 

[r0man0]

Re : Problème code insertion et remplissage ligne

Bonjour r0man0,

Par contre, peux-tu me donner la date et l'heure de la demande concernée dans ton message #10 car le lien ne fonctionne pas ?

@ +

Cordialement.

25/09/2012*13h08 #1

 

[r0man0]

Re : Problème code insertion et remplissage ligne

Salut Papou-net, tu as du nouveau concernant mon autre demande?