Macro sur EXCEL
Résolu
Arkonide
Messages postés
28
Date d'inscription
Statut
Membre
Dernière intervention
-
Arkonide Messages postés 28 Date d'inscription Statut Membre Dernière intervention -
Arkonide Messages postés 28 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Macro sur EXCEL
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Comment trier par ordre alphabétique sur excel - Guide
- Comment calculer la moyenne sur excel - Guide
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
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
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
Cette macro fonctionne tres bien, mais j'aurais aimé (je suis faignant), qu'elle trouve seule la feuille du mois considéré.
Merci encore de ta reponse, si tu peux m'arranger cela, je suis preneur
Amicalement
Arko