Par contre je ne vois pas quel code changer dans "module" si ma plage des "noms" va de E3:X975 et les 4 colonnes correspondent à A3
975.
Car y'a notamment en 6ème ligne "A2:E13" et je ne vois pas la correspondance !
Merci beaucoup à vous tous ;-)
Le code :
Option Explicit
Sub Transfertdonnées()
Dim MyPlage As Range
Dim C, Nom
Application.ScreenUpdating = False
Range("A2 :E13").ClearContents
Set MyPlage = Sheets("DONNEES").Range("E2:I7")
For Each C In MyPlage
' Boucle de mise en tableau des noms
If C <> "Non concerné" Then
'Noms absents + données
Set Nom = Range("A2:A1000").Find(What:=C)
If Nom Is Nothing Then
[B1000].End(xlUp).Offset(1, -1) = C 'Inscription du nom
C.EntireRow.Range("A1
1").Copy 'Inscription des données
[B1000].End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Else
'noms présents + données
Nom.Offset(1, 0).EntireRow.Insert
C.EntireRow.Range("A1
1").Copy
Nom.Offset(1, 1).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
'Elimination des doublons
If Nom.Offset(1, 1) = Nom.Offset(2, 1) And Nom.Offset(1, 2) = Nom.Offset(2, 2) And Nom.Offset(1, 3) = Nom.Offset(2, 3) And Nom.Offset(1, 4) = Nom.Offset(2, 4) Then
Nom.Offset(1, 1).EntireRow.Delete
End If
End If
End If
Next C
Range("A1").Activate
Application.ScreenUpdating = True
End Sub
Bonne journée
Tchao