Ajouter +1 dans PLUSIEURS colonne, rien qu'en cliquant
S
Bonjour,
J'essaye de mettre le code de sorte à ce qu'en appuyant sur la cellule, un +1 s'ajoute. J'ai trouvé ce code sur le Forum :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Macro dan pour Gaelle le 15/11/2009
'http://www.excel-pratique.com/forum/viewtopic.php?t=14159
Dim dval As Integer
If Not Intersect(Target, Columns(5)) Is Nothing Then
dval = Target Target = dval + 1
End If
End Sub
Comment puis-je mettre la fonction dans plusieurs colonne et non dans la 5?
seule la colonne 5 est activé et je ne connais le codage pour l'appliquer sur plusieurs en même temps comme la 5,6,7,8 etc.
Merci à vous.
Bonjour
If Not Intersect(Target, Columns(5).Resize(, 4)) Is Nothing Then