[VBA EXCEL] ecrire valeur aprés autofilter

Fermé
tchocollot Messages postés 6 Date d'inscription lundi 19 novembre 2007 Statut Membre Dernière intervention 8 décembre 2008 - 19 nov. 2007 à 22:33
ShaBoo Messages postés 392 Date d'inscription mercredi 12 septembre 2007 Statut Membre Dernière intervention 5 septembre 2009 - 20 nov. 2007 à 21:47
Bonjour,

Voilà, je suis en train de faire un petit programme sur VBA.
J'ai fait un userform avec 3 combobox et 1 textbox et un commandbuton
Avec chaque combobox je met un filtre filtre automatique.
Donc lorsque j'ai filtré à l'aide de mes combobox il me reste alors une seule ligne dans ma feuille excel. Et je voudrai que le texte de la textbox s'affiche au bout de cette ligne lorsque je clique sur le commandbuton.
Comment est ce que je peux faire?

Merci pour votre aide.

PS:si l'un de vous pouvait me dire si je peux afficher ce qu'il reste du premier filtre dans la seconde combobox et ainsi de suite ce serai super gentil!

Microsof Office 2002</code>
A voir également:

3 réponses

tchocollot Messages postés 6 Date d'inscription lundi 19 novembre 2007 Statut Membre Dernière intervention 8 décembre 2008 7
20 nov. 2007 à 13:06
Bonjour,

Non, en fait je veux ecrire sur la feuille excel la valeur de la textbox au bout de la ligne restante.
1
ShaBoo Messages postés 392 Date d'inscription mercredi 12 septembre 2007 Statut Membre Dernière intervention 5 septembre 2009 50
20 nov. 2007 à 13:36
Sheets(NumFeuille).Cells(ligne,colonne) = NomUserForm.NomTextBox
0
ShaBoo Messages postés 392 Date d'inscription mercredi 12 septembre 2007 Statut Membre Dernière intervention 5 septembre 2009 50
19 nov. 2007 à 22:49
Bonsoir,

Tu veux récupérer la ligne restante dans ton textbox lorsque tu appuies sur le bouton ?
0
tchocollot Messages postés 6 Date d'inscription lundi 19 novembre 2007 Statut Membre Dernière intervention 8 décembre 2008 7
20 nov. 2007 à 18:04
Merci pour ton aide Shaboo mais, je ne sias pas quoi mettre comme numéro de ligne.
mon problème c'est que la ligne est variable.
Vue que les données sont filtrées la ligne rééele trouvée peut aller de 2 à 60 par exemple, par contre visuellement ce sera toujours celle en dessous des nom des colonnes (epaiseur, taille...)
0
ShaBoo Messages postés 392 Date d'inscription mercredi 12 septembre 2007 Statut Membre Dernière intervention 5 septembre 2009 50
20 nov. 2007 à 21:47
iDerniereLigne = Cells(65535,NoColonne).End(xlUp).Row
Sheets(NumFeuille).Cells(iDerniereLigne,NoColonne) = NomUserForm.NomTextBox
0