Discussion :

[jean-paul lepetit]

Salut à tous,

Une petite question toute bête :
j'enregistre une macro faisant du copier coller ça marche.
je modifie cette macro pour avant de copier faire une recherche de valeur et là j'ai le message "La methode paste de la classe worksheet a échoué"

Je vois pas ou ça coince....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub Macro1()
   Range("b1:b5000").Select
    Dim vCellule As Object
    For Each vCellule In Selection
        If vCellule.Value = Range("b2") Then       
            vCellule.EntireRow.Copy
            Application.CutCopyMode = False
            Range("a3").Select
            ActiveSheet.Paste
        End If
    Next  
End Sub

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
        If vCellule.Value = Range("b2") Then       
            vCellule.EntireRow.Copy destination:=Range("a3")
        End If

[Gorfael]

salut quand ça coince, fait-la en pas-à-pas
Déjà, mettre Dim en entrée de macro, et pas au milieu
Dim VCellule as Range serait pas mal, mais ...

Dim vCellule As range
vCellule est une plage de cellule (ou 1 seule)
Range("b1:b5000").Select
B1 à B5000 sélectionnés
For Each vCellule In Selection
Pour chaque cellule de la sélection 1er passage vCellule = B1
If vCellule.Value = Range("b2") Then
si B1=B2 (on va dire Vrai)
vCellule.EntireRow.Copy
copier la ligne 1
'Application.CutCopyMode = False
supprime le mode copie => donc t'as rien à coller => donc Paste déclenche une erreur
Range("a3").Select
sélectionner A3
ActiveSheet.Paste
coller ligne 1 sur A3
End If
Next
cellule suivante sur la sélection qui est A3 On a finit, on sort de la boucle each
Edit : à priori, il a sauvé la première sélection et il contibue, mais il copie toujours sur la ligne 3 qui aura la valeur de la dernière ligne dont la cellule N sera égale à B2

Si tu disais ce que tu essaies de faire, sinon :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim X as long
For X=5000 to 1 step -1
if range("B" & X)=range("B2") then
Roxs(X).copy Rows(3)
exit for
end if
next x

donnera le même rendu en nettement plus rapide
A+

[jean-paul lepetit]

Merci ousk'el'nor,
je me débrouille mieux dans Access que dans Excel....

Merci aussi a Gorfael,
a l'exécution pas a pas ça bloquait sur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.Paste

[Gorfael]

Salut
Regarde la ligne en rouge dans mon poste précédent
mets une apostrophe (snas Bernard Pivot) devant pour la passer en commentaire et testes

Et si tu débrouilles mieux sur les code Access, tu pourrais me dire comment ouvrir un recordset avec comme contenu une table (sans passer par SQL). Avant j'utilisai ;
Set Ma_Table = CurrentDb.openrecordset("Table", DbOpenDynaset)
mais maintenant, Access Boude

A+

[jean-paul lepetit]

Va voir dans outils, références, il doit te manquer DAO3.x ,
ou alors il est trop bas dans la liste, il doit être en 3eme position