Contenu récent par youguybass

Bonjour et merci pour vos recherches J'ai testé, cela fonctionne avec quelques ajustement à mon fichier. Merci

Bonjour à tous Je cherche à compter dans un dossier, le nb de fichier qui aurait les 12 premiers caractères identiques à une variable "NumCom" par exemple Dans le dossier (en image) ci-dessous en exemple je voudrais que si je faisait une nouvelle version de la OUT 2027-016, celle-ci soit...

Bonsoir et merci pour vos retour Les 2 codes que vous m'avez envoyés me donne satisfaction Merci pour vous retour. Cordialement

Bonsoir à tous Je souhaiterais par le code ci-joint, Vérifier si un dossier existe. S'il n'existe pas, il faut le créer et enregistrer un PDF à l'intérieur S'il existe il faut juste enregistrer le pdf Avec Dir(DosRacine & DosDépot) = "" Then ... Le code fonctionne quand le dossier n'existe...

Merci pour votre retour Slts

Bonjour Gege & Dranreb. Merci à tous les 2 pour votre retour. J'ai pu tester et c'est bon. Merci

Bonsoir En admettant que j'ai une variable A que je voudrais utiliser dans une boucle For Cette variable A, doit se balader sur les valeurs 1,2,6,8,9,15 ... bref des valeurs non consécutives Comment dire que A doit avoir toutes ces valeurs? Et comment faire la boucle ensuite? D'avance merci...

J'ai eu le même PB à mon travail j'ai fait le transfert de 64 bits à 32 bits → Ne fonctionne pas j'ai copier dans Système32 et Sywow64 un vieux fichier MSCOMCTL.OCX → Ne fonctionne pas J'ai alors changer mon paramètre active X en " Active tous les contrôles ...." et la cela fonctionne !!! enfin

Merci pour votre retour. Slts

Bonsoir à tous Quel est le moyen de joindre Textbox2 & textbox3 dans un range peut-etre Afin de vérifier s'ils sont <> de LCase(Feuil1.Cells(B, 3)) ou est-ce la fonction or est adaptée? If LCase(Feuil1.Cells(B, 3)) <> LCase(TextBox2) Or LCase(Feuil1.Cells(B, 3)) <> LCase(TextBox3) Then Slts

J'ai dû faire une manip sur le change du tbx 257 Private Sub TextBox257_Change() 'Tolal Achat ---------------------Ok D = 257 Me.Controls("TextBox" & D).Value = Format(Me.Controls("TextBox" & D), "###0.00€") Me.Controls("TextBox" & D).Value = Replace(Me.Controls("TextBox" & D).Value, ",", "."...

Bonjour à tous par ce code je cherche à comparer "Txt257" et ".Cells(Lag, C)" afin de me renvoyer une info s'ils sont différents. La comparaison marche si les chiffres sont entiers, par contre a partir du moment ou ce sont des nombres à virgules , si ces nombres sont identiques, cela me renvoi...

Merci Hecatonchire C'est cela que je souhaitais, ce matin en arrivant j'ai essayé .... WorksheetFunction.CountIfs(Range("A1:A6"), ">=" & Date(Annee, mois, 1) ... cela plantait du coup c'est bien ... DateSerial(intAnnee, intMois, 1) * 1 ... qu'il me fallait Désolé si je n'ai pas été assez...

Je souhaiterais une formule dans mon code vba

Bonjour J'ai intégrer votre code Hecatonchire J'ai un tableau qui se balade de 2012 → aujourd'hui ayant presque 4000 lignes, le code que vous m'avez envoyé me renvoyait toutes les fiches 2012 à 2025 enregistrées en novembre j'ai donc pris en compte les années sous la variable "An" avec la...