Macro sur EXCEL Résolu/Fermé

Question

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

giheller · Answer

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

Aubruz · Answer

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

giheller · Answer

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

Macro sur EXCEL

3 réponses

Discussions similaires