| Date | Auteur du sujet | Sujet | Extrait du message |
|---|
| 01/08/2014 à 11:46 | Ludovic1988 | Vérifier si tableau VBA (array) est vide? | Nickel, ca fonctionne parfaitement. Merci... |
| 01/08/2014 à 11:26 | Ludovic1988 | Vérifier si tableau VBA (array) est vide? | J'essaye de coder un code qui vérifie si mon array est vide ou non. Voici mon essai: Mon tableau est déclaré comme ceci: Global TAB_Cost () Cette fonctionne mais renvoi comme valeur false alors que mon tableau est bien vide. J'imagine que je n'utilise pas la bonne procédure. Comment faut-il s'y pren... |
| 31/07/2014 à 11:34 | Ludovic1988 | Logo qui tourne sur lui-même? | Merci pour ces réponses très instructives. Malheureusement ca commence à être trop compliqué pour moi. Au moins je saurai comment m'y prendre si jamais je devais absolument le faire. Merci à vous... |
| 30/07/2014 à 15:49 | Ludovic1988 | Logo qui tourne sur lui-même? | Bruno M45, merci pour tes réponses. Mais je dois avouer que ca ne m'avance pas beaucoup. J'ai trouvé dans le forum des macros qui faisaient bouger des objets images mais rien qui les faisait bouger durant toute la durée d'utilisation du fichier excel. Connais-tu des macros qui pourraient correspondr... |
| 30/07/2014 à 14:17 | Ludovic1988 | Logo qui tourne sur lui-même? | Est-il possible via une procèdure sous VBA de faire tourner un logo sur lui-même? Au point de vue du code, je pense que c'est faisable en modifiant toutes les x secondes la largeur du logo. Mais je me pose plusieurs questions: est-il possible de faire tourner une sub indéfiniment (durant toute la du... |
| 28/07/2014 à 16:52 | Ludovic1988 | Function/procédure personnalisée avec arguments | Super, ça fonctionne. Un tout grand merci... |
| 28/07/2014 à 15:54 | Ludovic1988 | Function/procédure personnalisée avec arguments | Ok merci pour ces infos. J'ai testé et je pense avoir réglé le problème de l'appelle de la procédure personnalisée. Cependant, il reste une erreur quelque part. je m'explique: Voici mon code sans fonction personnalisée : Voici le même code mais avec la fonction (elles sont placées dans le même modul... |
| 28/07/2014 à 14:36 | Ludovic1988 | Function/procédure personnalisée avec arguments | J'essaie de coder une fonction/ procédure personnalisée avec des arguments. Il s'agit d'une function pour coller un contenu dans une feuille. Voci le code: Function Paste(Sheets, Start, Format, Link, DisplayAsIcon, NoHTMLFormatting) On Error GoTo errorhandler Sheets.Activate Start.Select ActiveSheet... |
| 25/07/2014 à 13:49 | Ludovic1988 | Problème de durée de copie de données dans un tableau Excel | Ok j'ai essayé avec les astuces et ca fonctionne super bien. Un tout grand merci pour ton aide... |
| 25/07/2014 à 13:21 | Ludovic1988 | Problème de durée de copie de données dans un tableau Excel | Super merci pour ces infos!!! J'adore apprendre des trucs qui me résumé 10 lignes de code en une seule Voici mon fichier en pièce jointe. Est-ce que la raison de la lenteur peut être, malgré l'instruction "Application.Calculation = xlCalculationManual", que la quantité d'information traitée est trop... |
| 25/07/2014 à 12:25 | Ludovic1988 | Problème de durée de copie de données dans un tableau Excel | Il n'y a pas de connexions externes ni de macro événementielle. Le code ci-dessus fait référence à des modules dont le module Screening. dans lequel se trouve la fonction qui pose problème. Voici le code la fonction Screening_TAB_SL1401_Bis: Function Screening_TAB_SL1401_Bis() For j = 1 To 36 For i... |
| 25/07/2014 à 11:54 | Ludovic1988 | Problème de durée de copie de données dans un tableau Excel | Apparemment, application.calculation =xlCalculationManual n'a pas d'effet sur les tableaux. Du moins c'est ce que j'en déduis suite à mes essais. Le problème reste le même. Voici mon code: Sub UnionBis() Application.Calculation = xlCalculationManual Application.ScreenUpdating = False If Sheets("SSRS... |
| 25/07/2014 à 09:38 | Ludovic1988 | Problème de durée de copie de données dans un tableau Excel | J'ai réalisé une macro qui copie des données d'une feuille et qui les copie dans un tableau excel se trouvant sur une autre feuille. Le problème se situe dans l'ajout des données dans le tableau. Je pense que le tableau se redimensionne à chaque fois que la macro copie une donnée dans une cellule. D... |
| 18/07/2014 à 14:47 | Ludovic1988 | Utilisation de Redim Preserve | Ok j'ai compris. Voici le code correct: Sub test() Dim h As Single, i As Single, j As Single, x As Single Dim TAB_Data() As Variant For i = 1 To 15 If Sheets("sheet1").Cells(i, 1) <> Empty Then x = x + 1 ReDim Preserve TAB_Data(1 To 2, 1 To x) For j = 1 To 2 TAB_Data(j, x) = Sheets("sheet1").C... |
| 18/07/2014 à 14:28 | Ludovic1988 | Utilisation de Redim Preserve | Merci pour la réponse rapide maisje suis toujours coincé. Voici le code midifié: Sub test() Dim h As Single, i As Single, j As Single, x As Single Dim TAB_Data() As Variant ReDim TAB_Data(1 To 2, 1 To 1) For i = 1 To 15 If Sheets("sheet1").Cells(i, 1) <> Empty Then x = x + 1 ReDim Preserve TAB... |
| 18/07/2014 à 13:36 | Ludovic1988 | Utilisation de Redim Preserve | J'expérimente la fonction Redim Preserve sans succès. Pour comprendre le problème, j'ai créé une petite macro qui utilise cette fonction. Le pricnipe est simple, je copie le tabelau de la sheet 1 dans un tableau VBA TAB_Data puis je le screen sur la meme sheet. J'ai une erreur type Run-Time error '9... |
| 11/07/2014 à 11:51 | Ludovic1988 | Run-time error '13' Type mismatch avec fonction vlookup VBA | Cette fonction est utilisée dans une procédure sub. J'utilise cette même fonction mais utilisant d'autres tableaux dans mon code. Donc je sais qu'elle fonctionne, que toutes mes variables sont bien déclarées. Col_index_num et Col_TAB_Data_Plus sont deux variables qui me permettent de sélectionner le... |
| 11/07/2014 à 09:36 | Ludovic1988 | Run-time error '13' Type mismatch avec fonction vlookup VBA | Je suis complètement bloqué par une erreur qui semble toute bête et pourtant impossible à résoudre. J'utilise cette fonction: '------------------------------------- Col_index_num = 2 Col_TAB_Data_Plus =9 Function Vlookup_Data_PlusToConnection1() For i = 2 To Last_line_Backlog Dim R As Variant R = Ap... |