Résultats de la recherche

  1. L

    Question général sur une sub

    Bonjour a tous, Je travail actuellement avec un programme de dessin nomé Inventor. Celui ci a un interface vba, mais malheureusement il n'y a pas de fonction prédéfinie comme dans excel, ex: sub sheetchange Donc ma question est: est ce que je peux fabriqué moi meme ce genre de fonction...
  2. L

    Information système

    Bonjour tout le monde, Est ce que quelqu'un connaitrait une commande vba qui me permetrait de mettre dans une cellule excel le nom de la machine qui a imprimer la feuil. Genre, range("F15") = system.variable.thismachine.value Merci pour votre aide ^^
  3. L

    Sub d'initialisation

    Bien le bonjour a tous, connaitrier vous une sub qui s'active toute seul a l'ouverture du fichier excel car j'ai une liste box qui rétrécis a chaque ouverture de programme, je l'ai mis en lock mais elle bouge quand meme. Dans ma procédure d'initialisation je compte mettre un truque du genre...
  4. L

    Problème de réglage excel

    Bonjours, en aillant chipoter dans une des option dans le menu "Donnée", il y plein de petit carré bleu que je n'arrive plus a faire partir. Voici un Screen shoot, quelqu'un pourrait m'éclairer svp.
  5. L

    Concour d'optimisation

    Bonjours tout le monde j'espere que vous aller bien? Je voulait savoir si une bonne ame pouvait arriver a optimiser ce petit programme, je sais que je devrait utiliser une boucle mais il faut changer la maniere de programmer je crois et je ne vois pas comment. C'est en faite un programme...
  6. L

    Ouvrir un fichier avec un boutton.

    Bonjour a tous, j'airmerais simplement ouvrir une fenetre d'un dossier spécifier sur mon disque dur quand je click sur un boutton dans ma feuille excels. Une idée? Merci d'avance.
  7. L

    Message erreur: "Memoire insuffisante..."

    Edit: Bien le bonjour a tous chère excel downloader, Voila j'ai ce message: Memoire insuffisante pour afficher en entier. Il ne me semble pas avoir fait d'erreur dans mon programme, pourrier vous me dire d'ou cela peut bien venir en général? Merci
  8. L

    Problème de casting?

    Bonjours a tous, est se que quelqu'un peu me dire pourquoi me résutat est tronqué: Worksheets("Feuil1").Range("U" & 24) = CSng(Replace(Replace(LabelDG6.Caption, "Ø", ""), ".", ",")) + CSng(Worksheets("Feuil1").Range("U" & 25)) Espion: fichier attacher En tout les cas le résulat est...
  9. L

    Fonction range

    Bonjour, j'ai une quesion qui peut parraitre simple mais bon, Voici: j'aimerait faire une boucle pour copier des information d'un tableau a l'autre. C'est a dire mettre en forme une collone dans la feuil 1 la bonne ligne d'un tableau qui se trouve dans la feuille 2. J'ai quasi deja...
  10. L

    Conseil d'Optimisation

    Bien le bonjour a tous, Je me demandait quel elle le code le mieux optimiser quand ont veut faire beaucoup de comparaison, j'ai trois solution: Function correspondanceDN(DN As Single) As Byte Dim i As Byte Dim j As Byte j = 14 If (DN = 0.5) Then i = j ElseIf (DN = 0.75) Then i = j +...
  11. L

    Fonction Range

    Bonjour, J'aimerait utiliser la fonction range comme suite: Private Sub miseajour() Dim DN As Single Dim IX As Integer DN = CSng(ComboBoxDN.Value) IX = CInt(Replace(ComboBoxIX.Value, "IX", "")) LabelHG4.Caption = Worksheets("Feuil2").Range("P" & DN) En faite la valeur de...
  12. L

    Mettre un Label Vertical

    Bonjours, Je travaille avec excel 2003 sp3 Je voudrais mettre un label en position vertical dans ma feuille, en faite c'est pour mettre une valeur de dimention sur un dessin. Mais je ne trouve pas de solution, est es que quelqu'un pourrait m'aider? D'avance merci Lumi
  13. L

    Radio button

    Bonjour, j'aimerait utlisier des radio boutton dans ma feuille mais je ne sais pas si ma technique est la meilleur. Quand je click sur une bouton, il y a un espece de phénomène "parasite" qui fait vibrer celui ci avant qu'il ne se mette en place. et cela ne se passe que quand j'ajoute les...
  14. L

    Division par zero lors d'un changement de couleur

    Bonjour, J'ai un bug division par zero quand mon programme arrive a un test ou il ne fait que changer la couleur de ma combo box. Est ce que quelqu'un peut m'expliqué se fénomène? Voici mon code: Private Sub ComboBox4_Change() Dim a As String Dim b As Double a = ComboBox4.Value If...
  15. L

    Tester si une variable est numérique.

    Bonjour, Voila je n'arrive pas trouver une facon de tester si la variable encoder dans une combobox est bien numérique. voila mon petit morceaux de code: Private Sub ComboBox1_Change() Dim a As String Dim b As Double a = ComboBox1.Value If ComboBox1.Value Is Nothing Then Exit Sub...
  16. L

    Mini Bug sur excel downloads

    Salut, la large pub juste en dessous des menu "tab de bord, faq, membres, cal..." m'enpeche de voir la fenetre recherche 9 fois sur 10 sa fait sa chez vous? Chez moi elle apparait sous la pub:(
  17. L

    Problem de tab index

    Bonjour, j'utilise excel 2003 sp3 et j'ai mis des combobox dans mon fichier excel mais je ne trouve pas la propritét tab index pour passer d'un combo a l'autre sans utiliser cette satanée souris. Je me demandait donc comment arriver a faire quelque chose, est ce qu'il faut analyser la...
  18. L

    Activation d'image a partir de cellules

    Bonjour, J'aimerait activer une image en fonction de la valeur d'une cellule. Si cette valeur est égale a 0 une image apparait, si elle est égale a 1, l'image disparait et c'est une autre image qui apparait. Je ne vois rien qui puisse m'aider dans l'aide excel, alors je me dit que la seul...
  19. L

    Sélection d'une ligne parmis des tableaux

    Bonjour, J'aimerais automatisé une tache. Celle d'aller rechercher des valeurs dans différents tableau. Je travaille avec un logiciel de dessin qui veut bien prendre des valeurs dans des cellules fixes. Il faudrait donc que par 2 cellules de spécification j'arrive a copier la ligne concerné...