Contenu récent par cp4

  1. cp4

    XL 2010 Utiliser CodeName des feuilles

    Je te remercie. Désolé, j'ai oublié que j'avais ouvert la même discussion. @Dranreb et @patricktoulon (que je salue;)) m'avaient donné la solution. Je me fais encore plus vieux😞😟. Pour le partage, code ci-dessous Sub Essai_CodeName() Dim Wsh '/!\ Attention! déclaré en variant sinon le code...
  2. cp4

    XL 2010 Utiliser CodeName des feuilles

    Bonjour, Merci pour votre réponse. En laissant de côté mon exemple. Quelle serait votre solution pour mettre les codenames dans une variable et l'utiliser pour faire une boucle.
  3. cp4

    XL 2010 Utiliser CodeName des feuilles

    Bonjour, J'utilise cette écriture pour mettre le Name des feuilles dans un Array pour effectuer une boucle. Je ne parviens pas à utilser le CodeName. Sub Essai_CodeName Dim coll As Object 'BdA et BdB sont les noms des feuilles' 'Leur CodeName sont respectivement ShA et ShB' Set coll =...
  4. cp4

    XL 2010 Trouver Ligne A completer

    Rebonjour @mapomme 👏👏👏 C'est parfait. Exactement comme je voulais. Merci beaucoup.
  5. cp4

    XL 2010 Trouver Ligne A completer

    Je te remercie. Je suis ici pour apprendre et comprendre. Encore merci pour ta gentillesse.
  6. cp4

    XL 2010 Trouver Ligne A completer

    Bonjour @mapomme ;), Pour le 1), merci d'attirer mon intention. Mais pas de risque, 1er string, 2ème string et 3ème n° de sécu. Pour le 2), d'où l'ouverture de cette discussion. Mes connaissances sont modestes et mon expérience encore plus. L'objectif est soit de rajouter une ligne de données...
  7. cp4

    XL 2010 Trouver Ligne A completer

    Je te remercie de me tendre la main. J'ai téléchargé un de tes fichiers (CLsCAsContacts). Par rapport à mon modeste niveau, tes codes sont au top. Pour le moment, je les trouve trop compliqués. Je me suis inscrit au forum pour apprendre petit à petit. Je ne parviens pas encore à me faire une...
  8. cp4

    XL 2010 Trouver Ligne A completer

    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...
  9. cp4

    XL 2010 Trouver Ligne A completer

    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.
  10. cp4

    XL 2010 Trouver Ligne A completer

    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...
  11. cp4

    XL 2010 Trouver Ligne A completer

    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.
  12. cp4

    XL 2010 Trouver Ligne A completer

    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é...
  13. cp4

    XL 2010 Trouver Ligne A completer

    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...
  14. cp4

    XL 2010 Trouver Ligne A completer

    Bonjour @ChTi160, En effet, C'est T au lieu de Ta. Bêtise lors de l'écriture du code. Bonne journée.
  15. cp4

    XL 2010 Trouver Ligne A completer

    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...