Contenu récent par rkan

Re : Sélection de ligne dans une liste en fonction de la cellule sélectionnée chapeau bas, Ça marche sans problème, Merci encore.

Re : Sélection de ligne dans une liste en fonction de la cellule sélectionnée Merci pour la réponse rapide, Intersect(Rows(p), Columns("A:AC")).Interior.ColorIndex = 3 Effectivement avec ce code j'arrive à surligner la bonne plage de ligne, Je reste toujours preneur d'une astuce...

Bonjour, j'ai un petit soucis avec le code ci-dessous : Sub Couleurliste() Dim p As Long On Error Resume Next For p = Range("B65536").End(xlUp).row To 1 Step -1 If InStr(1, Cells(p, 2).Value, "TOTO", vbTextCompare) Then MsgBox ("verif...

Re : Tri par ordre croissant date listbox Bonjour, Désolé pour la réponse tardive j'ai été un peu bousculé ces dernier jours, j'ai bien remplacé REFCMD par Listbox1, il n'y a plus de message d'erreur mais désormais la listbox ne retourne plus de resultat... j'ai continué de mon côté à...

Re : Tri par ordre croissant date listbox voilà j'ai essayé d'adapter ton code par rapport à mon bidule : ça donne : Private Sub UserForm_Initialize() Set t = CreateObject("Scripting.Dictionary") Dim i As Integer Dim cell As Range i = Range("H65536").End(xlUp).Row...

Bonjour, Avant de post j'ai fait un petit tour sur le forum sans succès, Donc pour faire simple voilà à quoi ressemble le code avec lequel je récupère les dates de mon tableau sous forme de listbox : Private Sub UserForm_Initialize() Dim Cell As Range Dim Unique As New...

Re : Problème sur listbox - Récupération valeurs cellules Merci, pour les conseils :)

Re : Problème sur listbox - Récupération valeurs cellules :) Voilà je crois avoir trouvé une solution, peut être pas la plus simple vu que je suis un bon débutant mais ça à l'air de fonctionner. Private Sub UserForm_Initialize() Dim Unique As New Collection Dim Unique2 As New...

Re : Problème sur listbox - Récupération valeurs cellules Bonjour, j'ai hésité au départ pour ne pas trop surcharger le post et préféré joindre le fichier excel, pour mieux comprendre le fonctionnement voilà les infos sur les listbox et sur mon tableau: * Dans la dernière colonne de...

Bonjour, je tente de mettre en place un alerte au démarrage de ma feuille excel sous la forme d'un USERFORM. ce USERFORM contient des listbox qui reprennent des infos de ma feuille de SYNTHESE, Je me suis largement inspiré du Tuto sur le site ...

Re : Problème Résultat - BOUCLE For avec doubles conditions en fouillant dans le forum j'ai trouvé une solution : If Cells(p, 8) <= CDate(Reponse1) And InStr(1, Cells(p, 28).Value, "Procédure terminée", vbTextCompare) Then Rows(p).Copy Destination:=Worksheets("ARCHIVE...

Re : Problème Résultat - BOUCLE For avec doubles conditions Merci à vous deux ça marche au top, Pourtant c'est étrange j'ai bien déclaré Reponse1 en tant que Date en début de fonction :confused: , j'aime bien comprendre ce qui cloche ça évite de refaire les mêmes bêtises. Sinon petite...

Bonjour, Ci dessous une partie du code d'archivage sur lequel je bosse : Sub Lancement_archiv() Dim Rep As Integer Dim Reponse1 As Date Rep = MsgBox("Lancement de la procédure d'archivaghe : voulez-vous continuez ?", vbYesNo + vbQuestion, "PROCÉDURE D'ARCHIVAGE !!")...

Bonjour, Je suis actuellement sur une fonction d'archivage de données dont voici une partie du code : Sub Suppression_trié_PT() Dim Rw As Range Dim Ligne As Long ActiveSheet.Select ActiveCell.SpecialCells(xlLastCell).Select Range(Selection, Cells(3...

Re : Suppression de ligne en fonction du critère #REF! Un grand merci je me suis tordu l'esprit pendant de longues heures en 23 min, la fonction est corrigée :) pour info voilà le code corrigé : Sub Nettoyage_SYNTHESE_1() Dim i As Long Bon_classeur...