Profil de kalobit - CodeS SourceS

arrondir au demi point près [Résolu]

Bonsoir, je cherche une marco sousVBA qui me permette d'arrondir toute une colonne à 0,5 point près je ne veux pas le faire à parir d'Excel merci pour votre réponse

Juste pour info, c'est faisable à partir d'Excel avec une fonction méconnue qui est arrondi.au.multiple(valeur, multiple) @++ [mailto:K@lobit K@lobit] < Ne pas clicker ici Mon Site < Mais ici

pb de sauvegarde fichier xls [Résolu]

salut! je n'arrive pas à sauvegarder mon fichier xls que je viens de charger de données qui viennent d'un userform. en fait, j'ai deux classeurs ouvert. dans le premier je remplis un userform, et ces données vont dans un fichier xls(numero 2) au bon endroit. le seul hic, c'est que lorsque je seuvegarde ca me sauvegard mon fichier 1 e... Lire la suite

Salut, Comme tu attribue une variable au classeur actif, tu peux le faire pour un classeur que tu ouvre : Dim oWB_open as Workbook set oWB_open=workbooks.open(nom_de_fichier) et ensuite oWB_open.save voilà, @++ [mailto:K@lobit K@lobit] < Ne pas clicker ici Mon Site < Mais ici

Cellule active

Bonjour, j'ai un petit problème que je n'arrive pas à résoudre. Voilà, j'ai une macro qui utilise la cellule active et qui fait son traitement en fonction de la cellule qui est active. Le problème est que le résultat du traitement n'est pas celui que j'attends : il semblerait qu'une autre cellule est selectionnée et du coup le traite... Lire la suite

