Résultats de la recherche

  1. M

    XL 2019 UserForm, ComboBox : évènement ou valeur sur défilement de la liste

    Bonjour cp4, une ListBox a une propriété MultiSelect, pas une ComboBox.
  2. M

    XL 2019 UserForm, ComboBox : évènement ou valeur sur défilement de la liste

    Bonjour, Je souhaite savoir si il est possible de récupérer la valeur de la ComboBox lorsqu'on défile dans la liste. Nous voyons les valeurs être surlignées en bleu au passage de la souris mais j'ai bien peur que la seule valeur utilisable soit celle une fois la selection faite et donc la...
  3. M

    XL 2019 VBA Range().SpecialCells(xlCellTypeVisible).Rows

    @patricktoulon ta démo ne sert à rien, sur l'onglet sur lequel tu travailles, je dis depuis le début que ça fonctionne (sauf la méthode If Line.Hidden = "False" Then) Bref la conclusion est la suivante : Comme le dis @Marcel32 la méthode Range().SpecialCells(xlCellTypeVisible).Rows boucle sur...
  4. M

    XL 2019 VBA Range().SpecialCells(xlCellTypeVisible).Rows

    En effet c'est @job75, désolé. J'ai trouvé, car la première colonne est masquée via un groupement de colonne. La 4ème est visible. J'ai donc renseigné 4 au lieu de 1, ça fonctionne.
  5. M

    XL 2019 VBA Range().SpecialCells(xlCellTypeVisible).Rows

    Parce qu'elle est masquée la première colonne!
  6. M

    XL 2019 VBA Range().SpecialCells(xlCellTypeVisible).Rows

    En effet, sais-tu pourquoi la méthode de boucler sur la première colonne que tu as évoqué ne fonctionne pas dans mon cas?
  7. M

    XL 2019 VBA Range().SpecialCells(xlCellTypeVisible).Rows

    As tu observé le fichier. Les boucles fonctionnent dans un cas et pas dans l'autre. Pourtant, dans les 2 cas, l'onglet et le tableau présent sur l'onglet portent le même nom. Un chien peut s'appeler Zigoto et un chat aussi. Le chien reste un chien et le chat reste un chat. On parlait de...
  8. M

    XL 2019 VBA Range().SpecialCells(xlCellTypeVisible).Rows

    Dans le fichier joint, il y 2 onglets avec un tableau chacun : Onglet nommé "Tableau" avec tableau nommé lui même "Tableau" Il s'agit d'un onglet et tableau test. Onglet nommé "Final_Result" avec un tableau nommé lui même "Final_Result". Il s'agit d'une copie de l'onglet de mon fichier...
  9. M

    XL 2019 VBA Range().SpecialCells(xlCellTypeVisible).Rows

    @patricktoulon nous n'avons pas tous le même niveau. Faire preuve de condescendance ne fera avancer personne. Je suis entrain de tester les 3 premières solutions. La première fonctionne dans mon fichier test mais pas dans celui d'origine. La seconde ne fonctionne pas du tout. Je test...
  10. M

    XL 2019 VBA Range().SpecialCells(xlCellTypeVisible).Rows

    Bonjour à tous, Merci, ça fait beaucoup de réponse en peu de temps. Je vais tenter de répondre à chacun d'entre vous. @patricktoulon c'est intéressant. J'ai déjà envisagé de boucler sur le tableau complet et de ne considérer que les lignes non cachées. "If Line.Hidden = False Then" Cependant...
  11. M

    XL 2019 VBA Range().SpecialCells(xlCellTypeVisible).Rows

    Bonjour, Je rencontre un problème. Je boucle sur les lignes visibles d'un tableau avec la méthode Range.SpecialCells(xlCellTypeVisible).Rows Tableau sur lequel j'applique des filtres via la méthode Range.AutoFilter. Dans l'exemple ci-dessous, la variable "Tab" correspond au nom de l'onglet...
  12. M

    XL 2019 VBA, erreur si données non valides (validation de données)

    j'ai trouvé la solution, sur des forums en anglais : Dim WsVariantNC As Worksheet Dim data_range As Range Dim invalid_cell As Range Dim nr_invalid As Integer: nr_invalid = 0 Set WsVariantNC = Worksheets("Variant_Module_Incompatibility") WsVariantNC.Activate...
  13. M

    XL 2019 VBA, erreur si données non valides (validation de données)

    Bonjour Yeahou, Merci pour ta réponse. J'ai déjà tester l'enregistreur, ça ne répond pas à ma problématique Pas besoin d'un fichier. Partons du principe que je met une validations de données sur une cellule d'un onglet. Peu importe, une longueur de texte mini, une liste déroulante... Dans...
  14. M

    XL 2019 VBA, erreur si données non valides (validation de données)

    Bonjour, J'arrive à activer via VBA, sur un onglet la fonction "Données > Validation de données > Entourer les données non valides". Ce que je souhaiterais c'est renvoyer un message d'erreur si il y a bien des données non valides d'identifiées sur cet onglet. Si pas de données non valides...
  15. M

    XL 2019 Erreur d'exécution 91, Variable Objet ou variable de bloc With non définie

    Merci Yeahou pour ta réponse. Je m'en suis sortie en utilisant une boucle. If MsgBox("Do you confirm the modification?", vbYesNo, "Confirmation Request") = vbYes Then For nRow = 0 To 10000 If (WsMachine.Range("A1").Offset(nRow, 0).Value = "") Then Exit...
  16. M

    XL 2019 Erreur d'exécution 91, Variable Objet ou variable de bloc With non définie

    Bonjour, ça n'a pas résolu que temporairement, comme je le craignais. J'ai identifier le problème. Dans le tableau dans lequel je recherche, les valeurs que je recherche sont le résultat d'une formule et non des valeurs textes type ...
  17. M

    XL 2019 Erreur d'exécution 91, Variable Objet ou variable de bloc With non définie

    J'ai résolu mon problème en mettant le Set et l'activation du worksheet dans le If. Pour le moment, plus d'erreur. Je clôturerais le sujet si ça dure dans le temps. If MsgBox("Do you confirm the removal?", vbYesNo, "Confirmation Request") = vbYes Then Set WsMachine =...
  18. M

    XL 2019 Erreur d'exécution 91, Variable Objet ou variable de bloc With non définie

    Précision1 : Dans le premier extrait de code du message ci-dessus, sur la ligne "find" il y a "[COLOR=rgb(250, 197, 28)" ça n'est pas dans le code, j'ai voulu mettre de la couleur sur le texte dans l'outil du forum pour mettre de la couleur sur la ligne Précision2 : Les Variables Ws et Ws...
  19. M

    XL 2019 Erreur d'exécution 91, Variable Objet ou variable de bloc With non définie

    Bonjour, Cette erreur m'empêche d'avancer. Je suis novice en VBA, jusqu'à aujourd'hui, je me suis débrouillé avec des formules Excel pour arriver à mes fins. Cependant c'est devenu inévitable. Je m'y suis donc mis, je recherche tout ce dont j'ai besoin sur des forums et donc je fais pas mal...