Contenu récent par seb555

C'est exact, mais dysorthographie a déjà donné réponse à ce point. Sinon, ok pour RTrim.

Simple et efficace, cela tient en peu de ligne. Merci.

En effet, cela faisait un petit moment que je n'avais pas touché de Dictionnary, l'astuce de donner à l'item sa propre valeur est intéressante. Merci

C'est exact, j'aurais pu m'en sortir avec un t1=Range ... suivi d'un resize, en fait ce qui m'intriguait était l'utilisation d'un Array de taille 0 pour lequel il me semblait nécessaire de traiter l'affectation de la première valeur via une variable de passage(Ini1 dans mon cas) pour assurer le...

Merci pour cette proposition, qui en plus de la création d'unique recherchée les sorts par ordre croissant 😊

Non, j'ai précisé le problème, la remarque de Bruno était correcte, je cherche à mettre dans le Array que les valeurs uniques, non connues d'avance.

C'est exact, mon explication n'était pas complète : en fait je souhaite dans la zone A3:A8 par exemple ne garder que les valeurs uniques pour les mettre dans un Array. Si la zone est composée de AB,AB,CN,CN,AB,CN alors le Array aura AB et CN comme éléments.

Bonjour, Je cherche à mettre les valeurs uniques de A3:A8 dans un Array, la façon que j'ai trouvé pour y arriver est Sub test() Dim vars0() As Variant ReDim vars0(0) lali1 = 8 Ini1 = False For i = 3 To lali1 valeur = Cells(i, 1) On Error Resume Next...

Bonjour daniel, je te remercie de ton éclairage. C'est quand même surprenant que ce pseudo référence à une cellule cause cette situation, et ce d'autant plus que au début toutes les macros sont ok pour exécuter et ce n'est que dans le temps qu'elles passent en grisé. je suis quitte à mettre des...

Bonjour, J'ai dans mon classeur le problème suivant, quand je veux lancer une macro, ALT F8, certaines sont ok pour Executer, cas de la macro B6, mais certaines ne sont pas ok cas de la macro C4 pour laquelle Exécuter est grisé. Mes deux macros se trouve dans le même module. Auriez-vous une...

Bonjour @job75 Alors que je m’empêtrais à imaginer des s5.Range("M2").FormatConditions.Add Type:=xlExpression, Formula1:=formule(i) car j'ai au total 8 ateliers donc 24 conditions à prendre en compte, et que je butais sur le format de formule(i) car apparaissait avec des "" après le =, donc...

Bonjour @Marcel32 , J'essais généralement de "tout faire" par macro, car l'utilisation de formules m'ont plusieurs fois amené à des non fonctionnement (surtout avec des sommeprod), sur de gros tableau, et après plusieurs mois d'utilisation quotidienne, sans raison apparente, les fichiers de...

Bonjour, Merci de vos éclairages, @mapomme & @Dranreb , oui @Marcel32 avec 3MFC on y arrive (j'ai mis plusieurs couleur pour l'étude du résultat) Mais je trouve la méthode très lourde. Je pensais naïvement que la propriété Border de la cellule "appartenait" à la cellule, comme pour sa...

Bonjour, J'ai un petit outil de planification, pour qu'il me donne le plus de visibilité possible, je lui fait encadrer les durées qui m'intéressent. cela me convient, mon pb est que si je tri par une colonne autre que OF, Outil par exemple, les couleurs suivent, mais pas les encadrements...

Merci, en effet maintenant cela fonctionne: Private Sub Workbook_Open() Set CibleWB = ThisWorkbook Chemin = "c:\fic1.bas" CibleWB.VBProject.VBComponents.Import Chemin Application.Run ("Macro1.Initialisation") End Sub Bonne soirée. Seb555