Contenu récent par Bens7

Merci mais cela ne m'aide pas vraiment comme spécifié dans mon post je suis novice et donc je peux adapter le présent code .. mais l’écrire impossible ...

Bonjour a tous !! Alros voila j'ai trouver sur le net (je suis novice) 2 code ( voir ici bas ) pour Uploader sur mon ftp : Un qui Upload un fichier spécifique Un autre qui Upload tout les fichiers contenu dans un dossier spécifique p.s c'est 2 codes marche a la perfection et après plusieurs...

Bonjour a tous ! Besoin de vos lumières (sinon je finis en 2020 ... loll) - Collone A : des codes postaux (nmb de commande par code) - Une carte... et des textbox dessus (nomme suivant le code postal pour ne pas embrouiller) Je souhaite en un bouton afficher sur la carte ne nmb des commandes...

Ptit up ?

P'tit up?

En fait c'est plus ça (ci joint) On cherche plus la valeur dans les colonnes on cherche une seul dans la combobox1 le dossier contenant les #.TXT a calculer reste le même cependant et le nmb de fois existant est affiche dans la textbox1

Magique ... ! Je garde précieusement ce code ! Bon peut être que j'abuse (en fait j'ai essaye seul c’était un carnage !) : Si je souhaite effectuer ce même caclul mais sur une seul valeur a recherche dans une Userform1.Combobox1 > Total affiche dans Userform1.Textbox1 ... pourriez vous m'aider...

Ha heureusement que j'ai demander ! Du coup je viens de m'apercevoir d'un problème, mes cellules ne comportent en réalité pas des noms de fruit mais des nom de Ville ... du coup il y a effectivement des villes avec un espace : par exemple : Les Paccots Du coup ça ne marchera pas ? je peux...

Désolé ! Ça marche aussi !! Merci !!!!! Pourriez vous juste m’éclairer pourquoi ça marche lolll (comment il sait quand c'est une colonne a mettre les nombre et une colonne de texte...)

Holala magnifique juste un petit souci dans votre précédent code : Sub majlegume() clearlegume ' efface les collones nombre rep = "D:\MON DOSSIER\RESEAUX\EN COURS\" fichier = Dir(rep) Do While fichier <> "" tx = Left(fichier, Len(fichier) - 4) For k = 1 To Len(tx) If Not IsNumeric(Mid(tx...

Bonjour à tous je possède un code qui fonctionne parfaitement afin de créer une page HTML à partir d'une plage : Sub HTLMVILLE() Sheets("LIGNE").Activate With ActiveWorkbook.PublishObjects.Add(xlSourceRange, _ "D:\MONDOSSIER\RESEAUX\HTML\VILLE.htm", "VILLE", "$A$1:$P$1002", _...

Merci mais j'ai : Erreur de Syntaxe : C.Offset(0, 1))=replace(C.Offset(0, 1),"(" & n & ")","(" & n+1 & ")")

On peux pas juste readapter le Macro suivant : Sub majlegume() rep = "D:\MON DOSSIER\RESEAUX\EN COURS\" fichier = Dir(rep) Do While fichier <> "" tx = Left(fichier, Len(fichier) - 4) For k = 1 To Len(tx) If Not IsNumeric(Mid(tx, Len(tx) - k, 1)) Then tx = Left(tx, Len(tx) - k) Exit For End...

L'indice n'appartient pas a la selection : If T(i, j) <> "" Then Mon fichier test est dans : D:\MONDOSSIER\SOUSDOSSIER\test.xlsm Mes fichiers text sont dans : D:\MONDOSSIER\RESEAUX\EN COURS\