Copier coller valeur textbox colonne filtrée

Résolu/Fermé

mickysor - 2 mars 2013 à 21:06
mickysor - 2 mars 2013 à 22:47

Bonjour,

En VBA je souhaiterais coller la valeur d'une textbox (userform) dans une autre feuille à la dernière ligne.le problème est que cette feuille est filtrée et je ne peux pas enlever ce filtre car il fait beaucoup ralentir mon tableau. Comment faire?

A voir également:

Copier coller valeur textbox colonne filtrée
Déplacer une colonne excel - Guide
Copier coller pdf - Guide
Formule somme excel colonne - Guide
Historique copier-coller android - Guide
Trier colonne excel - Guide

1 réponse

Réponse 1 / 1

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 714
2 mars 2013 à 21:27

Bonjour,

Même si ta feuille possède un filtre rien ne t'empêche de rajouter une dernière ligne ?

Pour trouver son numéro, n'utilises pas end qui tient compte du filtre mais tu as bien d'autres possibilités comme .UsedRange.Rows.Count par exemple.

mickysor
2 mars 2013 à 21:29

j'ai uncode vba comme ceci:
Range("archivjour!A65536").End(xlUp).Offset(1, 0) = A.Offset(0, 0).Text
j'ai déjà éssayé avec UsedRange.Rows.Count mais pas réussi.
je suis débutant en vba désolé

mickysor
2 mars 2013 à 21:31

voici le code complet.arriverais tu à l'adapter avec le problème de filtres?:

Dim A As Range
Set A = Range("listetag!B1:a" & Range("listetag!A65536").End(xlUp).Row).Find(TextBox1.Value)
If Not A Is Nothing Then
Range("archivjour!A65536").End(xlUp).Offset(1, 0) = A.Offset(0, 0).Text
Range("macros!y2") = A.Offset(0, 0).Text
End If

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 714
2 mars 2013 à 21:37

Ceci devrait fonctionner :

With Sheets("archivjour")
    .Cells(.UsedRange.Rows.Count + 1, 1).Value = Me.TextBox1.Value
End With

mickysor
2 mars 2013 à 21:46

c'est super! sauf que malheureusement il me colle les données en décalé encore plus pas,comme s'il mémorisait les lignes que j'ai éfacées et qu'il n'a pas pris en compte!

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 714
2 mars 2013 à 22:06

C'est le problème bien connu de UsedRange qui n'est mis à jour pour les suppressions qu'à la réouverture du classeur. Comme ceci tu contourner le bug ;-)

Dim lig As Long
With Sheets("archivjour")
    lig = .UsedRange.Rows.Count + 1
    While .Cells(lig - 1, 1).Value = ""
        lig = lig - 1
    Wend
    .Cells(lig, 1).Value = Me.TextBox1.Value
End With

Discussions similaires

dessin au clavier cannabis

Comment faire le signe de croix (chrétiens) ?

Comment retrouver le presse papier sur iPhone ?