VBA - Ajouter donnée dans tableau selon condition

Bonjour,

J'aimerai ajouter une donnée dans une colonne (Visité) selon l'ID indiqué en B8 dans mon exemple.
Ici, le Visité 4 devrait s'implémenter via une macro en C3. L'ID tapé manuellement en B8 correspond à l'ID de la colonne A
Pièce jointe 611934

Merci de bien vouloir m'aider

Bonjour
je ne vois pas de relation entre V2 et visité 4
en plus je crois qu'il est meilleur de réserver une cellule en haut pour remplir un tableau
donc ce que j'ai fais :
1/ un tableau pour les ID / visiteur à partir de E7
2/ la cellule A3 pour écrire V1 ou V2 ou Vn
3/ le résultat : alimenter la colonne C selon le choix effectué
tester et si ça te convient pas revenir avec plus d'éclaircissement
code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$A$3" Then Exit Sub Dim Tablo Dim i As Long Dim j As Long Tablo = Sheets("Feuil1").Range("E7", "F" & Sheets("feuil1").Range("F" & Rows.Count).End(xlUp).Row) With Sheets("feuil1") j = Sheets("feuil1").Range("C" & Rows.Count).End(xlUp).Row + 1 For i = LBound(Tablo, 1) To UBound(Tablo, 1) If IsNumeric(Application.Match(CStr(Tablo(i, 1)), .Cells(3, 1), 0)) Then .Cells(3, "B") = Tablo(i, 2) .Cells(j, "C") = Tablo(i, 2) End If Next i End With j = 0 End Sub

---

penser à l'utilisation des tableaux structurés

Merci Bennasr,
Mais hélas, non ça ne répond pas à mon besoin. Il faut vraiment que le Visité4 viennent s'implémenter automatiquement à la suite -dans la colonne C du 1er tableau- en fonction de l'ID.

selon quel logique?? la vérité je n'ai pas compris la logique

Bonjour
tout comme mon collègue BENNASR, je pense qu'il manque une explication dans votre demande : comment obtenez vous C8 ? on voit qu'il y a marqué select auto mais vous n'en parlez pas.

S'agit t'il d'un choix par menu déroulant, qui lorsqu'il est fait, doit aller alimenter C3 ? ou tout autre chose ?

Bonjour,
En effet, j'ai omis volontairement d'expliquer cette étape, car elle ne me paraissait pas pertinente.
Ici, le Visité4 a été sélectionné aléatoirement dans la liste de Visité (Dernier tableau). C'est une autre macro qui permet cette sélection aléatoire.

La 2ème étape est de rentrer le nom du visité (sélectionné aléatoirement) dans le tableau 1 en fonction de l'ID.

Bonjour
OK parfait

dans ce cas là on peut utiliser :

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim Mon_ID As String Dim Mon_Visité As String Dim Ma_ligne As Integer   Mon_ID = Range("ID_Sélectionné").Value Mon_Visité = Range("Visité_Sélectionné").Value Ma_ligne = Application.Match(Mon_ID, Range("A1:A100"), 0)   Range("C" & Ma_ligne).Value = Mon_Visité

---

J'ai nommé 2 cellules pour que cela soit + facile : Mon_ID et Mon_Visité (respectivement B8 et C8)
Grace à l'application.match (~fonction EQUIV) je détermine ma ligne [ !! attention !! il te faudra adapter le range à ton besoin !! ]
Enfin, j'indique que la cellule en C sur ce numéro de ligne doit reprendre le nom du visité

Ça fonctionne parfaitement Fab_de_chez_PERFORM !

Merci à chacun de vous d'avoir contribué !
Désolé pour les imprécisions :/