Macro pour une feuille
Résolu
castours
Messages postés
2955
Date d'inscription
Statut
Membre
Dernière intervention
-
castours Messages postés 2955 Date d'inscription Statut Membre Dernière intervention -
castours Messages postés 2955 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je voudrai transposer la somme d'une colonne de la feuille 1 sur la feuille2 en fonction d'une date
Exemple :
D1 cellule date
De d2 a d40 chiffre à additionner
D 41 resultat de la somme de d2 a d40
cela sur la feuille 1
Je voudrai que vous m'aidiez a transposer sur une ligne de la feuille 2 la date et la somme de la cellule d41 dans une macro.
Tous en sachant que je change de date et j'efface les chiffres tous les jours. Je garde les enregistrements de la feuille 2 pour faire des decomptes mensuels.
Mes connaissances excel sont nulles
Je vous remercie de votre aide
Je voudrai transposer la somme d'une colonne de la feuille 1 sur la feuille2 en fonction d'une date
Exemple :
D1 cellule date
De d2 a d40 chiffre à additionner
D 41 resultat de la somme de d2 a d40
cela sur la feuille 1
Je voudrai que vous m'aidiez a transposer sur une ligne de la feuille 2 la date et la somme de la cellule d41 dans une macro.
Tous en sachant que je change de date et j'efface les chiffres tous les jours. Je garde les enregistrements de la feuille 2 pour faire des decomptes mensuels.
Mes connaissances excel sont nulles
Je vous remercie de votre aide
2 réponses
-
-
bonjour
je te remercie de l'aide que tu m'apportes.
je voudrai si c'est possible une modification qui porte sur l'enregistrement dans la feuille2.
c'est d'éviter les doublons d'enregistrements,une seule date
je te remercie-
Bonjour
Modifies la macro en rajoutant les lignes en gras :
Private Sub CommandButton1_Click()
dl = Sheets("Feuil2").Range("A" & Rows.Count).End(xlUp).Row
deux = 0
For n = 2 To dl
If Sheets("Feuil2").Cells(n, 1).Value = Sheets("Feuil1").Range("D1").Value Then deux = 1
Next n
If deux = 1 Then MsgBox ("Cette date existe déjà"): Exit Sub
With Sheets("Feuil2")
.Cells(dl + 1, 1).Value = Sheets("Feuil1").Range("D1").Value
.Cells(dl + 1, 2).Value = Sheets("Feuil1").Range("D41").Value
End With
End Sub
Cdlmt
-
