Cherche et Copie

[ryadus]

Bonjour le Forum;

Je voulais faire une macro qui me cherche une valeur et lorsqu'il l'a trouve il me copie la ligne vers une autre feuille. mais sa me bug, est ce que queqlun pourrait voir se qui cloche?

Merci

Sub ChercheCopieLigne()
Dim j, i, val As Variant
 
 With Sheets("Feuil1")
    For j = 2 To .Range("A51").End(xlUp).Row
        val = Cells(j, 1).Value
 
     With Sheets("Sortie")
        For i = 1 To .Range("A65536").End(xlUp).Row
          If LCase(.Cells(i, 1).Value) = LCase(val) Then
                Rows("i:i").Select
                Selection.Copy
                Sheets("Feuil1").Select
                Range("j:j").Select
                ActiveSheet.Paste
            End If
        Next i
     End With
 
    Next j
 End With
End Sub

 

[baptbapt]

Re : Cherche et Copie

Un petit exemple, met ta page en pièce jointe

Sa pourrait aider, pour que l'on test nos macros

Merci

 

[JeanMarie]

Re : Cherche et Copie

Bonjour

Remplace Rows("i:i").Select par Rows("i:i").SelectRange("A" & i).EntireRow.Select

@+Jean-Marie

 

[ryadus]

Re : Cherche et Copie

Ok le voici

 

[JeanMarie]

Re : Cherche et Copie

Re...

En simplifiant la commande de copier/coller

Sub ChercheCopieLigne()
Dim j, i, val As Variant
 
 With Sheets("Feuil1")
    For j = 2 To .Range("A51").End(xlUp).Row
        val = Cells(j, 1).Value
 
     With Sheets("Sortie")
        For i = 1 To .Range("A65536").End(xlUp).Row
          If LCase(.Cells(i, 1).Value) = LCase(val) Then
                .Range("A" & i).EntireRow.Copy Destination:=Sheets("Feuil1").Range("A" & j).EntireRow
          End If
        Next i
     End With
 
    Next j
 End With
End Sub

en utilisant la fonction Match

Sub ChercheCopieLigne()
Dim j, i, val As Variant
 
 With Sheets("Feuil1")
    For j = 2 To .Range("A51").End(xlUp).Row
        val = Cells(j, 1).Value
 
     With Sheets("Sortie")
        i = Application.Match(val, .Range("A:A"), 0)
        If Not IsError(i) Then
          .Range("A" & i).EntireRow.Copy Destination:=Sheets("Feuil1").Range("A" & j).EntireRow
        End If
     End With
 
    Next j
 End With
End Sub

PS : j'ai rajouté une gestion d'erreur dans le 2ème code

@+Jean-Marie

 

[ryadus]

Re : Cherche et Copie

Ok merci,
sa m'aide à decouvrir de nouvel fonction.

Si j'ai bien compris:

i = Application.Match(val, .Range("A:A"), 0)

fait la recherche de la valeur val et affecte la position à i, mais elle recherche dans la colonne A ou la ligne A ?

Merci

 

[JeanMarie]

Re : Cherche et Copie

Re...

Cela dépend de la plage spécifiée, comme elle correspond à la colonne A, la recherche est verticale, si la plage est range("1:1") la recherche aurait été horizontale.

La largeur de la plage spécifiée ne peut être que d'une unité, ces deux exemples de fonctionnent pas range("1:2") ou range("A:B").

@+Jean-Marie

 

[ryadus]

Re : Cherche et Copie

Merci pour tes explications
Est ce que tu peux être plus précis sur la fonction Range("1:2") stp?
Que signifie le 1 et le 2?
Est ce que c'est genre la ligne 1 et la colonne 2 ???

Merci