Choix liste déroulante -Saisie automatique dans un autre tableau

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

mimilendo35

XLDnaute Nouveau
Bonjour,
Je suis un peu perdue.. j'ai fait plusieurs listes déroulantes avec saisie semi-automatique (tableau vert dans la feuille "Comparaison") et lorsque je vais indiquer un résultat dans chacune des lignes, j'aimerais que ce résultat soit automatiquement recopié dans la colonne correspondante (feuille "Tableau"). Par exemple, si dans la liste déroulante je choisis acétamipride, le résultat indiqué sera directement réécrit dans la colonne acétamipride de la feuille "tableau". Si je choisis autre chose, le résultat sera indiqué dans une autre colonne.
Je vous envoie le fichier en zip pour que ce soit plus simple 😀

Merci beaucoup !
 

Pièces jointes

Re : Choix liste déroulante -Saisie automatique dans un autre tableau

Bonjour mimilendo35,

Visiblement vous ne cherchez pas à comprendre et encore moins à adapter mes solutions 🙄

Voyez le fichier joint, j'ai traité les numéros doublons de la feuille "Labo".

A+
 

Pièces jointes

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 🙂
 
Re : Choix liste déroulante -Saisie automatique dans un autre tableau

Bonjour mimilendo35,

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 🙂

Maintenant je vois, enfin j'espère...

Code:
Sub Enregistrer()
Dim labo$, col As Variant, ad$, lig As Variant, c As Range
labo = [E10]
With Feuil1 ' CodeName de la feuille "Données"
  col = Application.Match(labo, .Rows(2), 0)
  If IsNumeric(col) Then ad = .Columns(col).Address(True, True, xlR1C1, True)
End With
With Feuil4 'CodeName de la feuille "Tableau"
  lig = Application.Match([E2], .Columns(1), 0)
  If IsError(lig) Then lig = .Cells(.Rows.Count, 1).End(xlUp)(2).Row
  With .Cells(lig, 1).Resize(, .Cells(1, .Columns.Count).End(xlToLeft).Column)
    If ad = "" Then
      .Value = ""
    Else
      .FormulaR1C1 = "=IF(COUNTIF(" & ad & ",R1C),"""",""NR"")"
      .Value = .Value 'supprime les formules
    End If
  End With
  .Cells(lig, 1).Resize(, 9) = Application.Transpose([E2:E10])
  For Each c In [D10:D26]
    col = Application.Match(c, .Rows(1), 0)
    If IsNumeric(col) And c(1, 2) <> "" Then _
      If .Cells(lig, col) = "" Then .Cells(lig, col) = c(1, 2)
  Next
End With
End Sub
Edit : ajouté If .Cells(lig, col) = "" Then dans le dernier test.

Fichier (2).

A+
 

Pièces jointes

Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour