User form et entrée différente dans un tableau excel

Bonjour à toute la communauté
Déjà je tenais à félicité ce site qui nous fais apprendre tout les merveille de la programmation ! :)

Je vous explique mon problème,

j'ai créer un simple userform pour faire mes essai avec un tableau excel

l'idée c'est que quand je rentre mon code dans la premier zone de texte dans l'user form celui si s'ajoute bien dans la colonne A et passe ensuite à la ligne.

Mais comment lui dire que si le numéro est identique à une des ligne de la colonne A, qu'il ne l'ajoute pas à la ligne en bas mais qu'il complète la ligne du numéro du mur et module suivant la deuxième entré de l'user form

dans la deuxième saisi userform sera rentré des noms de machine (les même nom que dans les colonnes d'excel)

l'idée si le nom weinman est écrit, il m'ajoute la date de quand a été pointé ce murs du module numéro ... dans la colonne weinmann

je ne sais vraiment pas si je suis assez claire.

je vous envoie donc le fichier en pièce jointe pour voir si qqn aurais une solution (surtout pour comprendre peut être mieux :p)

Pour ouvrir l'user form cliquez sur % du clavier (l'idée ces l'utilisation d'une douchette avec un system de code bar, donc le clic de la douchette ouvrira le formulaire)

Cordialement

Bonjour,

Citation:

---

Mais comment lui dire que si le numéro est identique à une des ligne de la colonne A, qu'il ne l'ajoute pas à la ligne en bas mais qu'il complète la ligne du numéro du mur et module suivant la deuxième entré de l'user form

---

Pour ce faire pour commencer, j'utiliserais une boucle qui lirait dans chaque ligne le contenu de la cellule de la première colonne et une condition pour savoir si le contenu de la cellule est égal au contenu de ton textbox.
Pour les boucles : ici ou ici
Pour la condition : ici

Bonjour,

Citation:

---

Envoyé par Limace_hurlante

Pour ce faire pour commencer, j'utiliserais une boucle qui lirait dans chaque ligne le contenu de la cellule de la première colonne et une condition pour savoir si le contenu de la cellule est égal au contenu de ton textbox.

---

La boucle marcherait, en effet, mais il y a plus rapide et efficace : la méthode Application.Match. Cette méthode te permet de trouver la position (donc la ligne) d'un mot dans une liste de mot. Elle renvoie une erreur si le mot n'a pas pu être trouvé. Supposons que les noms à trouver sont dans la colonne A :

Code:

---

1 2 3 4 5 6

Dim ligne As Long If Not IsError(Application.Match(textbox.Value, Range("A:A"), 0) Then 'cas où on trouve une correspondance ligne = Application.Match(textbox.Value, Range("A:A"), 0) 'on récupère le numero de ligne où se trouve le nom Else 'cas où on ne trouve pas de correspondance 'ligne = dernière ligne ? End If

---

J'espère que ça te permettra d'avancer !

NB : En ce qui concernce le fichier joint : https://www.developpez.net/forums/d8...s-discussions/

Bonjour,

afin d'éviter un double calcul de Match (la fonction EQUIV d'Excel version française),
affecter directement le résultat de Match dans une variable de type Variant représentant donc le numéro de ligne
et à contrôler au choix via les fonctions IsError et IsNumeric …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Stockholm, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

Salut.

En plus de la remarque de Marc, je propose de ne pas effectuer la recherche sur A:A

Code:

---

Application.Match(textbox.Value, Range("A:A"), 0)

---

Il serait me semble-t-il plus judicieux d'utiliser des tableaux structurés et la référence structurée comme nom de plage VBA... En plus de limiter correctement la plage de recherche, ça permet de limiter la dépendance entre le code VBA et la structure de la feuille (en cas de déplacement de colonne, par exemple, voire même de déplacement du tableau entier sur une autre feuille, car le code utilisant la référence structurée continuera à fonctionner sans problème). De plus, le fait de créer une fonction pour récupérer la position permet de mettre une gestion pertinente des erreurs éventuelles (non trouvé, ...).

Pièce jointe 272770