Code pour ajouter

Excel
1

Bonjour tout le monde,

je cherche à modifier le code ci-joint, afin qu’a chaque action de ce code il rajoute à la somme déja existante dans l’onglet " AFFICHAGE COMPLET " Range "B " la somme qui se trouve en cellule " F7 " de l’onglet "SRT ".

Sub Envoyer() 'Envoi de la somme

Dim i As Byte

Application.ScreenUpdating = False

i = Sheets("SRT").Range("Z3").Value


Sheets("SRT").Range("F7").Copy
                
ThisWorkbook.Sheets("AFFICHAGE COMPLET").Range("B5").Offset(1, i).PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=True

End Sub

Merci d’avance à vous

Rubis

2

Re,

je crois avoir trouvé, mais j’aimerai bien avoir l’avis de vous les experts s’il vous plaît.

Sub Envoyer() 'Envoi de la somme

Dim i As Byte

Application.ScreenUpdating = False

i = Sheets("SRT").Range("Z3").Value

Sheets("SRT").Range("F7").Copy
                
ThisWorkbook.Sheets("AFFICHAGE COMPLET").Range("B5").Offset(1, i) = ThisWorkbook.Sheets("AFFICHAGE COMPLET").Range("B5").Offset(1, i) + Sheets("SRT").Range("F7")

End Sub

Merci à vous.

Rubis

3

Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.