comment incrementer le résultat d'un tableau

[krobar]

incrementer le résultat d'un tableau

Bonjour,
avec une macro
je souhaite recopier et incrémenter des valeurs variables depuis une cellule d'un tableau vers une autre feuille
Dans mon exemple:
clic gauche surligne une cellule du tableau et met sa valeur en B1
clic droit efface le sur lignage et vide la cellule B1
je cherche à copier les valeur de B1 sur la première ligne de la feuille "Résultats" à partir de B et quand je réinitialise le tableau via macro RAZ copier les valeurs sur la deuxième ligne, puis la troisième ,etc...

toutes mes recherches et essais ont été vains
je me perds dans les "Selection.End" et "ActiveCell.Offset"

A vous lire

 

[Catrice]

Re : comment incrementer le résultat d'un tableau

Bonjour,

Essaie ceci :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Cel As Range
If Intersect(Target, [B2:F6]) Is Nothing Then Exit Sub
Set Cel = Intersect(Target, [B2:F6])
If [A1] <> "" Then
Cel.Interior.ColorIndex = 6 'couleur case numéros choisis
Cel.Font.ColorIndex = 3 'couleur numéros choisis
[COLOR="Blue"]Sheets("Sélection").Range("B1").Value = ActiveCell.Value + Sheets("Sélection").Range("B1").Value[/COLOR]End If
End Sub

 

[krobar]

Re :incrementer le résultat d'un tableau

J'ai un peu trouvé un code pour la première ligne,
mais la cellule de la colonne B de la feuille Résultats doit être renseignée avant .(pas très grave)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveSheet.Name = ("Résultats") Then Exit Sub
Dim Cel As Range
If Intersect(Target, [B2:F6]) Is Nothing Then Exit Sub
Set Cel = Intersect(Target, [B2:F6])
If [A1] <> "" Then
Cel.Interior.ColorIndex = 6
Cel.Font.ColorIndex = 3
ActiveCell.Copy
Sheets("Résultats").Range("A1").End(xlToRight).Offset(0, 1).Value = ActiveCell.Value
Sheets("Sélection").Range("B1").Value = ActiveCell.Value
Application.CutCopyMode = False
End If
End Sub

 

[krobar]

Re :incrementer le résultat d'un tableau

Bonjour,
Je me suis remis sur ce classeur
J"ai trouvé en cherchant un peu partout.
Le code enregistre la sélection du tableau sans doublon
et quand je fais clic droit efface la sélection dans la feuille "Résultats".
Cela me convient mais je ne sais pas si mon code est correctement écrit
pour les nombreux spécialistes qualifiés de ce forum (ainsi que d'autres).

Je joint mon classeur pour ceux que cela intéresse.
Merci à tous.