Copier une colone selon la semaine
Résolu
marbrant
Messages postés
1
Date d'inscription
Statut
Membre
Dernière intervention
-
eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
je suis débutant en macro et j'ai besoin d'un programme me permetant de copier une colone d'un classeur vers un autre selon le numero de la semaine.
je m'explique:
un planning comportant plusieurs colonnes, chacune ayant un numero de semaine(ex:S03) et des données pour les case du dessous.
A partir d'un bouton de commande ,le numero de la semaine s'affiche sur une liste
Le programme va selectionner la colonne comportant la semaine demandé(sur le classeur1) et va la coller sur un autre classeur (2).
je n'ai fais que le début...
Private Sub CommandButton1_Click()
Dim semaines
semaines = InputBox("choisissez la semaine", semaines, DateDiff("w", DateSerial(Year(Date), 1, 1), Date) + 1)
....
end sub
Merci
je suis débutant en macro et j'ai besoin d'un programme me permetant de copier une colone d'un classeur vers un autre selon le numero de la semaine.
je m'explique:
un planning comportant plusieurs colonnes, chacune ayant un numero de semaine(ex:S03) et des données pour les case du dessous.
A partir d'un bouton de commande ,le numero de la semaine s'affiche sur une liste
Le programme va selectionner la colonne comportant la semaine demandé(sur le classeur1) et va la coller sur un autre classeur (2).
je n'ai fais que le début...
Private Sub CommandButton1_Click()
Dim semaines
semaines = InputBox("choisissez la semaine", semaines, DateDiff("w", DateSerial(Year(Date), 1, 1), Date) + 1)
....
end sub
Merci
A voir également:
- Copier une colone selon la semaine
- Comment copier une vidéo youtube - Guide
- Déplacer une colonne excel - Guide
- Super copier - Télécharger - Gestion de fichiers
- Trier une colonne excel - Guide
- Historique copier coller - Guide
1 réponse
Bonsoir,
un exemple qui va coller en colonne A du classeur Classeur2.xls (ouvert) :
eric
un exemple qui va coller en colonne A du classeur Classeur2.xls (ouvert) :
Sub copieSem()
Dim sem As String, c As Range
sem = "S03"
With Worksheets("Feuil1")
Set c = .[1:1].Find(sem, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
.Columns(c.Column).Copy Workbooks("Classeur2").Worksheets("Feuil1").[A1]
End If
End With
End Sub
eric