Résultats de la recherche

  1. Y

    Microsoft 365 Comment extraire différentes occurrences d’un caractère dans un texte ? (Maximum consécutif, dernier consécutif, nombre de blocs)

    Bonjour, Je cherche une façon d’extraire trois type de données dans une chaîne de texte similaire à celle ci-dessous (par exemple ce sont les 1 qui m’intéressent): Je cherche: Le nombre maximum de 1 consécutifs. Dans l’exemple ci-dessus cela devrait retourner 5. Le nombre de blocs de 1 (1...
  2. Y

    XL 2013 [RESOLU]Run-time error '91' - Object variable or With block variable not set

    Bonjour à tous, Je sèche complètement sur cette erreur car il me semble que tout est bien déclaré et que la macro marchait il y a quelques jours encore... La ligne qui plante est la première du bloc With, avec le r = (Je l'ai mise en avant avec ***) Option Explicit Private Sub...
  3. Y

    XL 2013 Problème gestion erreur dans boucle

    Bonjour, Je m'arrache les cheveux avec une gestion d'erreur en If/Then/Else J'aimerais que s'il ne trouve pas le fichier demandé, il passe à l'incrémentation suivante... or si je fais ça, j'ai une "Compile Error: Next Without For" alors que j'ai bien un For lié à ce Next... Private Sub Test()...
  4. Y

    Cacher barre jaune 'Lecture Seule' à l'ouverture

    Bonjour, J'aimerais qu'à l'ouverture de mon fichier la barre jaune "Lecture Seule" (image) ne s'affiche pas si je suis en lecture seule. J'ai essayé DisplayAlerts = False mais cela ne règle pas le problème... Des idées? Salutations YeTi
  5. Y

    Problème avec xlPasteValues

    Bonjour à tous, J'ai un souci avec la fonction xlPasteValues qui me renvoie systématiquement une erreur 1004... J'en suis même venu à faire des .Select etc mais rien n'y fait et là je sèche complétement! Pourtant avec la fonction .Paste toute simple il n'y a aucun souci. La macro doit...
  6. Y

    XL 2013 Extraire données d'une chaîne de caractères

    Bonjour, Je cherche une formule pour extraire de données bruts deux données spécifiques d'une chaine de caractère. Voici pour l'exemple le type de données brut que j'aurais en colonne C: ABC12345 - 3 ABCDE54321 * 22 02468 / 999 En colonne A j'aimerais extraire les 5 derniers chiffres de la...
  7. Y

    RechercheV avec table matrice variable

    Bonjour à tous, Je sèche complètement sur une formule. Je veux retourner une valeur en fonction d'une autre (jusque là je maitrise la fonction RechercheV). Cependant, la "plage" (table matrice) où chercher cette valeur dépend d'une autre valeur entrée. J'imagine qu'avec beaucoup de fonction...
  8. Y

    VBA: Création de listes en cascade

    Bonjour à tous, Après plusieurs années sans poster ici, je me retrouve confronté à un problème où mon cerveau n'est plus apte à fonctionner... Je suis en train de créer une macro qui met en forme un document après avoir copié les données d'un autre document. A un moment donné je crée une...
  9. Y

    Rechercher valeur en-tête de colonne par rapport à valeur max d'une ligne

    Bonjour, J'ai essayé de faire le titre le plus clair possible mais je vais tenté d'expliquer ce que j'entends par là. J'ai un tableau avec 22 lignes et 11 colonnes. Dans la 12ème colonne de la ligne 2, j'aimerais qu'il affiche la valeur de la ligne 1 (en-tête de colonne) par rapport à la...
  10. Y

    Erreur constante appelant une variable

    Bonjour, En faisant aller la macro suivante: Dim autopf As Worksheet Dim siod As Worksheet Set autopf = Workbooks("AUTOPF.xls").Sheets("Sheet1") Set siod = ThisWorkbook.Sheets("Invoice") For i = 1 To 6 Dim x As Range Set x = autopf.Cells.Find(Search_Order.Value...
  11. Y

    Erreur avec un Find()

    Bonjour, J'ai un fichier qui recherche le nom de l'utilisateur à l'ouverture. Si le nom existe, le fichier s'ouvre. S'il n'existe pas, il reçoit une notification et le fichier se ferme (du moins c'est ce que je souhaiterais faire). Lorsque les gens ont l'accès, aucun soucis, par contre...
  12. Y

    VBA: Erreur dans double ComboBox

    Bonjour, J'ai un petit soucis depuis que je suis passé à Excel 2007... J'ai un document que j'utilisais dans Excel 2003 bourré de macros. Dans la partie qui plante, c'est un FORM avec 2 ComboBox (Search_Product et Search_Country). Les données de Search_Country dépendent du choix de...
  13. Y

    Erreur lors d'une boucle Copy-Paste

    Bonjour, J'ai une manip toute simple à faire: Copier des données d'un fichier et les coller dans un nouveau. Il y a environ 8000 données, donc j'ai recours à une macro. Je pensais qu'elle serait toute simple à réaliser mais je rencontre une erreur à chaque fois que je veux coller...
  14. Y

    [VBA] Exécuter macro seulement si bon username

    Bonjour à tous, J'aimerais pouvoir exécuter une macro seulement si l'utilisateur qui la lance est le bon... J'ai imaginé une macro qui ressemblerait à ça: If Not Environ("Username") = "Jean" Or "Marc" Or "Jacques" Or "Raoul" Then Exit Sub Else {Exécution de la macro} End...
  15. Y

    Interdire navgation entre classeurs Excel

    Bonjour, J'ai un gros code VBA qui marche parfaitement bien tant que l'on reste sur le classeur dans lequel il est écrit. Malheureusement, si un utilisateur active la macro (Userform) et qu'il va dans un autre classeur (pour rechercher une information par exemple) et qu'il oublie de...
  16. Y

    Ecrire formule dans cellule via VBA

    Bonjour tout le monde, Je cherche à inscrire une formule dans la cellule S2 par VBA avec des données provenant de ComboBox... mais ca ne marche pas. Quelqu'un aurait la gentillesse de jeter un coup d'œil sur ce bout de code pour me dire qu'est-ce qui est faux? Range("S2:S2").Formula =...
  17. Y

    ComboBox en cascade

    Bonjour à tous, Je cherchais à faire des ComboBox en cascades pour mon UserForm. J'ai réussi à intégrer les données de la ComboBox1 grâce à une liste pré-établie dans une des feuilles de mon fichier comme ceci: 'START LOADING USERFORM Private Sub UserForm_Initialize() For i = 2...
  18. Y

    Simplification code VBA

    Bonjour à tous, J'ai créé le code suivant mais je suis sûr qu'il existe un moyen plus "propre" de le faire. If OptionButton1.Value = True Then With MultiPage1 .Pages("Geographic").Enabled = True .Pages("Product").Enabled = True .Pages("Order").Enabled = True...
  19. Y

    Validation sans doublons

    Bonjour à tous, J'ai un problème de validation que je n'arrive pas à résoudre. Dans l'exemple inclus, j'ai une liste de héros de BD (Tintin et Astérix) ainsi que tous les albums de ces deux héros de notre enfance. J'ai un champ de validation en liste et j'aimerais qu'il n'apparaisse que...
  20. Y

    Bloquer impression/sauvegarde si cellules vide

    Bonjour à tous, J'ai un petit soucis avec une macro à réaliser. Je dois, dans un fichier, empêcher l'utilisateur d'imprimer ou de sauver un document tant que les cellule A1 et A2 sont vides. Dès qu'il y a le moindre caractère dans les deux cellules (et non pas une des deux), l'utilisateur...