Contenu récent par marcodebute350

  1. M

    Variable Objet Innertext

    Après avoir essayé de décomposer sans résultat, j'ai trouvé la solution Le Set xobj = IEDoc.getElementsByClassName("Z0LcW").Item(0) renvoyait Nothing. Il fallait créer une boucle pour attendre qu'il le trouve. Do Set xobj = IEDoc.getElementsByClassName("Z0LcW").Item(0) Loop While xobj Is Nothing
  2. M

    Variable Objet Innertext

    Merci pour ton aide mais malheureusement, ça ne fonctionne toujours pas chez moi. Il me mets toujours Objet non défini sur la ligne: Range("B2").Value = IEDoc.getElementsByClassName("Z0LcW").Item(0).innerText Par contre le HTMLDivElement est déjà mieux que le Variant effectivement, merci. Mon...
  3. M

    Variable Objet Innertext

    Voici le fichier. J'ai essayé de le retravaillé entre-temps donc certain bout de code ont peut-être bougé par rapport au code initial
  4. M

    Variable Objet Innertext

    Merci tout de même pour cette réponse rapide Dranreb. J'ai rajouté le Option Explicit en haut du module, mais ça ne me donne pas plus d'explication, il lance quand même la macro pour s'arrêter à la ligne en jaune et me dire "Variable objet non défini". Pour ce qui est des références, j'ai...
  5. M

    Variable Objet Innertext

    Bonjour, Après 3 jours de recherches infructueuses sur de nombreux forums, je me décide à poster pour demander de l'aide. Je souhaite récupérer sur mon tableau excel le pays qui s'affiche sur Google en tapant par exemple "Moscou Pays". J'ai un code vba mais qui apparemment ne fonctionne pas au...
  6. M

    ShowAllData Filtre avancé

    Re : ShowAllData Filtre avancé ça marche, un grand merci Pierrot ! 3h que je me cassais la tête là dessus.. Je ne trouve pas où mettre la discussion en résolue par contre.. Peux-tu me dire stp?
  7. M

    ShowAllData Filtre avancé

    Bonjour à tous, J'ai dans mon tableau un filtre avancé, que voici: Sub FiltrethemeFran() ' Range("A5:S500").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _ Range("G1:G2"), Unique:=True If Range("G2") = "Afficher Tout" Then ActiveSheet.ShowAllData End If End...
  8. M

    Case à cocher macro

    Re : Case à cocher macro Re, J'ai cherché ce que sont les contrôles activex, mais je ne les ai pas trouvé sur mon mac. Dans mon onglet Développeur, je n'ai que les catégories suivantes : "contrôles de formulaire" (par lequel je suis passé pour créer la case à cocher), "macros complémentaires"...
  9. M

    Case à cocher macro

    Re : Case à cocher macro De plus j'aurais une petite difficulté supplémentaire. Le problème étant que j'ajoute régulièrement des colonnes à ce tableau, et si j'ajoute une colonne avant la colonne H, la macro ne me masquera plus la bonne (qui sera devenu la colonne I), y a t'il un moyen de...
  10. M

    Case à cocher macro

    Re : Case à cocher macro Bonjour Pierrot93, Malheureusement, la colonne se masque sans problème quand je décoche la case à cocher, mais elle ne réapparait pas quand je coche la case
  11. M

    Case à cocher macro

    Re : Case à cocher macro Bonjour WDAndCo, Je te remercie mais je ne comprends pas ta réponse.. Tu as mis 2 fois la même phrase..
  12. M

    Case à cocher macro

    Bonjour à tous, Je souhaiterais savoir comment appliquer une fonction vba à une case à cocher. Je m'explique: J'ai une case à cocher (caseàcocher17), j'aimerais que quand elle soit cochée, la colonne H soit affichée, et que quand elle soit décochée, la colonne H soit masquée. Le problème ne...
  13. M

    Fonction VLookup Vba +1

    Re : Fonction VLookup Vba +1 Un très grand merci !! Après des jours de recherche, ça marche enfin. Tu es un pro ! Super forum =)
  14. M

    Fonction VLookup Vba +1

    Re : Fonction VLookup Vba +1 Bonjour Pierrot, C'est ce que j'avais cru comprendre en effet: "De ce que je comprends, pour VBA, R1 est une valeur, et non la valeur d'une case en particulier, c'est pourquoi il n'augmente pas la valeur de L21." Mais comment résoudre mon problème alors? As-tu une...
  15. M

    Fonction VLookup Vba +1

    Re : Fonction VLookup Vba +1 Bonjour à tous, J'y arrive partiellement maintenant. Voici mon code: Sub test() Dim r As Range, R1, R2 Set r = Sheets("FORFAIT").Range("A2:P50") 'Récupère la valeur R1 = WorksheetFunction.VLookup(Sheets("2015").Range("R6"), Sheets("FORFAIT").Range("A2:P50"), 16...