Résultats de la recherche

  1. T

    Symptôme de l'erreur - "La méthode 'add' de l'objet 'ListRows' à échoué"

    Bonjour à tous, j'ai identifier la cause du problème et ai trouver un contournement ne résolvant pas dans les règles de l'art (si je peux me permettre ce terme). Voici le topo : Sur une feuille "Stock", il y a 3 tableaux structurés "BaseNeutre" "Nicotine" "ARO" Le formulaire...
  2. T

    Comportement anormale - Suppression de ligne dans tableau structuré

    Bonjour, j'ai un tableau structuré nommé Nicotine. Le code ci-dessous à pour fonction de supprimer toutes les lignes du tableau dont la valeur est à zéro pour une colonne cible. Cela fonctionne parfaitement. Par contre, s'il y a une seul est unique ligne (1er ligne), alors la code la supprime...
  3. T

    Suppression de doublons dans un tableau 1D

    bonjour, j'ai parcouru diverses sources sur le net sur la suppression des doublons dans un tableau (array 1D). La plus part, s'appuie sur un Range de la feuille pour enfin enregistrer le résultat dans un tableau. De plus, il faut que la feuille cible soit active. sub coincoin() ... Dim...
  4. T

    Triage Croissant sur array 2d

    bonjour à tous, J'ai créer un tableau 2D --> a_DIY_Liquide Option Base 1 ' Déclare Tableau 2D (Ligne,Colonne) Public a_DIY_Liquide(1000, 100) As Variant pour enregistrer les lignes d'un tableau structuré du nom [Tab_Liquide] je rempli le ComboBox ' Enregistrement dans ComboBox - Nom...
  5. T

    Sélection d'une plage de cellules

    Bonjour, Dans un tableau structuré, j'ai besoin de reproduire ce que l'on peut faire via la souris via VBA code - Sélectionner la cellule Source (ex: I30) - Remplir une plage de cellules (en se servant du pt. carrée en bas à dtr. du rectangle de sélection - Etirer jusqu'à une cellule...
  6. T

    Problème de comparaison de string

    Bonjour, le but est de comparer une variable string avec chaque valeur issue d'une colonne d'un tableau structuré. La variable string est issue du choix fait par le ComboBox Dosage (ex 30/70) Sub Suppression_Ligne_CB_Dosage(Nom_Feuille, Nom_Tableau) Dim x As Integer Dim No_Valeur_CB As...
  7. T

    Filtre sur ComboBox

    Bonjour, sur une Userform, j'ai un ComboBox qui Point sur une colonne d'un tableau structuré; voici le contenu de la colonne . j'aimerai supprimer tous les doublons! Dois je passer par un tableau array type a(1,i) pour y faire les suppressions, ou puis je le faire directement dans -->...
  8. T

    AutoFilter sur une listeBox

    Bonjour, Dans un UserForm, j'ai une ListBox ayant comme RowSource un tableau structuré. Je cherche à afficher dans cette ListBox le résultat d'un filtre choisi par l’intermédiaire d'un Combox. J'ai réussi à poser le filtre du ComBox sur le Tableau structuré (cela fonctionne bien). Malgré tous...
  9. T

    UserForm ListBox MultiSelect avec une tableau structuré

    Bonjour, Après avoir écumé plusieurs forums, je suis toujours en panne sur se problème. On trouve beaucoup de solution avec une liaison type Range (plage nommée), qui fonctionne bien. J'ai un tableau structuré lié à une ListBox type UserForm en mode MultiSelect fmMultiSelectMulti. le but...
  10. T

    Insertion image depuis une cellule

    Bonjour, j'ai une petite image dans une cellule "A1" de la feuille "Config" Je veux l'insérer dans un objet Image1 du formulaire "Forme1" si l'image se situe sur HDD alors - ça fonctionne Me.Controls.Item("Image3").Picture = loadpicture("C:\!TEST!\FaceID\2.jpg") si depuis la cellule alors -...
  11. T

    Générer plusieurs ListBox dynamiquement depuis une ListeBox

    Bonjour, Lors de la sélection d'une des lignes d'une ListeBox, je génère sur le formulaire une TextBox. Cela fonctionne bien. Par contre, la position en hauteur TOP est identique à la valeur de l'index du select de la ligne de la listBox Mon souhait est peu importe la position de la ligne...
  12. T

    Supprimer une ligne d'un tableau nommée

    Bonjour, j'ai tableau nommé BaseNeutre sur lequel j'arrive à supprimer toutes les ligne vides par contre je cherche à supprimer toutes les lignes ayant dans une colonne (ex: Col16) la valeur 0 j'ai test ceci sans succès Dim Rng1 As Range On Error Resume Next Set Rng1 =...