Rapport de message :*
 

Re: recherche automatique.......

Titre du sujet : Re: recherche automatique.......
par myDearFriend! le 19/06/2008 22:49:20

Bonsoir Oxor, JCGL, le Forum,

Tout à fait d'accord avec JCGL, voilà ce que j'appelle un multiposts correct et tout à fait respectueux des forums de discussions et de leurs contributeurs ! Merci à toi, Oxor

Je participe donc à la fête et joins une autre façon de faire (par VBA).

J'ai utilisée le code suivant (dans un module de code standard) :
Option Explicit

Sub Traitement()
'myDearFriend!  -  www.mdf-xlpages.com
Dim Cible As Range
Dim L As Long
    With Sheets("Feuille de saisie")
        For L = 2 To .Cells(Application.Rows.Count, 1).End(xlUp).Row
            With .Rows(L)
                If Application.CountA(.Range("D1:R1")) > 0 Then
                    Set Cible = Sheets(.Range("A1").Text).Cells(Application.Rows.Count, 1) _
                        .End(xlUp).Offset(1, 0).EntireRow
                    Cible.Value = .Value
                End If
            End With
        Next L
    End With
    MsgBox "Traitement effectué !"
End Sub

Tu trouveras ci-dessous le fichier modifié en conséquence...

Cordialement,