Retranscrire valeur dans feuille Excel.
Bonjour,
Je pratique le sport, et pour mon club, j’ai un userform avec des labels (Nom des licenciés) associés à des texbox avec le nombre d’arbitrage réalisé par chaque joueur. De plus j’ai un autre texbox avec la valeur mini du nombre d’arbitrage à réaliser dans l’année. Lorsque le nombre d’arbitrage de chaque joueur est inférieur à la valeur mini les texbox deviennent rouge. Cela marche.
Par contre j’aimerai que le label de chaque textbox rouge soit retranscris dans une feuille Excel nommée « liste prioritaire ». Dans l'ordre et les uns apres les autres, de telle façon que je n’ai plus qu’à imprimer la feuille.
Merci
Je pratique le sport, et pour mon club, j’ai un userform avec des labels (Nom des licenciés) associés à des texbox avec le nombre d’arbitrage réalisé par chaque joueur. De plus j’ai un autre texbox avec la valeur mini du nombre d’arbitrage à réaliser dans l’année. Lorsque le nombre d’arbitrage de chaque joueur est inférieur à la valeur mini les texbox deviennent rouge. Cela marche.
Par contre j’aimerai que le label de chaque textbox rouge soit retranscris dans une feuille Excel nommée « liste prioritaire ». Dans l'ordre et les uns apres les autres, de telle façon que je n’ai plus qu’à imprimer la feuille.
Merci
Configuration: Windows 2000 Internet Explorer 6.0
6 réponses
-
If textbox1.backcolor=rgb(255,0,0) then [A1]=textbox1.value
-
Oui j’avais fait cela, le souci c’est que si le texbox 2 n’est pas rouge alors il y à un trou dans ma feuille « liste prioritaire » alors que j’aimerais que les Nom soient à la suite. Qu'il n'y ait pas de trous entre les lignes.
Merci pour ton aide -
If textbox1.backcolor=rgb(255,0,0) then Range("a65536").End(xlUp).Offset(1, 0) = textbox1.value
-
dsl je suis nul, mais comment fait on pour choisir la feuille de destination?
Merci -
tu écris
sheets("nom de la feuille")
si tu désires l'appliquer pour la formule que je viens de te donner tu tapes
If textbox1.backcolor=rgb(255,0,0) then Sheets("Nom de la feuille").Range("a65536").End(xlUp).Offset(1, 0) = textbox1.value
-
If textbox1.backcolor=rgb(255,0,0) then Sheets("Nom de la feuille").Range("a65536").End(xlUp).Offset(10, 0) = textbox1.value
tu choisis le numéro de ligne (en gras ici) à partir de laquelle tu veux commencer
