Discussion :

[jergau33]

Bonjour

Jeune débutant en VBA , je cherche à créer une formule pour aboutir mon projet :

J'ai des cellules ( au nombre de 7 ) que je complète tous les jours , nous les appelons C3;C4;C5;C6;C7;C8;C9

Je souhaite donc avoir la sommes , en incrémentation, de ces 7 cellules , sur 7 autres cellules ( H33;H34;H35;H36;H37;H38;H39) qui est la sommes incrémentée de tous les jours , avec une remise à 0 de temps en temps .

Je peux , si plus simple , passer sur la méthode , passer par les cellules C33;C34;C35;C36;C37;C38;C39 pour la caisse 1 , D33;D34;D35;D36;D37;D38;D39 pour la caisse 2 ,E33;E34;E35;E36;E37;E38;E39 pour la caisse du samedi

Merci de votre aide .

Belle journée

[Raccourcix]

Bonjour
Copier la plage de départ
Sélectionner la premier cellule de la plage de destination
Collage spécial en valeur et addition
Stéphane

[BENNASR]

Bonjour
voir avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub test()
Dim F1 As Worksheet
Set F1 = Sheets("Feuil1") ' à modifier si nécessaire
F1.Range("H33").Value = F1.Range("H33").Value + F1.Range("C3").Value
F1.Range("H34").Value = F1.Range("H34").Value + F1.Range("C4").Value
F1.Range("H35").Value = F1.Range("H35").Value + F1.Range("C5").Value
F1.Range("H36").Value = F1.Range("H36").Value + F1.Range("C6").Value
F1.Range("H37").Value = F1.Range("H37").Value + F1.Range("C7").Value
F1.Range("H38").Value = F1.Range("H38").Value + F1.Range("C8").Value
F1.Range("H39").Value = F1.Range("H39").Value + F1.Range("C9").Value
End Sub

ou bien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub test2()
Dim F1 As Worksheet
Set F1 = Sheets("Feuil1") ' à modifier si nécessaire
F1.Cells(33, "h") = F1.Cells(33, "h") + F1.Cells(3, "C")
F1.Cells(34, "h") = F1.Cells(34, "h") + F1.Cells(4, "C")
F1.Cells(35, "h") = F1.Cells(35, "h") + F1.Cells(5, "C")
F1.Cells(36, "h") = F1.Cells(36, "h") + F1.Cells(6, "C")
F1.Cells(37, "h") = F1.Cells(37, "h") + F1.Cells(7, "C")
F1.Cells(38, "h") = F1.Cells(38, "h") + F1.Cells(8, "C")
F1.Cells(39, "h") = F1.Cells(39, "h") + F1.Cells(9, "C")
End Sub

ou bien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Sub test3()
Dim F1 As Worksheet
Set F1 = Sheets("Feuil1") ' à modifier si nécessaire
For lig = 3 To 9
F1.Cells(lig + 30, "h") = F1.Cells(lig + 30, "h") + F1.Cells(lig, "C")
Next lig
End Sub

Je recommande de vider C3 à C9 chaque clic sur le bouton pour munir contre le risque de cliquer deux fois et ajouter la somme deux fois avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub test4()
Dim F1 As Worksheet
Set F1 = Sheets("Feuil1") ' à modifier si nécessaire
For lig = 3 To 9
F1.Cells(lig + 30, "h") = F1.Cells(lig + 30, "h") + F1.Cells(lig, "C")
F1.Cells(lig, "C") = 0 ' supprimer les montant déja saisie
Next lig
End Sub

[jergau33]

Bonjour
voir avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub test()
Dim F1 As Worksheet
Set F1 = Sheets("Feuil1") ' à modifier si nécessaire
F1.Range("H33").Value = F1.Range("H33").Value + F1.Range("C3").Value
F1.Range("H34").Value = F1.Range("H34").Value + F1.Range("C4").Value
F1.Range("H35").Value = F1.Range("H35").Value + F1.Range("C5").Value
F1.Range("H36").Value = F1.Range("H36").Value + F1.Range("C6").Value
F1.Range("H37").Value = F1.Range("H37").Value + F1.Range("C7").Value
F1.Range("H38").Value = F1.Range("H38").Value + F1.Range("C8").Value
F1.Range("H39").Value = F1.Range("H39").Value + F1.Range("C9").Value
End Sub

ou bien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub test2()
Dim F1 As Worksheet
Set F1 = Sheets("Feuil1") ' à modifier si nécessaire
F1.Cells(33, "h") = F1.Cells(33, "h") + F1.Cells(3, "C")
F1.Cells(34, "h") = F1.Cells(34, "h") + F1.Cells(4, "C")
F1.Cells(35, "h") = F1.Cells(35, "h") + F1.Cells(5, "C")
F1.Cells(36, "h") = F1.Cells(36, "h") + F1.Cells(6, "C")
F1.Cells(37, "h") = F1.Cells(37, "h") + F1.Cells(7, "C")
F1.Cells(38, "h") = F1.Cells(38, "h") + F1.Cells(8, "C")
F1.Cells(39, "h") = F1.Cells(39, "h") + F1.Cells(9, "C")
End Sub

ou bien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Sub test3()
Dim F1 As Worksheet
Set F1 = Sheets("Feuil1") ' à modifier si nécessaire
For lig = 3 To 9
F1.Cells(lig + 30, "h") = F1.Cells(lig + 30, "h") + F1.Cells(lig, "C")
Next lig
End Sub

Je recommande de vider C3 à C9 chaque clic sur le bouton pour munir contre le risque de cliquer deux fois et ajouter la somme deux fois avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub test4()
Dim F1 As Worksheet
Set F1 = Sheets("Feuil1") ' à modifier si nécessaire
For lig = 3 To 9
F1.Cells(lig + 30, "h") = F1.Cells(lig + 30, "h") + F1.Cells(lig, "C")
F1.Cells(lig, "C") = 0 ' supprimer les montant déja saisie
Next lig
End Sub

Merci beaucoup !

Si je veux que cette formule fonctionne sur l'ensemble duu dossier , que dois-jer faire ?

[BENNASR]

bonjour
essaye avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Dim Ws As Worksheet
Dim F1 As Worksheet
Application.ScreenUpdating = False
Set F1 = Sheets("Feuil1") 'ici le nom de l'onglet ou tu va faire la somme, changer le nom si nécessaire
  For Each Ws In Sheets
  If Ws.Name <> "Feuil1" Then 'ici pour ne pas tenir compte de l'onglet ou tu va faire la somme
    For lig = 3 To 9
   F1.Cells(lig + 30, "h") = F1.Cells(lig + 30, "h") + Ws.Cells(lig, "C")
    Ws.Cells(lig, "C") = 0 ' supprimer les montant déja saisie
   next lig
END IF
next Ws
Application.ScreenUpdating = true
end sub