Trouver et deplacer des colonnes avec VBA

Résolu

supermoun Messages postés 39 Statut Membre -
jojo - 30 avr. 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.

Configuration: Windows XP
Firefox 3.0

Afficher la suite

2 réponses

Réponse 1 / 2
lermite222 Messages postés 9042 Statut Contributeur 1 199

Oui,... mais alors donne plus de renseignements sur les critères de recherche...
1
Réponse 2 / 2
lermite222 Messages postés 9042 Statut Contributeur 1 199
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+
0
1. supermoun Messages postés 39 Statut Membre 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+
  
  0
  1. dave dave > supermoun Messages postés 39 Statut Membre
    
    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
    
    0
2. 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?
  
  0

Trouver et deplacer des colonnes avec VBA

2 réponses

Discussions similaires

Newsletters