Inscription
9 novembre 2007
Dernière intervention
28 octobre 2011
Interventions
61
Site Web
http://amicro44.free.fr/
Signature

Extraction d'un chaine de caracteres [Résolu]

Bonjour à tous, Depuis quelques temps, je m'étais débrouillé tout seul, mais là je bloque depuis qq tps !... J'ai besoin de sortir ds une cellule un morceau de la chaine de caractère. J'extrais ds une cellule, en VBA, l'arborescent de l’explorateur sous la forme XX\YYY\ZZZZ."extension" Je souhaite extraire, par exemple l'expression ...

Variable dans adresse fichier [Résolu]

bonjour, Un petit souci de variable. Ci-dessous j'ai un souci en intégrant "choix" ds l'adresse de Dir. Comment peut on intégrer cette variable dans ce cas : Private Sub OK_Click() Dim MyFile As String Dim i As Integer Dim choix As String i = 1 choix = ComboBox1.Value MyFile = Dir("D:\VBA_Husse\MOIS & choix & 2010\*.xls") ...

Fonction numero du mois

Bonjour à tous, je souhaite récupérer dans une variable le numero du mois d'une cellule date ("G9") dans mon cas. j'ai essayé ça, mais bien sur, ça passe pas !! mavariable = Range("G9").Month(dates) + 1 QQ à une idée ? merci à la communauté...

Importer une valeur cellule d'un classeur vers un autre

Bonjour, J'ai fait (ci-dessous) un code ouvre une série de classeurs et de feuilles de ces classeurs pour m'importer en listing les valeurs de certaines cellules. Là ou ça bloque c'est à la ligne : "Workbooks("Import.xls").Sheets("Val").Cells(f, 1)= Workbooks("classeur").Sheets("k").Cells(Q9).Value" QQ'1 à une idée, je pense que c...

Vérifier si pas de filtre actif [Résolu]

Bonjour à tous, Je n'arrive pas à trouver en VBA le code qui vérifie si un filtre de colonne est actif. Pour tous les enlever pas de pb, mais si je fais ActiveSheet.ShowAllData et que je n'ai pas de filtre actif il me met une erreur. J'aimerais l'éviter. Merci de vos réponses, Zeps ;-))

Transformer un texte (adresse) en lien hypertext

Bonjour à tous, je souhaiterais connaître un bout de code pour transformer, après l'avoir importer, l'adresse d'un fichier en lien hypertext. Par exemple, texte ds la cellule : V:\Hors Contrat\Devis\2010\XXXXXX.doc Le transformer en lien ==> clic ouvre le fichier Zeps

Enlever ou mettre la protection sur des feuilles xls [Résolu]

Bonjour, Je me suis fait une petite procédure qui enlève ou met la protection sur des feuilles de classeurs. Mon seul problème, c'est la lenteur de la procédure qui ouvre les fichiers, prends toutes les feuilles une à une, referme le classeur et prends le suivant. Globalment, la pocédure réalise plus rapidemment ce que je ferais à la...

Editer le listing des fichiers d'un dossier. [Résolu]

Bonjour, je recherche le code pour m'extraire ds une feuille xls, le nom des fichiers d'un dossier. J'ai trouvé ce code et je n'arrive pas à l'adapter pour mon appli. Je n'arrive pas à maîtriser les boucles. Sur ce code, c'est une msgbox qui s'affiche. C'est exactement cette info qu'il me faut, mais ds un listing de données, une l...

Mon code est trop lent [Résolu]

Bonjour à tous, Voici un code qui fonctionne Le seul problème est sa lenteur. dans ma feuille xls j'ai environ 5000 lignes. Le tps de l'exécution est d'environ 10 secondes (c'est trés long !!) 1°) Contrôle des filtres 2°) remplissage des cellules avec l'Userform1 3°) je vide l'userform La vraie lenteur est dans le remplissa...

[déplacé VB.NET -> VBA] Revoie un format texte [Résolu]

bonjour à tous, G juste un p'tit pb avec ma textbox : elle me renvoie ds la cellule désirée un format texte alors que je souhaiterais un format numérique : Sub CommandButton1_Click() Dim TextBox1 As Currency ./..... ActiveCell.Offset(0, 7).Value = credit "credit" étant ma textbox1. Qu'elle manip pour retrouver ds ma cel...

Nommer une variable de recherche

Bonjour, Toujours un peu débutant avec VBA, je souhaite nommer une variable pour la réutiliser en fin de procédure. Voici mon code : Sub CommandButton2_click() Dim num2 As Integer Dim celluletrouvee As Range Dim ligne As Integer Dim col As Integer num2 = TextBox_valeur.Value celluletrouvee = ?????? ...