copier suivant date en vba

Robert

XLDnaute Barbatruc

Repose en paix

• 30 Janvier 2011

• #2

Re : copier suivant date en vba

Bonsoir BZH, bonsoir le forum,

En pièce jointe ton fichier modifié avec le code ci-dessous appliqué au bouton :

Code:

Private Sub CommandButton1_Click()
Dim d As String 'déclare la variable d (Date)
Dim m As String 'déclare la variable m (numéro du Mois)
Dim mois As String 'déclare la variable mois
Dim dest As Range 'déclare la variable dest (DESTination)
ActiveCell.Select 'enlève le focus au bouton
d = Range("B1").Value 'définit la date d
m = Month(d) 'définit le numéro du mois m
Select Case m 'définit le mois en fonction du numéro du mois
    Case "1"
        mois = "janvier"
    Case "2"
        mois = "février"
    Case "3"
        mois = "mars"
    Case "4"
        mois = "avril"
    Case "5"
        mois = "mai"
    Case "6"
        mois = "juin"
    Case "7"
        mois = "juillet"
    Case "8"
        mois = "août"
    Case "9"
        mois = "septembre"
    Case "10"
        mois = "octobre"
    Case "11"
        mois = "novembre"
    Case "12"
        mois = "décembre"
End Select
Set dest = Sheets(mois).Range("A1").Offset(1, Day(d)) 'définit la cellule de destination
Range("B4:B17").Copy dest 'copie la plage B4:B17 et la colle dans la cellule de destination dest
End Sub

 

Pièces jointes

• BZH_v01.xls

  57 KB · Affichages: 69

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 31 Janvier 2011

• #3

Re : copier suivant date en vba

Bonjour bzh, Robert🙂

Petite remarque au passage, si je peux me permettre, le nom du mois peut également être renvoyé en utilisant la fonction "MonthName" :

Code:

m = MonthName(Month(d))

bonne journée
@+

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 31 Janvier 2011

• #4

Re : copier suivant date en vba

Bonjour le fil, bonjour le forum,

Oui Pierrot merci pour ce renseignement mais chez moi avec ma configuration du clavier : Langue Portugais (Bresil) / Clavier USA International, ça renvoit les mois en anglais... d'où le Select Case.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 31 Janvier 2011

• #5

Re : copier suivant date en vba

Re,

Langue Portugais (Bresil) / Clavier USA International, ça renvoit les mois en anglais... d'où le Select Case.

Cliquez pour agrandir...

Aarf, oui dans ce cas... 🙂

allez, une autre approche pour le fun :

Code:

Dim m As Integer
m = Month(Date)
MsgBox Switch(m = 1, "janvier", m = 2, "février", m = 3, "mars")

@+

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 31 Janvier 2011

• #6

Re : copier suivant date en vba

Bonjour le fil, bonjour le forum,

Ha oui Pierrot ! Là j'ai sorti mon burin et une feuille de marbre toute neuve de 25 kg et je vais me la graver illico presto. Je connaissais pas cette fonction Switch, merci pour l'astuce !

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 31 Janvier 2011

• #7

Re : copier suivant date en vba

Re,

en y réfléchissant, il y a aussi la fonction "choose", qui me parait plus adaptée, enfin moins longue....

Code:

Dim m As Integer
m = Month(Date)
MsgBox Choose(m, "janvier", "février", "mars")

encore une tablette de 25kg...🙂 bon après midi
@+

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 31 Janvier 2011

• #8

Re : copier suivant date en vba

Bonjour DZH56

Salut Robert 🙂 🙂
Salut Pierrot 🙂 🙂

@ Robert
Au cas ou il te resterait une feuille de marbre il y a egalement:

Code:

mois = Format(d, "mmmm")

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 31 Janvier 2011

• #9

Re : copier suivant date en vba

Re,
bonjour PierreJean🙂

Aarf, bien vu PierreJean🙂, pourquoi faire simple quand on peut faire compliquer... 🙂 Robert, tu peux jeter les tablettes... Aarf, pas sur ma tête...

 

Vote positif 0 Vote négatif

BZH56

XLDnaute Occasionnel

• 1 Février 2011

• #10

Re : copier suivant date en vba

bravo a tous et le code a fondu au passage. merci pierrejean🙂🙂🙂

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 1 Février 2011

• #11

Re : copier suivant date en vba

Bonjour le fil, bonjour le forum,

Fondu, fondu c'est un peu vite dit BZH ! Je viens de me faire livrer deux camions de marbre avec ces co...ries... Tiens du coup je redeviens bleu !

 

Vote positif 0 Vote négatif

BZH56

XLDnaute Occasionnel

• 1 Février 2011

• #12

Re : copier suivant date en vba

bonsoir robert
te fache pas, ton humour ne me laisse pas de marbre 😉😉
Entre "barbatruc" , la rivalite est saine pour le forum et tout bénef pour nous les petits
"vba-istes".
mes hommages. et respect pour votre bienveillance a notre égard.🙂

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 2 Février 2011

• #13

Re : copier suivant date en vba

Re

@ BZH

rivalité !! le vilain vocable
Je lui prefere émulation et souhaite que le Grand Robert partage mon opinion

 

Vote positif 0 Vote négatif

BZH56

XLDnaute Occasionnel

• 5 Février 2011

• #14

Re : copier suivant date en vba

pierrejean à dit:

Re

@ BZH

rivalité !! le vilain vocable
Je lui prefere émulation et souhaite que le Grand Robert partage mon opinion

Cliquez pour agrandir...

bonjour a tous
ok pierrejean pour l'émulation, je suis d accord avec toi...
mais j 'ai une difficulté supplémentaire que je n ai pas vu arrive ,. Dans mon vrai fichier ,la zone a copié résulte d un calcul et le code que vous m'avez trouve me recopie aussi la formule..
je pensais m en sortir avec un collage special valeurs mais avec la variable qui est déclarée (dest) , je bloque a nouveau
alors , merci pour le dernier coup de pouce😕😕

 

Pièces jointes

• BZH_v02.xls

  48 KB · Affichages: 49

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 5 Février 2011

• #15

Re : copier suivant date en vba

Bonjour à tous,

modifie ainsi :

Code:

Set dest = Sheets(mois).Range("A1").Offset(1, Day(d)) 'définit la cellule de destination
Range("c4:c17").Copy
dest.PasteSpecial xlPasteValues

bonne soirée
@+

 

Vote positif 0 Vote négatif