Bug sur PasteSpecial

[jeanphi]

Bonjour

J'utilise la macro suivante mais elle bugge au niveau du code coloré en rouge
Ce bout de code me sert à copier la zone "CurrentRegion" de la feuille "Filtre" vers la feuille "Ref"
Je ne comprends pas les raisons du bug
Quelqu'un peut t'il m'aider?? 🙁


Sub MAJ_UO()

Sheets("Filtre").Select
Plage = Range("E3:E65536")
Nbval = Application.WorksheetFunction.CountA(Plage)
Range("B3").CurrentRegion.Select
selection.Copy
Sheets("Ref").Select
Range("B10").Select
For i = 1 To Nbval
selection.EntireRow.Insert
selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
selection.Interior.ColorIndex = 12
Range("B10").Select
selection.EntireRow.Delete
Next i

Calculate
End Sub

 

[skoobi]

Re : Bug sur PasteSpecial

Bonjour,

le code en lui-même n'a pas de bug (je l'ai testé). Le problème provient surement du contenu du fichier.

 

[Staple1600]

Re : Bug sur PasteSpecial

Bonjour jeanphi, skoobi 😉, le fil, le forum



Ma proposition (sans bug sur XL2000)

 Sub MAJ_UO_bisA()
Dim i As Long
Dim NbV
Dim Plage As Range
Dim PlageD
Set Plage = _
Sheets("Filtre").Range("E3:E" & _
[E65536].End(xlUp).Row)
NbV = _
Application.WorksheetFunction.CountA(Plage)
Set PlageD = _
Sheets("Ref").Cells(10, 2).Resize(NbV, 1)
    With Sheets("Filtre").Range("B3").CurrentRegion
        .Copy
        With PlageD
            .PasteSpecial xlAll
            .Interior.ColorIndex = 12
        End With
    End With
End Sub

 

[jeanphi]

Re : Bug sur PasteSpecial

Bonjour Staple

Merci pour ton code, c'est super!!!
Par contre juste 2 petits points:
- Je voudrais qu'une fois que la macro est éxécutée, la ligne 10 soit supprimée
- Concernant le colorindex, je voudrais qu'il commence en B11 au lieu de B10
Encore merci pour ton aide!!!

 

[jeanphi]

Re : Bug sur PasteSpecial

Bonjour Staple

En fait le code que tu m'as communiqué insère autant de lignes qu'il en trouve dans NbV
Mais le problème c'est qu'il écrase d'autres lignes 🙁
Moi je souhaite qu'il insère sans écraser les autres lignes!!
Peux tu m'aider STP?

 

[Staple1600]

Re : Bug sur PasteSpecial

Bonjour jeanphi, le fil, le forum


Un petit fichier (zippé sans données confidentielles), histoire de pouvoir tester, serait le bienvenu.



PS: je ne suis pas seul à parcourir le forum ...

 

[jeanphi]

Re : Bug sur PasteSpecial

bonjour staple et encore merci à toi

voici le fichier http://cjoint.com/?hqjntBGuBf
comme je te l'ai dis le code que tu as développé est presque parfait hormis qu'il remplace des lignes existantes alors que je veux juste qu'il les insére
merci à toi
JeanPhi

 

[Staple1600]

Re : Bug sur PasteSpecial

Re



Ne vaudrait-il mieux pas un fichier avec des données fictives et allégé

(pour le poster sur le forum) ?

Il y a des choses non anonymes dans ton fichier ...

 

[jeanphi]

Re : Bug sur PasteSpecial

JM

il est très difficile d'alléger ce fichier car il y a des formules matricielles...
pour ce qui est des infos contenues dans le fichier elles n'ont pas de caractère confidentiel et sont fausses à 90%
est ce que tu peux tout de meme travailler a partir du fichier que je t'ai envoyé???

 

[Staple1600]

Re : Bug sur PasteSpecial

Re



Ton fichier est de plus est lié à un autre Acquisition 2008.xls


Et tu peux alléger

(en mettant moins lignes, et ce facilement)


Ps: je ne suis pas seul sur le forum (bis repetita !)

 

[jeanphi]

Re : Bug sur PasteSpecial

JM

j'ai allégé le plus que je pouvais...

http://cjoint.com/?hqjUCDOzpD
http://cjoint.com/?hqjVcpVJ2g

cDLT

 

[Staple1600]

Re : Bug sur PasteSpecial

Re


J'ai allégé encore plus !


Puisque pour ce qui concerne ce post

On a juste besoin des feuilles Filtre1, Filtre et Ref non ?

 

[jeanphi]

Re : Bug sur PasteSpecial

Oui!!!
la feuille UO me sert tout de même à vérifier si les modifs faites dans la feuille "Ref" se sont bien passées ;-)

 

[Staple1600]

Re : Bug sur PasteSpecial

Re


je parlais de la macro

Elle ne fait référence qu'a la feuille Filtre et Ref non?

Et c'est bien le sujet de ton post.

 

[jeanphi]

Re : Bug sur PasteSpecial

oups pardon!!
oui c'est tout à fait cela JM