Macro sur EXCEL
Résolu
Arkonide
Messages postés
33
Statut
Membre
-
Arkonide Messages postés 33 Statut Membre -
Arkonide Messages postés 33 Statut Membre -
Bonjour,
Voici une petite macro qui me permet d'envoyer certaines données sur une feuille nommée JUILLET
Private Sub CommandButton1_Click()
Dim nombre As String
Dim l As Integer
l = Sheets("JUILLET").Range("b600").End(xlUp).Row + 1
nombre = 1
If nombre = False Then Exit Sub
With Sheets("JUILLET")
.Range("b" & l).Value = Date
.Range("c" & l).Value = Range("e2").Value
.Range("d" & l).Value = Range("f2").Value
End With
End Sub
serait il possible de remplacer "JUILLET" par une variable qui permettrais d'envoyer les données en fonction de la date par exemple sur une feuille deja créee nommée (Aout ou septembre etc...)
D'avance MERCI
Voici une petite macro qui me permet d'envoyer certaines données sur une feuille nommée JUILLET
Private Sub CommandButton1_Click()
Dim nombre As String
Dim l As Integer
l = Sheets("JUILLET").Range("b600").End(xlUp).Row + 1
nombre = 1
If nombre = False Then Exit Sub
With Sheets("JUILLET")
.Range("b" & l).Value = Date
.Range("c" & l).Value = Range("e2").Value
.Range("d" & l).Value = Range("f2").Value
End With
End Sub
serait il possible de remplacer "JUILLET" par une variable qui permettrais d'envoyer les données en fonction de la date par exemple sur une feuille deja créee nommée (Aout ou septembre etc...)
D'avance MERCI
Configuration: Windows XP Internet Explorer 7.0
3 réponses
-
bonjour,
Private Sub CommandButton1_Click()
Dim nombre As String
Dim l As Integer
cible = inputbox("Entrez le mois")
l = Sheets(cible).Range("b600").End(xlUp).Row + 1
nombre = 1
If nombre = False Then Exit Sub
With Sheets(cible)
.Range("b" & l).Value = Date
.Range("c" & l).Value = Range("e2").Value
.Range("d" & l).Value = Range("f2").Value
End With
End Sub
-
Ca doit être possible,
il faut utiliser Month(Now) qui donne le mois du jour présent.
Private Sub CommandButton1_Click()
Dim nombre As String
Dim l As Integer
Dim mois As String
Select Case Month(Now)
Case Is = 1
mois = "Janvier"
Case Is = 2
mois = "fevrier"
Etc...
End Select
l = Sheets(mois).Range("b600").End(xlUp).Row + 1
nombre = 1
If nombre = False Then Exit Sub
With Sheets(mois)
.Range("b" & l).Value = Date
.Range("c" & l).Value = Range("e2").Value
.Range("d" & l).Value = Range("f2").Value
End With
End Sub -
bonjour,
si on considère que ws.name contient le nom de la feuille active,
on peut faire à la place du inputbox
if ws.name='Janvier' then cible='Décembre'
if ws.name='Février' then cible='janvier'
if ws.name='Mars' then cible='février'
etc
