Discussion :

[mentat]

Bonjour à tous.

J'ai un tableau de 8 colonnes, je remplis ce tableau par ligne avec l'aide d'une macro par un collage spécial ne récupérant que les valeurs.

Mon soucis c'est que l'utilisateur peut être amené à modifier une valeur dans le tableau de la base de donné seulement il faudrait qu'un calcul soit automatisé.

Par Ligne
La colonne 8 de mon tableau (colonne I) est égale à la colonne 5 de mon tableau (colonne F) moins la colonne 7 (colonne H)

Ce qui donne pour la ligne 4: I4=F4-H18

Et cela pour chaque ligne de mon tableau...

Je souhaiterai utilisé faire ce calcul par macro afin que l'utilisateur ne change pas la formule...

j'ai essayé ceci... Seulement l'utilisateur peut changer la valeur de la case...

Code :

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

Worksheets("Base de donné").Range("I4", "I65536").Value = "=RC[-3]-RC[-1]"

J'ai essayé par une boucle mais ça ne fonctionne pas non plus...

Code :

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

1
2
3
 For n = 4 To Worksheets("Base de donné").Range("I65536").Value
  Worksheets("Base de donné").Range("I" & n).Value = Worksheets("Base de donné").Range("I" & n).Offset(3, 3) - Worksheets("Base de donné").Range("I" & n).Offset(1, 1)
 Next n

Si quelqu'un peut m'aider....

Merci

[LeForestier]

Bonjour,

Ce qui donne pour la ligne 4: I4=F4-H18

C'est toujour H18 ou bien c'est indexer..
I5=F5-H18 ou bien I5=F5-H19 ??
A+
Edit: Premier jet avec incrémentation de H18
Coller le code dans le module de la feuille

Code :

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

1
2
3
4
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 9 Or Target.Count > 1 Or Target = "" Then Exit Sub
    Target = Target.Offset(0, -3) - Target.Offset(14, 1)
End Sub

[jp014]

Bonjour mentat
Bonjour LeForestier

A tester une macro évènementielle.

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
16
17
18
19
Option Explicit
Dim flag As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cellule As Range
If flag = True Then Exit Sub
If Target.Count > 1 Then Exit Sub
With Sheets(Target.Worksheet.Name)
'La colonne 8 de mon tableau (colonne I)
'est égale à la colonne 5 de mon tableau (colonne F)
'moins la colonne 7 (colonne H)
If Target.Column = 5 Or Target.Column = 7 Then
flag = True
    If IsNumeric(.Cells(Target.Row, 5)) And IsNumeric(.Cells(Target.Row, 7)) Then
        .Cells(Target.Row, 8) = .Cells(Target.Row, 5) - .Cells(Target.Row, 7)
    End If
End If
End With
flag = False
End Sub

Le code est basé sur le numéro des colonnes.

JP014

[mentat]

Oups je me suis complétement tropé dans l'exemple formulé.

Je vous présente toute mes excuses...

exemple :

ligne 4: I4=F4-H4
ligne 5: I5=F5-H5
ligne 6: I6=F6-H6

etc....

et sur cette formule là j'ai oublié les -

Code :

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

1
2
3
 For n = 4 To Worksheets("Base de donné").Range("I65536").Value
  Worksheets("Base de donné").Range("I" & n).Value = Worksheets("Base de donné").Range("I" & n).Offset(-3, -3) - Worksheets("Base de donné").Range("I" & n).Offset(-1, -1)
 Next n

Mais ma formule ne fonctionne toujours pas...

Je suis pas tres réveiller aujourd'hui lol, désolé.

[LeForestier]

J'ai un peu repenser ta demande et ..
A coller dans le module de la feuille

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub 'pour quand copie de bloc
    Select Case Target.Column
    Case 6
        Target.Offset(0, 3) = Target - Target.Offset(0, 2)
    Case 8
        Target.Offset 0, 1) = Target.Offset(0, -2) - Target
    End Select
End Sub

Et si par hazard tu colle un bloc, tu peu réinitialiser toute la feuille avec...

Code :

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

1
2
3
4
5
6
7
8
Sub MiseAJour()
Dim DerLig As Long
Dim lig As Long
    DerLig = Range("F65536").End(xlUp).Row
    For i = 4 To DerLig
        Cells(lig, "I") = Cells(lig, "F") - Cells(lig , "H")
    Next i
End Sub

A+
Edit :Rectifier suivant ton dernier poste

[mentat]

Ok merci ça à l'aire de fonctionner sauf pour la mise à jour...

J'ai une erreur 1004 sur cette ligne:

Code :

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

 Cells(lig, "I") = Cells(lig, "F") - Cells(lig, "H")

Par contre j'ai un peut de mal à comprendre ces code peut tu me les détailler...

En tout cas merci beaucoup...

[jp014]

Bonjour

Quand on utilise Cells, il faut des valeurs numériques
Cells( numéro de ligne, numéro de colonne)
Par contre avec Range on utilise une combinaison des 2
Range("code alpha de la colonne" & numéro de la ligne)

JP014

[mentat]

Ok Alors voici pour la mise à jours

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub CommandButton1_Click()
Dim DerLig As Long
Dim lig As Long
    DerLig = Range("F65536").End(xlUp).Row
    For i = 4 To DerLig
        Range("I" & i) = Range("F" & i) - Range("H" & i)
    Next i
End Sub

Merci à tous les deux ça fonctionne....

Par contre je comprend pas trop la fonction Target... Je vais essayé de comprendre son fonctionnement.

Mais tout fonctionne Merci encore.

[jp014]

Bonjour

Quand on utilise une macro évènementielle comme "change" le sytème nous indique la cellule ou la zone active par un "objet" qui a pour nom "Target".
La propriété value permet de connaitre la valeur dans la cellule,
Row donne le numéro de la ligne ou se trouve la cellule
Column donne le numéro de la colonne
.........................

http://silkyroad.developpez.com/VBA/EvenementsFeuille/

JP014

[LeForestier]

J'ai effectivement une erreur dans la mise à jour, employer i à la place de Lig (question d'habitude)
Et pas besoin de compliquer la macro.

Code :

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

1
2
3
4
5
6
7
8
Sub MiseAJour()
Dim DerLig As Long
Dim lig As Long
    DerLig = Range("F65536").End(xlUp).Row
    For Lig = 4 To DerLig
        Cells(Lig, "I") = Cells(Lig, "F") - Cells(Lig , "H")
    Next Lig
End Sub

Target C'EST la cellule active et tu peu y puisser toute les propriétés d'une cellule.