Trouver et deplacer des colonnes avec VBA

Résolu

supermoun Messages postés 38 Date d'inscription Statut Membre Dernière intervention -
jojo - 30 avril 2010 à 21:25

Bonjour à tous,

J'ai un tableau sous excel qui contient des dates( exemple tout le mois) sur une ligne.
Des données sous chaque jour.

A travers deux textbox, j'inscrit une plage de dates ou une seule date.
Si la routine trouve la ou les dates, faire un copier des colonnes correspondantes dans une autre feuille.

Si quelqu'un a la réponse.

Merci d'avance.

A voir également:

Trouver et deplacer des colonnes avec VBA
Déplacer colonne excel - Guide
Comment faire des colonnes sur word - Guide
Trouver adresse mac - Guide
Classer par ordre alphabétique excel plusieurs colonnes - Guide
Déplacer barre des taches windows 11 - Guide

2 réponses

Réponse 1 / 2

lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention 1 191

Oui,... mais alors donne plus de renseignements sur les critères de recherche...

Réponse 2 / 2

lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention 1 191

Bonjour,
Si ca peut servir...

'Sélectionne une colonne entière et la copie dans une autre feuille
Sub CopieColonne()
    Sheets("Feuil1").Select
    Columns("D:D").Select
    Selection.Copy
    Sheets("Feuil2").Select
    Columns("J:J").Select
    ActiveSheet.Paste
End Sub

A+

supermoun Messages postés 38 Date d'inscription Statut Membre Dernière intervention 7

Bonsoir Lermite 222,

Excuse pour le retard et merci pour la réponse.

Mais le problème, c'est de tester une date ou une zone de dates à partir des renseignements
fournis par les textbox.
A+

dave dave > supermoun Messages postés 38 Date d'inscription Statut Membre Dernière intervention

Bonjour,
Je rencontre le même problème que vous à savoir: de tester le titre pour sélectionner la colonne.
Avez vous trouvé une solution ?

Merci

DD

jojo

'Sélectionne une colonne entière et la copie dans une autre feuille
Sub CopieColonne()
Sheets("Feuil1").Select
Columns("D:D").Select
Selection.Copy
Sheets("Feuil2").Select
Columns("J:J").Select
ActiveSheet.Paste
End Sub

Peut etre remplacer par:
Sub CopieColonne()
Sheets("Feuil1"). Columns("D:D").Copy destination:= Sheets("Feuil2").Columns("J:J")
End Sub
il me semble, non?

Discussions similaires

Trouver numéro snapchat

Votre réponse

Discussions similaires