Changer l'affichage d'une cellulle

Bonjour,

J'ai essayé de voir si la question était déjà poster, je vous dit pas faut lire !

Si des fois quelqu'un pouvait m'aider, sa serait super je block.

Je chercher a pouvoir faire la même fonction que ça sur une feuille:

Private Sub worksheet_Change(ByVal Target As Range)

If Not Intersect(Range("C3:c23"), Target) Is Nothing Then

[Produits!E3:E23] = [Produits!E3:E23] + Target

End If

Et faire sa en même temps sur l'autre :

Private Sub worksheet_Change(ByVal Target As Range)

If Not Intersect(Range("G2:G23"), Target) Is Nothing Then

[D2:D23] = [D2:D23] + Target

End Sub

Le probleme C'est que je peux le faire en indiquant par cellule;

Ex: (Range("G2"),

mais la procedure risque d'etre longue a l'avenir ?

D'avance merci

Bonjour,

feuille "Produits"

tu voudrais au lieu de G2, pouvoir faire pareil sur toute la colonne ?

confirme

Amicalement

Claude

Merci!

Oui je voudrai pouvoir avoir le même resultat mais sur la ligne du dessous et ainsi de suite.

Ex:

Private Sub worksheet_Change(ByVal Target As Range)

If Not Intersect(Range("G2"), Target) Is Nothing Then

[D2] = [D2] + Target

End If

If Not Intersect(Range("G3"), Target) Is Nothing Then

[D3] = [D3] + Target

End If

If Not Intersect(Range("G4"), Target) Is Nothing Then

[D4] = [D4] + Target

End If

If Not Intersect(Range("G5"), Target) Is Nothing Then

[D5] = [D5] + Target

' End If

If Not Intersect(Range("G Jusqu'a (G38) par exemple.

End Sub

Le probleme s'est que je peut les copier/coller pour chaque ligne, je crois en faisant ça que la procedure risque d'etre longue donc message d'erreur.

Merci encore

re,

feuille "produits"

Private Sub worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("G2:g23"), Target) Is Nothing Then
    Cells(Target.Row, 4) = Cells(Target.Row, 4) + Target
End If
End Sub

Même principe pour l'autre feuille

édit: pour l'autre feuille

Private Sub worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("c2:c23"), Target) Is Nothing Then
Dim Lg%
    Lg = Target.Row
    With Sheets("Produits")
        .Cells(Lg, 5) = .Cells(Lg, 5) + Target
    End With
End If
End Sub

Amicalement

Claude

Tester et approuver ( je me voyer les copier un par un ...ouf)

Bravo et encore merci du votre soutien, je m'en souviendrais.

Cordialement

Prends le bon réflexe de solder les postes, c'est ici