XL 2013 vba copier-coller les lignes selon valeur d'une colonne indiquée dans inputbox

manup13

XLDnaute Nouveau
Bonjour à tous, le forum,

Après plusieurs recherche, je ne trouve pas beaucoup d'utilisation de l'inputbox.
j'essaie une utilisation avec, mais sans résultat positif, je suis entrain de me demandé si cela soit vraiment possible....

je recherche à copier toutes les lignes qui contient une valeur d' une colonne indiquée par l'inputbox

pour les coller dans une autre feuille ou classeur
DAns mon exemple c'est une feuille
Je suis preneur de toute information
Cordialement,
Bonne soirée à tous
Manup13
 

Pièces jointes

  • A.xlsm
    20.6 KB · Affichages: 63

manup13

XLDnaute Nouveau
Bonsoir xhudi69,

Cela me convient très très bien....
juste une petite question, tu as utilisé la Fonction Cbdl
je ne connaissais pas, j'ai fais une petite recherche sur cette fonction,
mais j'ai pas compris son utilisation dans ce cas,
Si tu peux m'en dire un peu plus .

Sinon merci beaucoup pour aide

@++

Manup13
 

xhudi69

XLDnaute Accro
Bonjour manup13, le Forum,

On met CDbl(TextBox1.Value), lorsque l'on a affaire à du numérique, dans notre cas la requête est en numérique.
Si tes requêtes sont toutes sur du numérique, il faut mettre une sécurité si l'utilisateur frappe du texte.
Pour une date il faute écrire : CDate(TextBox1.Value).
Voir l'aide d'Excel via F1.

@+
 

manup13

XLDnaute Nouveau
Bonsoir le Forum, xhudi69,

Désolé, j'ai été un trop vague.....
Dans une colonne la "G" par exemple, je peux avoir des cellules avec un remplissage (couleur), et souhaiterais pouvoir conserver la couleur des cellules.
".value" ne prend que la valeur, comment peut on faire, pour que tout soit conserver.

en tous cas merci pour ta réponse

@+
manup13
 

xhudi69

XLDnaute Accro
Bonsoir manup13, le Forum,

voir en fichier joint si cela convient, j'ai rajouté une ligne dans la condition pour garder la couleur de fond des cellules, tu peux faire la même chose pour le format texte par exemple.

Code:
B.Cells(Nvl, j).Interior.Color = .Cells(i, j).Interior.Color

@+
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 924
Membres
101 841
dernier inscrit
ferid87