Copie-Coller avec un compteur

[famu]

Bonjour à tous,

Voilà, un petit problème :

cette instruction ne fonctionne pas correctement :


Sub Macro2()

Sheets("Feuil1").Select
Range("A5:I7").Select
Selection.Copy
Sheets("Calcul").Select


For i = 2 To 100
If Left(Cells(i, 2), 6) = "Total " Then
Cells(i + 2, 1).Select
ActiveSheet.Paste
End If
Next
End Sub

Elle fonctionne bien au début puis s'arrête en mettant un message d'erreur "type 13".
Si je remplace le "copie-coller" par un MgsBox : pas de problème.
Quelqu'un aurait-il une idée ?

Merci beaucoup pour votre aide,
Ciao,
Famu.

 

[lapix]

Re : Copie-Coller avec un compteur

Bonjour,

A priori la seule hypothese qui me vienne a l'esprit, c'est que tu ais une difference de type de donnees entre ce que tu copies et left(cells(i,2),6)

tu pourrais mettre un extrait de ton fichier ou decrire la plage que tu copie de feuil1 ?

 

[famu]

Re : Copie-Coller avec un compteur

Bonjour,

A priori la seule hypothese qui me vienne a l'esprit, c'est que tu ais une difference de type de donnees entre ce que tu copies et left(cells(i,2),6)

tu pourrais mettre un extrait de ton fichier ou decrire la plage que tu copie de feuil1 ?

Voici un fichier "simplifié.
Lorsque je fais une copie "Valeur" je n'ai aucun problème. Mais si je fais une copie 'Formule", ça coince. Dans ce fichier, je ne t'ai pas mis les "zone1" et "zone2" de la formule recherche.
Merci pour ton aide,
Famu.

 

[lapix]

Re : Copie-Coller avec un compteur

Re

Donc en fait ton erreur vient du fait que tu colles une formule qui donne #N/A comme resultat.

Je vois a priori deux solutions :

La premiere consiste a dire que tu peux incrementer ton i de 5 lignes si tu colles
La deuxieme consiste a verifier si la cellule est en erreur en rajoutant :
If Not IsError(Cells(i, 2)) Then
sur la ligne avant If Left(.....

avec un endif juste avant celui qui existe dejà

 

[famu]

Re : Copie-Coller avec un compteur

Re

Donc en fait ton erreur vient du fait que tu colles une formule qui donne #N/A comme resultat.

Je vois a priori deux solutions :

La premiere consiste a dire que tu peux incrementer ton i de 5 lignes si tu colles
La deuxieme consiste a verifier si la cellule est en erreur en rajoutant :
If Not IsError(Cells(i, 2)) Then
sur la ligne avant If Left(.....

avec un endif juste avant celui qui existe dejà

Merci Lapix...Merci et MERCI. !
J'ai opté pour la deuxième solution. C'est parfait.
y a pas à dire : il ya des DIEUX sur ce Forum!
Bonne journée,
Famu.