Contenu récent par karinette

  1. K

    XL 2016 Première valeur non vide dans Textbox

    Super, c'est exactement ça !! Encore merci :)
  2. K

    XL 2016 Première valeur non vide dans Textbox

    Lorsque je me place sur une cellule au hasard et que je lance mon USF, je ne récupère rien ...
  3. K

    XL 2016 Première valeur non vide dans Textbox

    Hello, Je n'ai rien d'affiché dans le Textbox,sauf la valeur de la cellule active. Je n'ai pas la valeur du haut de la colonne ... 😟 Je mets mon fichier en PJ.
  4. K

    XL 2016 Première valeur non vide dans Textbox

    Bonjour à tous, Comment pourrais-je recuperer la premiere valeur non vide dans une colonne, par le biais d'un Textbox ? Je m'explique, j'ai ce code : TextBox1.Value = Selection.End(xl1).Value Le problème, c'est qu'il me donne la première valeur non vide en remontant, mais ce que j'aimerais...
  5. K

    XL 2016 Supprimer dans colonne sous condition

    C'est vraiment parfait ... ça fonctionne à merveille !! :):):)
  6. K

    XL 2016 Supprimer dans colonne sous condition

    Merci de vos réponses, je vais tester tout ça ;)
  7. K

    XL 2016 Supprimer dans colonne sous condition

    Bonjour à tous. Je cherche une macro qui me permettrait de supprimer des valeurs suivant une condition. Je m'explique, dans la colonne A, j'ai des valeurs "X" ou "W". Ce que j'aimerais, c'est que suivant ces valeurs les cellules sur la même ligne soit supprimer de la façon suivante : Exemple...
  8. K

    XL 2016 Color par Vba

    Oui, j'ai trouvé ça qui fonctionne : .Color = hexa_color("#FF99FF") Il me fallait juste l'autre macro qui allait avec : Function hexa_color(ByVal hexa) 'Returns -1 in case of error If Len(hexa) = 7 Then hexa = Mid(hexa, 2, 6) 'If color with # If Len(hexa) = 6 Then...
  9. K

    XL 2016 Color par Vba

    Bonjour à tous. J'ai une macro qui me colorise mes cellules via le code du Colorindex : Sub p_f() Dim plage As Range Set plage = Intersect(Selection, Range("C8:AK44")) If Not Intersect(ActiveCell, Range("C8:AK44")) Is Nothing Then ActiveSheet.Unprotect "w*w*w*" With plage.Interior...
  10. K

    XL 2013 Cellule vide VBA

    Je pense effectivement que le copié/collé doit garder quelque chose en "non vide" ... Par contre la parade est efficace, ça marche parfaitement !!! Encore merci pour le code :)
  11. K

    XL 2013 Cellule vide VBA

    Bonjour à tous les experts, J'ai une extraction d'un fichier que je déplace dans un autre (une plage de formule). Lorsque je les colle dans mon fichiers, c'est en collage special / Valeur. Mon souçis est lorsque je vais chercher la dernière cellule vide (Ctrl + Fleche bas ou par macro avec ...
  12. K

    XL 2016 Copier / Coller suivant choix

    Et bien, c'est du rapide !!! C'est exactement ça :) Merci beaucoup !!
  13. K

    XL 2016 Copier / Coller suivant choix

    Bonjour aux experts, J'essaye en vain de créer une macro, mais j'abandonne et préfère vous consulter pour avancer dans mon fichier. Voila mon problème : J'ai un classeur, avec une plage de cellule où lorsqu'on double clic, un userform apparait. Je peux choisir d'inscrire A, B ou C dans ma...
  14. K

    XL 2013 Transfert inversé de tableau

    Merci de ta patience ;)
  15. K

    XL 2013 Transfert inversé de tableau

    Opps ... vraiment désolé :(