Discussion :

[kedmard]

Bonjour à tous,

Mon problème fait suite à la discussion :http://www.developpez.net/forums/d12...meme-classeur/

Je m'explique, j'ai une macro qui copie les cellules d'un tableau (à 3 champs Numsecu, Nom, Club) contenu dans une feuille nommée Source pour les coller dans une autre nommée Copie selon le critère de ressemblance du champ "Numsecu" c-à-d que lorsque la valeur du champ "Numsecu"
est la même dans chaque onglet alors toute la ligne correspondante est copiée dans Source puis collée dans Copie.

Tout cela ma macro arrive à le faire sans problème, ce que je souhaite c'est de laisser vide les champs Nom et Club (dans la feuille Copie) quand Numsecu n'est pas le même dans chaque onglet.


Pour mon exemple ci-joint, je veux qu'une fois ma macro exécuter, que les champs Nom et Club de Robinho et Ronaldo (de la feuille Copie) soient vides .




Voici la code qui me fait la copie :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub sc()
Dim endlig As Long
Dim i As Long
Dim recherche As Range
Dim c As Range
 
With Sheets("Copie")
endlig = .Cells(5, 5).End(xlDown).Row
 
    For i = 6 To endlig
 
        Set recherche = .Cells(i, 5)
        With Worksheets("Source").Range("D11:D14")
            Set c = .Find(recherche, LookIn:=xlValues)
            If Not c Is Nothing Then
                recherche.Offset(0, 1) = c.Offset(0, 1)
                recherche.Offset(0, 2) = c.Offset(0, 2)
            End If
        End With
    Next i
End With
 
End Sub

Merci d'avance pour votre si précieuse



Ci-joint mon fichier.