XL 2010 Trouver Ligne A completer

[cp4]

Bonjour,

J'ai besoin de votre aide. Je voudrai vérifier la présence dans un tableau la combinaison de 3 colonnes (clé).
J'ai utilisé un dictionnaire mais je bloque pour récupéré aussi le numéro (i) en item.

Autrement dit: Vérifier dans mon tableau la présence d'une clé (concaténation de 3 colonnes) et récupérer son numéro d’index (tableau structuré). Ouvert à toute proposition. Bien que je voudrais bien comprendre comment y parvenir avec un dictionnaire.

Merci.

Bonne journée.
edit: j'ai supprimé mon code car il était faux.

 

[ChTi160]

Bonjour Cp4
a quoi correspond "Ta" dans ta procédure ?

For i = LBound(Ta) To UBound(Ta)

ne serait ce pas plutôt

For i = LBound(T) To UBound(T)

Bonne Journée
Jean marie

 

[cp4]

Bonjour Cp4
a quoi correspond "Ta" dans ta procédure ?

For i = LBound(Ta) To UBound(Ta)

ne seraist ce pas plutôt

For i = LBound(T) To UBound(T)

Bonne Journée
Jean marie

Bonjour @ChTi160,

En effet, C'est T au lieu de Ta. Bêtise lors de l'écriture du code.

Bonne journée.

 

[Efgé]

Bonjour à tous

récupérer son numéro d’index (tableau structuré)

Avec ton code tu vas compter le nombre de fois où on trouve ta clé, par le numéro de ligne....
Cordialement

 

[cp4]

Bonjour à tous


Avec ton code tu vas compter le nombre de fois où on trouve ta clé, par le numéro de ligne....
Cordialement

Bonjour @Efgé ,

Ce que tu dis, je l'ai compris ( le i correspond à l'index de ligne du tableau structuré).
J'enregistre des données via un formulaire. Je veux bloquer l’enregistrement en doublon (est considéré comme doublon 3 critères, ceci tu l'as compris en lisant le code).
Je bloque pour affecter de i à la valeur de la clé d(T(i, 1) & T(i, 2) & T(i, 3))
J'espère que tu m'as compris. Ma méthode est peut-être inadaptée, je suis donc ouvert à toutes propositions.

Bonne journée.

nb: je ne maîtrise pas parfaitement la manipulation de Dictionary.

 

[Efgé]

Re
Une proposition non testée car pas d'exemple fourni:

Sub DoublonsNbOccurence()
   Dim T(), i As Long, clé, d As Object, K As Variant
   Set d = CreateObject("scripting.dictionary")

   T = Range("Tb").ListObject.DataBodyRange
   clé = "mo" & "ml" & "0xxx"

   For i = LBound(T) To UBound(T)
      If T(i, 1) & T(i, 2) & T(i, 3) = clé Then
         d(i) = ""
      End If
   Next i
   For Each K In d.Keys
    'boucle sur les lignes comprenant la clé
   Next K
End Sub

Mais attention : Lbound(t) risque de renvoyer 0 et la première ligne de ton .DataBodyRange est 1 ...
Cordialement

 

[Dranreb]

Bonjour.
Les 3 éléments étant saisis dans 3 ComboBox, habituellement je détermine automatiquement si ça va pouvoir donner lieu à un ajout ou à une modification. Pas de doublon possible donc. Pas de programmation dans l'UserForm pour gérer les ComboBox à part une séquence déclarative dans la Sub UserForm_Initialize. Des procédures de prises en charge d'évènements informent simplement l'UserForm du cas qui se présente, et de l'éventuel numéro de ligne concerné.

 

[cp4]

Re
Une proposition non testée car pas d'exemple fourni:

Sub DoublonsNbOccurence()
   Dim T(), i As Long, clé, d As Object, K As Variant
   Set d = CreateObject("scripting.dictionary")

   T = Range("Tb").ListObject.DataBodyRange
   clé = "mo" & "ml" & "0xxx"

   For i = LBound(T) To UBound(T)
      If T(i, 1) & T(i, 2) & T(i, 3) = clé Then
         d(i) = ""
      End If
   Next i
   For Each K In d.Keys
    'boucle sur les lignes comprenant la clé
   Next K
