Contenu récent par Claudinedu13

Super , merci à @Dranreb et @job75 pour vos réponses/solutions. 👍

Bonjour, C'est encore moi avec mes histoires de boucles Sub BoutonColonnesA() TabAcomptes = Feuil1.Range("A5:F" & Feuil1.Range("A" & Rows.Count).End(xlUp).Row).Value For i = 1 To UBound(TabAcomptes) If TabAcomptes(i, 2) = "D231201" Then MsgBox TabAcomptes(i, 1)...

Merci @jurassic pork

Bonjour @jurassic pork Super j'ai adopté ton 2ème code , j'aime bien la fenêtre qui s'ouvre avec la progression. J'ai une petite demande supplémentaire, je voudrais que DstCopie soit vidé de tous ces dossiers/fichiers avant d'y faire une nouvelle sauvegarde avec ton code ? Merci

Bonjour, il n'y a pas de changement , c'est bien comme ça que je mets ton code ou je me trompe ? Sub test() Dim racine$ racine = "C:\Users\" & VBA.Environ("USERNAME") & "\Desktop\Fournitures" Dim savedCalcMode As XlCalculation savedCalcMode = Application.Calculation...

Bonjour, Grâce à une solution donnée dans cette discussion https://excel-downloads.com/threads/comment-copier-tous-les-fichiers-dun-repertoire-et-de-ses-sous-repertoires-vers-un-dossier-unique.20032973/post-20385387 par @patricktoulon , je peux faire des sauvegardes de répertoires/sous...

Replace(ChaineComplète, ChaineDébut, "") convient mieux Merci

Bonjour @Dranreb ça m'extrait bien les caractères après le dernier \ de C:\Users\claud\Classeur\??????????????? mais la chaine à extraire est variable , et peut contenir d'autres \ C:\Users\claud\Classeur\??????\??????????\???? C:\Users\claud\Classeur\??????\?????\?????\??????????\?????

Bonjour, j'ai besoin de votre aide en vba chaine 1 = C:\Users\claud\Classeur\??????????????? Je cherche à extraire tout ce qui se trouve après chaine = C:\Users\claud\Classeur\ Merci

Super , merci beaucoup

Bonsoir @sylvanu Je vais encore abuser, comment obtenir le nombre de fois où on trouve D231201 dans la colonne Réf AV AC ? Merci d'avance , je dois chercher des heures pour trouver des trucs très simple comme ça...

Merci 👍

Super merci pour ton retour instructif

Bonjour @JM27 Merci pour ta réponse pour l'addition. Peux tu me dire à quoi correspond 2 dans "For I = 2" ?

Sub BoutonAddition() Dim fh As Worksheet, dico As Object Dim I& Set fh = Sheets("Feuil1") Set dico = CreateObject("Scripting.Dictionary") For I = 2 To fh.Range("A" & Rows.Count).End(xlUp).Row If fh.Range("B" & I) = "D231201" Then MsgBox fh.Range("F" & I) '...