Résultats de la recherche

  1. A

    Optimisation macro - enlever code HTML

    Bonjour, J'ai réalisé (merci JNP) une macro permettant d'enlever correctement le code HTML d'une plage de données. Je parcours un tableau html regroupant les eventuels bout de code à enlever et je boucle sur ce tableau. Pour l'optimiser, je souhaiterais vérifier que les cellules du...
  2. A

    Retirer code HTML des cellules - expression régulière

    Bonjour, J'ai fait une macro permettant de retirer les balises HTML des cellules. Malheureusement, je n'arrive pas à retirer des bouts de code HTML du type ⁢ & $nbsp; Le pattern pour retirer ces morceaux de code est fait, mais le problème vient de la phase de test. Voici le code...
  3. A

    Récupération valeur checkbox, nom du contrôle

    Bonjour, J'ai une question toute bête mais je n'arrive pas à récupérer la valeur d'une checkbox lorsque je la sélectionne. J'ai insérée une checkbox, le titre de celle ci apparait comme 'Case à Cocher 1'. Je lui affecte une macro nommée CaseàCocher1_Clic(). Dans cette fonction, j'ai testé...
  4. A

    Créer classeur excel, le sauver, le fermer, et le réouvrir manuellement

    Bonjour, lorsque je crée une macro me permettant de créer un classeur excel et de le sauver et de le fermer. Quand j'essaye de le réouvrir manuellement, un message d'avertissement apparait me disant que le format du fichier est différent de celui indiqué par l'extension. Savez vous où est...
  5. A

    Informations, insertion de Oracle.DataAccess.dll dans vbal

    Bonjour , Je souhaiterais mettre en application le tutorial suivant pour la connexion à une base de données ORACLE: How do i Read Write Oracle CLOB data in ASP.NET or VB.NET ? « .NET Interview Questions Après avoir récupéré la DLL souhaitée : Oracle.dataaccess.dll , j'ai essayé de...
  6. A

    Retourner un tableau de string via une function - variables globales

    Bonjour, Peut-on retourner un tableau de string avec une fonction dans une macro excel Voici le code : Private Function test() 'Accéder aux 4 variables de la fonction IndexFDMTITLE_DSSTEPORDER' test = IndexFDMTITLE_DSSTEPORDER() MsgBox LastCol End Function Public Function...
  7. A

    Validation formule excel de dernière ligne non vide

    Bonjour, Je voulais savoir si il existait une formule plus simple et moins coûteuse en ressource que celle-ci, pour trouver la numéro de dernière ligne non vide dans la colonne A de ma feuille : =LIGNE(INDEX(A1:A200;MAX(LIGNE(A1:A200)*NON(ESTVIDE(A1:A200))))) Les valeurs ne sont pas...
  8. A

    Application d'une MFC + plage nommée

    Bonjour, Je cherche à colorier en bleu les cellules de la colonne 1 onglet Feuil1, lorsque la cellule étudiée de cette colonne possède la chaine de caractère présente dans l'onglet Feuil2 colonne 1. La MFC fonctionne pour des lettres simples, avec le code suivant ...
  9. A

    Extraire le nom d'une table SQL dans une chaine de caractère - fonctions Excel

    Bonjour, J'essaye de trouver une formule excel générique qui me permet de récupérer le nom d'une table SQL présente dans une requête. J'ai réalisé une formule qui me permet de la récupérer lorsque le mot FROM et le mot WHERE sont présents dans la requête. Lorsque WHERE est absent, je ne...
  10. A

    Fonction excel RECHERCHE

    Bonjour, J'aimerais rechercher, pour les 3 premieres cellules de la colonne A de l'onglet "Feuil1", si ces valeurs sont présentes dans une plage de cellule située dans l'onglet "Feuil2" de la colonne A. Si la valeur est trouvée, j'aimerais retourner une valeur par exemple TRUE, et FALSE...
  11. A

    Eliminer un caractère spécial dans une feuille excel

    Bonjour, j'aimerais éliminer un caractère spécial dans une feuille excel en utilisant la fonction suivante : Sub test() For i = 127 To 255 'à adapter Cells.Replace Chr(i), "", xlPart Next i End Sub Le caractère special est un carré avec un point d'interrogation à...
  12. A

    Traitement des cellules non trouvée par la méthode find()

    Bonjour, J'ai réalisé une macro qui cherche l'entité "FDM" dans la colonne F de la feuille 1. Certaines de ces cellules ne possède pas cette entité. Je voudrais effectuer un traitement sur les lignes de ces cellules de la même manière que celles que find() m'a permis de séléctionner. Le...
  13. A

    Utiliser la méthode Find sur l'active Cell

    Bonjour, Je souhaite utiliser la méthode find sur la cellule active dans une boucle pour récupérer la chaine de caractère "FDM" suivi des 5 chiffres situés après. Dans l'exemple, je souhaite récupérer FDM37552 J'utilise le code suivant : Sub recherche() entité = "FDM" Set c =...
  14. A

    Supprimer tous les onglets sauf le premier

    Bonjour J'ai réalisé la macro excel suivante, qui est supposé me supprimer tous les onglets sauf le premier Sub SupprimerOnglets() Dim sh As Worksheets 'Supprimer les onglets du fichier sélectionné sauf le premier' For Each sh In Sheets If sh.Name <> "Feuil1" Or...
  15. A

    Exécuter une macro sur un fichier que l'utilisateur charge, via un bouton

    Bonjour, J'ai réalisé une macro que j'aimerais appliquer sur le fichier excel que l'utilisateur choisit, en cliquant sur un bouton. Ma macro FormatTestCase() n'est pas reconnu dans le code du bouton: 'Sub Test2() ' Application.Dialogs(xlDialogOpen).Show 'End Sub Sub...
  16. A

    Script de fusion de cellules identiques sur une colonne

    Bonjour, J'ai réalisé la macro suivante qui marche presque .. Sub FusionneCelluleIdentique() Application.ScreenUpdating = False Dim lastcell As String Dim tableau() As String, tableauligne() As String Dim i As Integer i = 1 lastcell = False With...
  17. A

    Aide avec l'objet dictionnary

    Bonjour, Je souhaite utiliser l'objet dictionnary pour enlever les doublons dans une liste. Cette liste est présente dans l'onglet "Feuil2", et j'execute le script sur "Feuil1" Je souhaite obtenir le resultat sur une range différente de la range que je parcours. J'ai réalisé le...
  18. A

    Amélioration algorithme détection de doublons

    Bonjour Jai codé une fonction me permettant de détecter les doublons dans une fonction : Sub detecterdoublons() Dim release_tab() As String, release_tab2() As String Dim version_nb As Integer version_nb = 1 lastcell = False With ActiveSheet.Range("A1:A65536").Select Do While...
  19. A

    Problème algorithme de séparation des données en onglet

    Bonjour, J'ai réalisé un algorithme qui permet de séparer les données présente dans la feuille "Feuil1" en onglet à chaque changement dans la colonne "F" , par exemple si la colonne F contient AAAABBBAAAAA, il y aura deux onglets "A" et "B", chaque onglet regroupant toutes les lignes ayant A...
  20. A

    Stocker des valeurs dans un tableau à dimension dynamique

    Bonjour, J'ai réalisé une macro qui parcours des valeurs dans une colonne d'une feuille, je voudrais stocker certaines de ces valeurs dans une Range ou un tableau de manière dynamique. Le code utilisé est le suivant : Sub LireFichier3() Application.ScreenUpdating = False...