End Sub

Mais attention : Lbound(t) risque de renvoyer 0 et la première ligne de ton .DataBodyRange est 1 ...
Cordialement

Je te remercie. Je n'ai pas encore testé ta propose.
En fait, une fonction aurait été plus indiquée (je n'ai encore appris à faire des fonctions avec paramètres) dans mon cas car j'alimente mon tableau depuis une autre procédure.

La clé est constituée de 3 TextBoxs. Dans le cas où la clé existe, récupérer l'index de ligne pour ajouter une donnée dans certaines colonnes. Sinon, ajouter une ligne de données au tableau structuré.
Je pense qu'ainsi présenté, c'est plus clair.

Merci.

 

[Efgé]

Re

Je pense qu'ainsi présenté, c'est plus clair.

Pas du tout.
Rien n'est plus explicite qu'un fichier exemple bien monté.

Je passai par là, j'ai fait une proposition, je m'arrête là

Cordialement

 

[cp4]

Bonjour.
Les 3 éléments étant saisis dans 3 ComboBox, habituellement je détermine automatiquement si ça va pouvoir donner lieu à un ajout ou à une modification. Pas de doublon possible donc. Pas de programmation dans l'UserForm pour gérer les ComboBox à part une séquence déclarative dans la Sub UserForm_Initialize. Des procédures de prises en charge d'évènements informent simplement l'UserForm du cas qui se présente, et de l'éventuel numéro de ligne concerné.

Bonjour @Dranreb ,

Merci de m'avoir répondu. la clé est la concaténation de 3 textboxs.
Si tu as une fonction dans le même sens qu'expliquer dans ma réponse à @Efgé au post#8.

Bonne journée.

 

[Dranreb]

Il vaut mieux bénéficier de la faculté de recherche dans sa liste d'une ComboBox pour cela. C'est avant tout une zone de saisie. C'est une erreur de croire qu'elle ne doit s'utiliser qu'en se précipitant sur son DropButton pour en afficher la liste.

 

[cp4]

Re

Pas du tout.
Rien n'est plus explicite qu'un fichier exemple bien monté.

Je passai par là, j'ai fait une proposition, je m'arrête là

Cordialement

Et, je t'en remercie.
pour le fichier ça ne sera pas dans l'immédiat. Mais étant donné, que tu es déjà parti...

 

[cp4]

Il vaut mieux bénéficier de la faculté de recherche dans sa liste d'une ComboBox pour cela. C'est avant tout une zone de saisie. C'est une erreur de croire qu'elle ne doit s'utiliser qu'en se précipitant sur son DropButton pour en afficher la liste.

Je te remercie d'essayer de me convaincre d'utiliser une combobox.
Mais je te confie que j'ai la hantise de modifier mon fichier.

Encore merci.

 

[Dranreb]

La programmation d'un UserForm utilisant mon système est généralement simple. Il n'y a pas d'inquiétude à avoir. J'ai bien dit 3 ComboBox, pas 1.

 

[cp4]

Re,
Ma solution. SVP, comment la transformer en fonction?

Dim Lig
Sub LigneExiste()
   Dim T(), i As Long, clé, d As Object
   Set d = CreateObject("scripting.dictionary")

   T = Range("Tb").ListObject.DataBodyRange
   clé = "mo" & "ml" & "0xxx"

   For i = LBound(T) To UBound(T)
      If T(i, 1) & T(i, 2) & T(i, 3) = clé Then
         If d.Exists(T(i, 1) & T(i, 2) & T(i, 3)) Then
            d(T(i, 1) & T(i, 2) & T(i, 3)) = i
         Else
            d(T(i, 1) & T(i, 2) & T(i, 3)) = d.Count + 1
            i = d.Count
         End If
      Next i
      Lig = i
   End Sub