Bonjour le forum,
J'ai problème qui me bloque depuis quelques temps, après creusé et rien trouvé je viens solliciter votre aide.
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 le code que j'utilise pour copier et coller dans la feuille "Copie":
Merci par avance pour vos réponses .
Kalmard.
J'ai problème qui me bloque depuis quelques temps, après creusé et rien trouvé je viens solliciter votre aide.
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 le code que j'utilise pour copier et coller dans la feuille "Copie":
Code:
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 par avance pour vos réponses .
Kalmard.