Contenu récent par NecroXls

j'ai remplacer par ceci et ca marche super bien un grand merci Private Sub InitArmes() Dim L As Integer Dim J As Integer Dim Insertion As Boolean Dim TabArmesEnglish() As Variant Dim TabArmesFrancais() As Variant Dim TabArmesType() As Variant Dim TabCombattantsTemplateTypesArmes() As Variant...

Bonjour essaye la fonction "JOINDRE.TEXTE" qui permet de concaténer des plages avec un séparateur =JOINDRE.TEXTE(" ";TRUE";B6:B25) si tu ne veux pas concaténer les cellules vide sinon il faut mettre FAUX dans le 2eme paramètre

Bonjour voici une procédure me permettant de remplir les éléments d'une comboBox mais celle ci est très lente y a t'il moyen de l'optimiser? Private Sub InitArmes() j = Combattant.Value EquipementAdd.Clear For Each Row2 In Range("Armes").ListObject.ListRows TypeEnCours =...