incrémentation de cellules

Dull

XLDnaute Barbatruc

• 31 Octobre 2009

• #2

Re : incrémentation de cellules

Salut nomzamo et Bienvenu, le Forum

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([A:A], Target) Is Nothing Then
If Target = "" Or Not IsNumeric(Target) Then Exit Sub
Target.Offset(0, 1) = Target + Target.Offset(0, 1)
End If
End Sub

Essaye le Fichier Joint

Bonne Journée

 

Pièces jointes

• nomzamo.zip

  7.3 KB · Affichages: 20

Dernière édition: 31 Octobre 2009

Vote positif 0 Vote négatif

N

nomzamo

Guest

• 31 Octobre 2009

• #3

Re : incrémentation de cellules

Merci Dull pour la réponse ultra rapide qui correspond exactement à la question posée. En fait dans mon tableau j'effectue les saisies dans des cases qui ne sont pas directement en colonne. Par ex:
Saisie en A1 avec incrémentation de B1.
Saisie en A3 avec incrémentation en B3.
Saisie en A10 avec incrémentation en B10 etc...

Est-ce possible?
Merci,
Roger

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 31 Octobre 2009

• #4

Re : incrémentation de cellules

Re

Pas sur d'avoir compris 😕

A1: Incrémentation en B1 Ok
A3: Incrémentation en B3 Ok

C1: Incrémentation en D1 ?
Est-ce à l'intérieur d'un Tableau ?
Met un fichier avec quelques données bidons avec, d'un coté ce que tu as et de l'autre ce que tu veux avoir

Bonne Journée

 

Vote positif 0 Vote négatif

N

nomzamo

Guest

• 31 Octobre 2009

• #5

Re : incrémentation de cellules

Encore merci pour la réponse rapide.
Voila un exemple de ce que je cherche avec un fichier en pièce jointe (si j'ai réussi la manip...)

Amicalement,
Roger

 

Pièces jointes

• bull1.xls

  16 KB · Affichages: 52

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 31 Octobre 2009

• #6

Re : incrémentation de cellules

Re

Peut-être comme cela

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("A4, A8, D4, D8"), Target) Is Nothing Then
If Target = "" Or Not IsNumeric(Target) Then Exit Sub
Target.Offset(0, 1) = Target + Target.Offset(0, 1)
End If
End Sub

A tester
Bonne Journée

 

Vote positif 0 Vote négatif

N

nomzamo

Guest

• 31 Octobre 2009

• #7

Re : incrémentation de cellules

Impec Dull, c'est pile ce dont j'avais besoin et ça marche parfaitement.
Merci beaucoup et bonne journée,
Bien amicalement,
Roger

 

Vote positif 0 Vote négatif