Contenu récent par taratata

Solution trouvée : -------------------- La cause : ----------- la déclaration RowSource est déclarée directement sur ListBox_ARO dans le formulaire RowSource NomTableauStructuré Solution : ----------- déclaration dans le code ' -------- Le contrôle ListBox ARO doit être configurer...

j'ai déjà essayé

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

Tous les Tableaux avec entête commencent en colonne B Cas de figure - Tableau vierge puis se rempli ------------------------------------------------- 1 - routine ligne à Zéro - Fonctionne bien With [Nicotine] .Columns(18).EntireColumn.Insert...

If .Rows.Count > 1 Then Intersect(.Columns(17).SpecialCells(xlCellTypeConstants, 1).EntireRow, .Cells).Delete xlUp End If comme ceci ok

ça fonctionne - pas de suppression mais s'il y a plusieurs lignes alors pas de suppression aussi

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

Merci Ednoork, laurent950 une bonne journée

il s'agit du dictionnaire commençant par 0 l'index du array a commence donc à 0 c'est pour cela que la 1er entrée n'est pas prise en compte dans array b_Dosage j'ai enregistré le contenu array ab dans array ac If d.Count Then ab = d.Keys MsgBox "ubound(ab) -+-+-+ " &...

c'est ici que ce trouve le prob MsgBox " UBound(tablo) " & UBound(tablo) For i = 1 To UBound(tablo) 'matrice, plus rapide, au moins 2 éléments liste = liste & vbLf & tablo(i, 1) Next i MsgBox "Mid(liste, 2) " & Mid(liste, 2) Set d =...

Sur vos fichier, cela fonctionne bien sur le mien, voilà ce que j'obtiens variables globales ' Tableau Dynamique pour ComboBox CB_TN -- CB_Dosage Dim a_Taux() As Variant Dim b_Dosage() As Variant Lecture et traitement de la colonne Taux Nicotine Private Sub CB_TN_a_Taux() '...

si je met MsgBox List_obj_Provisoire.DataBodyRange.Columns(3).Address j'obtient une plage lorsqu'il y redondance (plusieurs fois 12) alors qu'il n'y a qu'une seul fois l'info (ex: 26) pas d'affichage msgbox c'est le même phénomène avec Last_Col =...

après tests - ceci est valable pour les deux codes job75 , mapomme il s'avère que cela ne fonctionne pas, pour la toute première ligne 1er image est le tableau structuré 2ème image est le résultat après moulinette personnellement j'utilise celui de job75 (via tableau) j'ai changer...

Merci job75 , mapomme la méthode de mapomme est courte, simple à comprendre. Elle s'appuie une la feuille. je vais tester s'il cette feuille doit être active! la méthode de job75 est pas facile à appréhender, normale pour un novice. Elle s'appuie sur un deuxième tableau ce qui est parfait...

merci Dranreb au départ j'ai dans un tableau structuré [Tab_BNIC] en colonne 4 comprenant des chiffres. Elle contient des doublons. Au final, je souhaite enregistrer cette colonne sans doublons dans un tableau array --> dim a_Taux(100) as variant.