Retranscrire valeur dans feuille Excel. Fermé

Question

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

Farfadet88 · Answer

If textbox1.backcolor=rgb(255,0,0) then [A1]=textbox1.value

coudu · Answer

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

Farfadet88 · Answer

If textbox1.backcolor=rgb(255,0,0) then Range("a65536").End(xlUp).Offset(1, 0) = textbox1.value

coudu · Answer

dsl je suis nul, mais comment fait on pour choisir la feuille de destination?

Merci

Farfadet88 · Answer

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

Farfadet88 · Answer

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

Retranscrire valeur dans feuille Excel.

6 réponses

Discussions similaires