Nouveau sur le forum et sur les forums en general
J'ai fichier excel avec une macro Vba (Macro trouvé sur des forums il y a quelques années ,mais fondamentalement je ne comprend pas tout)
que je veux passer en format libreoffice calc
Avantage pour moi le partage de document a plusieurs utilisateur .
Ma macro sert a faire un calcul sur une cellule (H) par rapport au valeur d’entrée ou sortie des cellules (I,J,K)tout en pouvant modifier la valeur (H) a ma guise
les valeurs des cellules(I,J,K)ne sont pris en compte qu'a la saisie
depuis quelques jours j'essaye modifier ma macro en basic .mais plus j'avance plus je recule et m'y perd.
si quelqu'un maitrise les 2 langages ce serait top
Code : Tout sélectionner
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("I2:I1000")) Is Nothing Then
Cells(Target.Row, 8).Value = Cells(Target.Row, 8).Value - Cells(Target.Row, 9)
End If
If Not Intersect(Target, Range("J2:J1000")) Is Nothing Then
Cells(Target.Row, 8).Value = Cells(Target.Row, 8).Value + Cells(Target.Row, 10)
End If
If Not Intersect(Target, Range("K2:K1000")) Is Nothing Then
Cells(Target.Row, 8).Value = Cells(Target.Row, 8).Value - Cells(Target.Row, 11)
End If
End Sub
Merci
Roger