Faisabilite : aide saisie et conversion de données

Question

Je fais appel à votre communauté aujourd’hui pour avoir un avis et éventuellement de l'aide concernant le cas suivant: apiculteur amateur j'ai fabriqué des code barres pour m'aider dans ma collecte de spécimen inclus dans un projet d'étude à long terme de nos chères butineuses. je vais essayer d'être clair. je saisi des données (origine du spécimen) en provenance d'un code à barre "2parmis5" à l'aide d'un douchette dans un tableau word très basique comprenant 2 colonnes 20 lignes. (avant je faisais tout au stylo....) les données sont affichées sous forme d'une suite numérique à 10 ou 12 digit, à la suite ,ligne après lignes au fur et à mesure que les codes barres sont "scannés" à l'aide la la douchette. je voudrai gagner un peu de temps à l'aide d'un tableau excel : 1- lorsque je scanne un des codes barres dans la première cellule col.A, les deux premiers digit du nombre soient convertis en une chaîne de 4 lettres prédéfinie affiché dans la colonne B 2- que la date et l'heure de la saisie s'affiche dans la colonne C 3- que la saisie se positionne sur la cellule de la ligne suivante pour une nouvelle saisie. -4- que la dernière case en bas de mon tableau m'indique le nombre de spécimen collecté (nb de code barre lus) exp. si la douchette envoie 60 7032220157 en A.1 alors soit affiché dans la cellule B1 la chaîne de caractères correspondant à "60" c à dire "Ruche Mona" seuls les 2 premiers digit (nom de la ruche) sont à considérer et à convertir en texte, j'ai 12 ruches concernées pour l'instant . 60 "ruche MONA" 61 "ruche YVON" 62 "ruche GAEL" etc.... Quelle est la solution à laquelle je dois m'attaquer. Complètement ignorant d'excel j'ai lu beaucoup de questions et de solutions dans ce forums mais plus je lis...plus je suis englué... comment aborder ce problème ? en vous remerciant pour le temps passé à me lire, Michel...

curulis57 · Answer

Un début de solution en VBA qui demande à être complété (noms des ruches) : Target.Offset(0, 1) = "Ruche " & Choose(iFlag, " Mona ", " Yvon ", " Gaël ") Pour décoder le reste, ne connaissant pas les codes-barres, faudra expliquer... Code à coller dans la feuille recevant le scan. Private Sub Worksheet_Change(ByVal Target As Range) ' If Not Intersect(Target, Range("A:A")) Is Nothing Then If Len(Target) &gt; 0 Then Target.NumberFormat = "0" iFlag = Val(Left(Target.Value, 2) - 59) Target.Offset(0, 1) = "Ruche " &amp; Choose(iFlag, "Mona", "Yvon", "Gaël") End If End If ' End Sub A+...

curulis57 · Answer

Une autre solution VBA... Inconvénient : si ta liste de ruche devait évoluer, tu devrais mettre les mains dans le cambouis pour actualiser la fonction : Switch(iFlag = 5, "FRELO", iFlag = 6, "VESPA", ... Il y a encore moyen de faire le travail par une formule 'RECHERCHEV' via un tableau dont la mise à jour, par contre, serait plus aisée. Private Sub Worksheet_Change(ByVal Target As Range) ' Application.EnableEvents = False ' If Not Intersect(Target, Range("A:A")) Is Nothing Then If Len(Target) &gt; 0 Then Target.NumberFormat = "0" iFlag = Val(Left(Target.Value, 2)) Target.Offset(0, 1) = Switch(iFlag = 5, "FRELO", iFlag = 6, "VESPA", iFlag = 8, "LAVAN", iFlag = 9, "TILLEUL", iFlag = 12, "VALLE", iFlag = 39, "CASCA", _ iFlag = 43, "CHENE", iFlag = 44, "CHATAI", iFlag = 60, "MONA", iFlag = 61, "YVON", iFlag = 62, "GAEL", iFlag = 88, "SUD3", iFlag = 92, "FERME") Else Target.Offset(0, 1) = "" End If End If ' Application.EnableEvents = True ' End Sub A+...

curulis57 · Answer

Belle promenade, par ce beau temps, j'espère!? Mais, pige pas trop comment ça peut marcher... "B3:B3"...? If Not Intersect(Target, Range("B3:B3")) Is Nothing Then Tant mieux, hein!? A+...

Theze · Answer

Je verrai plus ça comme ça (on ne sait pas dans quelle procédure évènementielle se trouve ce code ?) : If Target.Address(0, 0) &lt;&gt; "B3" Then Exit Sub If Target.Value = "" Then Exit Sub If Target.Count &gt; 1 Then Exit Sub Target.NumberFormat = "@" If Split(Range("B3").Value, " ")(1) = "NC" Then Target.Interior.ColorIndex = 42...