[Excel] Problème avec "Cells.Find"

Résolu
NarcisseJulien Messages postés 29 Statut Membre -  
NarcisseJulien Messages postés 29 Statut Membre -
Bonjour,

Je me retrouve face a un problème avec mon code vba d'une maccro visant à rechercher une valeur dans la colone G de la feuil1 (nommé Janvier), copier les lignes contenant cette valeur (tjr dans la colone G) et ensuite coller ces ligne à partir de la ligne 13 dans une feuil2 (nommée pièces).

La valeur recherchée est donc mise dans la celule D7 de la feuil "pièces"
Je lance la maccro via une userform situé dans cette feuil "pièces"
J'éffectue un comptage de cette valeur dans la colone G de la feuil "janvier"
Je stok cette information dans une variable "k"
Puis je fait une boucle allant de 1 à k pour chercher et copier les lignes contenants la valeur cherchée (dans la colone G) dans ma feuil pièces et ce à partir de la ligne 13.

Mon problème... ça fonctionne pas et j'arrive pas à voir où ça bloque...


Voici le code VBA que j'execute :


Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 22/06/2011 par Narcisse Julien
'

j = Range("D7").Value
Sheets("Janvier").Select
k = Application.CountIf(Range("G1").EntireColumn, j)

For i = 1 To k

Cells.Find(What:=j, After:=ActiveRow, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

Sheets("Pièces").Select

Rows(12 + i & ":" & 12 + i).Select
ActiveSheet.Paste
Next i

End Sub

Si qu'elqu'un a une petite idée de comment m'aider ... Je vous remerice par avance pour votre aimabilité.


A voir également:

1 réponse

Réponse 1 / 1
michel_m Messages postés 18903 Statut Contributeur 3 317
 
Bonjour 

Sub xxx()
With Sheets("janvier")
     donnee = .Range("D7")
     nbre = Application.CountIf(.Columns("G"), donnee)
     If nbre = 0 Then GoTo erreur:
     
     Application.ScreenUpdating = False
     lig = 65536
     For cptr = 1 To nbre
          lig = .Columns("G").Find(donnee, .Cells(lig, "G"), xlValues).Row
          Sheets("pieces").Rows(12 + cptr) = .Rows(lig).Value
     Next
End With
Exit Sub

erreur:
MsgBox "valeur inconnue", vbCritical
End Sub

Michel
2
NarcisseJulien Messages postés 29 Statut Membre 1
 
Merci enormément ^^
Je vais tester tous ça =)
0
NarcisseJulien Messages postés 29 Statut Membre 1
 
Ca me fait toujours une erreur... je sens bien que c'est pas loin =S mais je vois pas d'où l'erreur vient.
Dans mon test donnee = 4864
Nbre=3
Lig=65536
xlvalues= -4163
cptr=1
0
NarcisseJulien Messages postés 29 Statut Membre 1
 
[url=http://www.images-host.fr][img]http://www.images-host.fr[/img][/url]

[url=http://www.images-host.fr][img]http://www.images-host.fr[/img][/url]

Voici des SS de l'erreur et du code executé...
0
eriiic Messages postés 25847 Statut Contributeur 7 279
 
Bonjour,

tu devrais plutôt déposer un fichier exemple sur cijoint.fr et coller ici le lien fourni.
eric
0
michel_m Messages postés 18903 Statut Contributeur 3 317
 
Salut, Eric, Ca va ? :o)

Peux tu m'expliquer pourquoi tu écris
j=range("D7").value
puis
donnee= j

j'avoue que je n'en vois pas du tout l'intérêt et l'utilité, surtout pour écrire en plus une variable à 1 caractère ( i, j, k sont tolérés dans les boucles et encore!...) :o((

J'avais mis l'appel en D7 de sheet "janvier"
donc il fallait écrire 
donnee = Sheets("pieces").Range("D7")
With Sheets("janvier")
     nbre = Application.CountIf(.Columns("G"), donnee)


J'ai testé c'est OK
https://www.cjoint.com/?3Fwxq13QHdX
0