Au risque de me répetter, c'est pas beau les sendkeys. jette un oeil à Ton précédent post pour trouver une méthode plus propre. De plus, tu peux éviter tes boucles de recherche d'adresses en utilisant simplement la fonction recherchev à partir de vba : adresse = application.worksheetfunction.vlookup(nom,plage,numcolonne,valeur_a...

CODE VBA EXCEL LISTER FICHIERS DANS COMBOBOX

Bonjour à tous, Je galère depuis deux jours. Voici mon problème. J'ai un Userform avec 2 combobox. Le premier me liste tous les répertoires et sous répertoires. Je voudrais que par sélection d'un répertoire ou sous répertoire dans le premier, le second génère automatiquement tous les fichiers présents dans ce répertoire ou sous réperto... Lire la suite

et voilà, on est pressé d'avoir la réponse et on dit même pas merci !!! [mailto:K@lobit K@lobit] < Ne pas clicker ici < Mais ici

VBA Excel, Modifier le code d'un fichier Excel fermé

Programmeur du jour, Bonjour! Après avoir cherché partout si mon probleme avait déjà été renconté, je dois faire appel à vous ( car apparement le sujet n'a pas été abordé!) My problem: Je suis sur le code du fichier Excel "classeur1.xls", j'aimerais allé sur le code du fichier excel "classeur2.xls", sans l'ouvrir ( ou si il fo l'o... Lire la suite

Salut, la collection VBProjects appartient à VBE et non à l'objet workbook pour trouver le bon vbproject, tu dois boucler sur la collection VBprojects de l'objet VBE. Par exemple : dim MyWbk as workbook set MyWbk = workbooks.open("c:\classeur2.xls") for each VbProj in application.vbe.vbprojects if vbproj.filename = my...

Coller un texte

Bonjour, quelqu'un sait-il comment faire pour : - j'ai un texte en mémoire (Ctrlc-c) // C'est fait - je souhaite le coller dans le corps d'un mail Outlook // A faire Ce mail est déjà ouvert, c'est la fenêtre Outlook en cours. SI vous avez une simple idée sur la manière dont je dois procéder, merci de m'en faire part Voilà mo... Lire la suite

Salut, Voici comment contrôler word depuis outlook pour ouvrir un document, en copier le contenu, le fermer et quitter word il ne te restera qu'à coller le contenu du presse papier dans ton mail. Je ne connais pas les méthode d'outlook, mais en testant dans excel avec activesheet.paste, je récupère bien le contenu dans ma feuille. ...

Incompatibilité de type!! [Résolu]

voila mon probleme, tout ce que je veut faire c'est afficher des ligne d'une table, j'ai inseré ce code la : Dim ligne As New ADOB.Recordset Set lignes = curentDB.OpenRecordset("Select * from Niveau where niveau=1", dbOpenDynaset) lignes.movefirst do while ligne.EOF = FALSE 'mes operations loop la il m'affiche: Erreur ... Lire la suite

Salut, Regarde un peu mieux la déclaration de tes variables : Dim ligne as New ADOB.Recordset et ensuite set lignes =curentDB.OpenRecordset("Select * from Niveau where niveau=1", dbOpenDynaset) pas étonnant qu'un variant soit icompatible avec un objet. Parfois la solution est sous nos yeux, rajoute un s à ligne dans ta ...

Effacer contenu combobox [Fermé]

J'ai des comboBox dont j'ai rentrée une liste de valeur qui s'affiche des que j'active le userfom. J'ai rentrée valeur par valeur: ComboBox8.AddItem "Aucune" ComboBox8.AddItem "0,4" ComboBox8.AddItem "0,9" ComboBox8.AddItem ">0,9" Alors quand je lance la première fois le userfom tout ça fiche. Ensuite si je veux cacher le userform (... Lire la suite

Salut L'évènement Load c'est en VB pour une Form. En VBA on utilise l'évènement Initialize, ce qui donne Private Sub UserForm1_Initialize() Charger_Combobox ' appelle la macro de chargement des combobox En sub Et voilà Pour revenir sur l'utilisation de Me, sache que Me représente l'objet contenant le code. En VBA, on le lim...

VBA Excel - Fond de page [Résolu]

Bonjour! Je recherche en ce moment le moyen (macro), lors de la création d'une nouvelle page, de faire en sorte que cette dernière prenne le même fond de page qu'une page modèle. Je cherche à faire cela car jusqu'à présent ma macro assignait comme fond à cette nouvelle page l'image qui se trouvait dans tel dossier etc. Mais ainsi, ... Lire la suite

Cool, Content d'avoir pu t'aider. Juste en complément, tu peux lancer ta procédure de mise en place de l'image depuis cet évènement dans l'objet ThisWorkbook : Private Sub Workbook_NewSheet(ByVal Sh As Object) Dim MyPict As stdole.IPictureDisp Set MyPict = UserForm1.Imagelist1.listimages(1).Picture stdole.SavePictur...

Salut, As tu essayé en faisant une copie de la page modèle qui contient le fond ? Sinon, il y a moyen de stocker l'image dans un userform pour l'appliquer en fond sur une feuille. Le principe est simple et doit pouvoir être amélioré Sur un userform, on place un control image. On charge l'image dans le control. ensuite, on ...

utilisation de FORMAT()

j'ai développé une application (excel) avec une maccro qui utilise la fonction FORMAT()... celà fonctionne sur ma machine, mais pas sur la machine de l'utilisateur ; erreur "bibliothèque absente"... pourriez-vous m'apporter une solution (nom de la .dll manquante ??).... merci d'avance

Salut, Je pense que tu devrais regarder du côté des références du projet. dans VBE outils / Références Tu dois en avoir une manquante. Parfois, le simple fait de décocher la référence manquante résoud le problème, sinon, il faut réinscrire la dll avec regsvr32 ou trouver un équivalent, la même dll mais version différente ne sera ...

Sécuriser des macros [Résolu]

Hello J'ai à ma disposition un grand nombre de macros, pour éviter tout ennuie ou pire, refaire ce qui a été fait...j'aimerais les protéger (les rendre inaccessible). Comment faire svp? D'avance merci

Salut, Tu peux les placer dans une macro complémentaire que tu protège avec un mot de passe. Copie toutes tes macros dans un classeur. Enregistre le en tant que macro complémentaire (.xla) ensuite dans vbe, retrouve ton projet et va dans les propriétés. Là, tu n'as plus qu'à choisir "verrouiller le projet pour l'affichage" et c...

lien entre les coordonnes de cellule

Bonjour, DAns excel vba je ne comprends pas bien le lien entre les differentes denominations de coordonnées de cellule je voudrais calculé des moyennes de colonne qui s affiche 2 lignes apres la fin de mon tableau etj'étends cette formule sur 4 colonnes j arrive a recupérer le numero de la derniere ligne (LastRo... Lire la suite

Salut, Tu as passé des variables VBA dans la formule et non leur valeurs, ce qui ne te fournira pas le résultat escompté. il faut remplacer cette ligne ActiveCell.Formula = "=AVERAGE(cells(4,21):cells (LastRow, 21))" par ActiveCell.Formula = "=AVERAGE(" & cells(4,21).address(0,0) & ":" & cells (LastRow, 21).address(0,0) &...

Mot de passe oublié

Bonjour , Excusez moi mais est - ce qu'il est possible de retirer la protection d'une feuille Excel autrement car j'ai oublié le mot de passe !

Salut, Tu peux essayer d'exploiter une faille de sécurité d'Excel en écrasant le mot de passe actuel par une chaîne vide. C'est pas dit que ça fonctionne avec toutes les versions mais ça coûte rien d'essayer. Sub Déprotégerlafeuille() On Error GoTo errmag With ActiveSheet .Protect vbNullString, , , , , , True .Protect vb...

Excel ScreenUpdating [Résolu]

Salut, J'utilise une xla dans laquelle j'ai mis une palette de fonctions que j'utilise tres souvent. Je voudrais en rajouter une ou je desactive ou reactive, a la demande, le ScreenUpdating de Excel sur le classeur actif. Sub SubScreenUpdate() If ActiveWorkbook.Application.ScreenUpdating = True Then ActiveWorkbook.Appli... Lire la suite

Salut, C'est le comportement normal avec le screenupdating. tu ne peux figer l'écran que pendant l'execution d'une macro. Du reste, figer l'écran en permanence n'a pas grand interêt. @+++ [mailto:K@lobit K@lobit] < Ne pas clicker ici Mon Site < Mais ici

msoControlButton onaction

Bonjour, j'essai de créer dynamiquement des boutons dans une barre d'outil personnelle d'outlook en attribuant une macro à la propiété onAction. La macro s'excecute lors de la création du bouton mais pas lors d'un click sur celui-ci. Avez vous déjà rencontré ce problème? Quel est le remède? Merci. Arsouille 60 Li 202 Lire la suite

Salut, Peux tu nous mettre le code de création de ton bouton avec l'affectation des différents propriétés. L'erreur viens certainement du fait que tu as mal saisi la propriété onaction. Par exemple, si tu écrit .onaction : call mamacro mamacro est appelé lors de la création et aucune valeur n'est affecté à onaction, du fai...

Gestion d?autorisations

Bonjour à tous, Je dispose d’un programme en vba que j’ai développé pour mon entreprise. Je souhaiterais y intégrer une gestion des mots passe par le biais d’une feuille excel qui se trouve sur le réseau. Je dispose d’un moteur de recherche sur une page excel. Cette interface me permet... Lire la suite

Salut, Avant d'effectuer ta recherche, il faut ouvrir ton classeur : dim m as workbook set m = application.workbooks.open( "D:\documents and Settings\CMLGAT1\Desktop\gestion des mots de passe.xls") Set Rech = m.Worksheets("feuil1").Range("utilisateurs").Find(Utilisateur.Text, LookIn:=xlValues) avec app...

probleme de sauvegarde vba excel

Salut a tous!! J'ai un petit probleme de sauvegarde d'un classeur que j'ouvre avec vba excel, je créé une nouvelle feuille tous se passe bien mais lorsque je sauvegarde ma nouvelle feuille a disparu mon code est le suivant Public Function Generer_bilan(station As String) Dim Classeur_bilan As Workbook Set Classeur_bilan = Workbooks.... Lire la suite

Salut, Je suis completement d'accord avec Mortalino sur l'utilisation d'une procédure. Toutefois, le paramètre ByVal ne me semble pas utile ici étant donné que la variable station ne subit aucune modification. En revanche, après avoir testé ta fonction, je suis dans le regret de te dire qu'elle fonctionne sans souci aucun. Vérif...

Problème passage d'un tableau comme paramètre d'une fonction

Bonjour, J'utilise VBA sur Excel 2000, et dans ma macro, je dispose de tableaux de String que je voudrais trier. Dim tab(),tab1() as String Redim tab(0), tab1(0) 'Je remplis mes tableaux en parcourant les cell de la feuille cible Tri(tab) Tri(tab1) A l'appel de la fonction Tri, il y a une erreur de compilation me disant: ... Lire la suite

salut, Tu utilise Tab() pour déclarer ton tableau or Tab() est une fonction intrinsec à vba. remplace donc Tab() par Tab2() et suit les instruction de jinh68. Le byref est obligatoire pour que les changements soients effectifs sut tab1 et 2 et non seulement sur tabl ( par défaut byval prévaut dans un passage d'arguments) @ +...

EXEMPLE D'AFFICHAGE D'UN GRAPHIQUE, DANS UN USERFORM, POUR VBA EXCEL

/source/37702-exemple-d-affichage-d-un-graphique-dans-un-userform-pour-vba-excel

Salut. Effectivement, l'exportation du graph en fichier graphique est à ma connaissance la seule solution pour afficher un graph dans une form. Par contre il existe d'autres formats possibles que le GIF, à savoir JPEG, TIF et PNG. Merci pour cette source +++ K@lobit