Re : Choix liste déroulante -Saisie automatique dans un autre tableau
Bonjour job75,
J'allais mettre la macro pour les doublons mais en dernier
Et ce n'est pas vraiment ce que je veux... ma macro "Recherche" mettait les "NR" seulement sous les molécules concernées. C'est à dire que dans la colonne I, s'il y a le mot "Wessling" elle ne mettra les NR que sous les molécules qui ne sont pas présentes dans la feuille "Données" . Je vous la renvoie :
Sub Recherche()
Dim derCol, ln, dico, cell, cel, col, clne
derCol = Cells(1, Columns.Count).End(xlToLeft).Column
Range(Cells(2, 10), Cells(Cells(Rows.Count, 1).End(xlUp).Row, derCol)).ClearContents
Set dico = CreateObject("Scripting.Dictionary")
For ln = 2 To Range("I" & Rows.Count).End(xlUp).Row
If Not dico.exists(Cells(ln, "I").Value) Then
dico(Cells(ln, "I").Value) = ln
Set cell = Sheets("Données").Range("A2:G2").Find(Cells(ln, "I").Value, lookat:=xlWhole)
If Not cell Is Nothing Then
col = cell.Column
For clne = 10 To derCol
Set cel = Sheets("Données").Columns(col).Find(Cells(1, clne).Value, lookat:=xlWhole)
If cel Is Nothing Then
Cells(ln, clne).Value = "NR"
End If
Next clne
End If
Else
Range(Cells(dico(Cells(ln, "I").Value), 10), Cells(dico(Cells(ln, "I").Value), derCol)).Copy Cells(ln, 10)
End If
Next ln
dico.RemoveAll
End Sub
Ainsi certaines cellules ne contiendront ni "NR", ni une valeur et j'y mettrais autre chose ! Je ne sais pas vraiment si vous voyez ce que je veux dire