copie d'une recherche

[MicGump]

Bonjour,

Dans mon fichier excel j'effectue une recherche dans une feuille nommée "Recherche" à l'aide d'une box.
Et je copie mon ou mes résultats dans une feuille "Résultat".
Le problème c'est lorsque j'ai plusieurs résultats il ne m'en copie qu'un.
Je pense que ma boucle ne fonctionne pas correctement et/ou que je ne définis pas les bonnes cellules pour la copie.

Merci de m'aider, car mes connaissances en VB sont très faibles.

 

[Luki]

Re : copie d'une recherche

Bonjour Mic,

la sélection end(xlup) ne marche pas dans ce cas, sauf pour la première fois car elle ne s'actualise pas à chaque tour de boucle. en fait, caque donnée et recopiée sur la même ligne.

J'ai corrigé :

 Private Sub CmdValider_Click()
Dim i As Integer, ii As Integer
    Dim Dest As Range       '<<<<<<<<<<<<<<
ReDim tb(UF1.LB2.ListCount) As Integer
For i = 0 To UF1.LB2.ListCount - 1
    tb(i) = Val(Left(UF1.LB2.List(i), InStr(1, UF1.LB2.List(i), " ")))
Next i
Sheets("resultat").Cells.ClearContents
    Set Dest = Worksheets("resultat").Cells(Sheets("resultat").Cells(65536, 10).End(xlUp).Row, 1)   '<<<<<<<<<<<<<<<

For i = 0 To UF1.LB2.ListCount - 1
    Sheets("recherche").Cells(tb(i), 1).EntireRow.Copy
    'Sheets("resultat").Paste Destination:=Worksheets("resultat").Cells(Sheets("resultat").Cells(65536, 10).End(xlUp).Row + 1, 1)
    Sheets("resultat").Paste Destination:=Dest.Offset(ii, 0) '<<<<<<<<<<<<
    ii = ii + 1 '<<<<<<<<<<<<<<<<<<<
Next i
    Application.CutCopyMode = False
    Sheets("recherche").Activate
    
  
End Sub

remplace ton code par celui-ci et dis moi.

Bonne journée

 

[Creepy]

Re : copie d'une recherche

Bonjour le Forum, Luki, MicGump

Deux remarques :

1 - la ligne ReDim tb(UF1.LB2.ListCount) As Integer n'est pas fausse mais n'est pas bonne non plus. tu veux stocker le contenu de ta listbox soit deux. Sachant que tu redimes ton tableau à 2 (dans le cas de Jean) et qu'un tableau commence à 0 donc tu as 0,1,2 il aurait fallut faire : ReDim tb(UF1.LB2.ListCount-1) As Integer pour avoir 2 entrées 0 et 1.

2 - Ensuite je ne vois pas trop pour quoi passer par un tableau il y a moyen de faire beaucoup plus simple.

Private Sub CmdValider_Click()
Dim i As Integer
Sheets("resultat").Cells.ClearContents
For i = 0 To UF1.LB2.ListCount - 1
    Sheets("recherche").Rows(Val(Left(UF1.LB2.List(i), InStr(1, UF1.LB2.List(i), " "))) & ":" & Val(Left(UF1.LB2.List(i), InStr(1, UF1.LB2.List(i), " ")))).Copy Destination:=Worksheets("resultat").Cells(i + 1, 1)
Next i
End Sub

Voila @+

Creepy

 

[SergiO]

Re : copie d'une recherche

Bonjour à tous,

Je rejoins l'avis de Creepy sur l'utilité du tableau dans ce cas.

Mais son code fonctionne, il y a seulement un 0 de trop dans cette ligne pour chercher la première ligne vide dans la feuille résultat :

Sheets("resultat").Paste Destination:=Worksheets("resultat").Cells(Sheets("resultat").Cells(65536, 1[B][COLOR=Red]0[/COLOR][/B]).End(xlUp).Row + 1, 1)

Je l'ai enlevé pour rechercher sur la colonne A et ça fonctionne.

Bonne journée

 

[MicGump]

Re : copie d'une recherche

Merci beaucoup de m'avoir consacré un peut de temps.
Vos solutions fonctionne très bien.
Bonne continuation a tous 🙂