Etant de retour sur forum après une longue absence je découvre que beaucoup
de choses ont changées. Les procédures d'accès se sont relativement
compliquées.
Il y a quelques heures, j'ai envoyé une question, ne la voyant pas
s'afficher je me demande si elle a été effectivement expédiée.
Un exemple pour B; il suffit de remplacer la lettre de la colonne :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim c As Range For Each c In Target If IsNumeric(Cells(c.Row, "B")) Then Cells(c.Row, "B") = Cells(c.Row, "B") - 1 End If Next c End Sub
Cordialement. Daniel
> Une dernière question - Si je peux me permettre. > Si je décide de mettre mes compteurs dans une autre colonne que "A" (Mettons > en colonne "B" ou "C") comment dois-je faire ? > Merci
C'est bon, merci
--
izmi
"Daniel.C" wrote:
Un exemple pour B; il suffit de remplacer la lettre de la colonne :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Range
For Each c In Target
If IsNumeric(Cells(c.Row, "B")) Then
Cells(c.Row, "B") = Cells(c.Row, "B") - 1
End If
Next c
End Sub
Cordialement.
Daniel
> Une dernière question - Si je peux me permettre.
> Si je décide de mettre mes compteurs dans une autre colonne que "A" (Mettons
> en colonne "B" ou "C") comment dois-je faire ?
> Merci
Un exemple pour B; il suffit de remplacer la lettre de la colonne :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim c As Range For Each c In Target If IsNumeric(Cells(c.Row, "B")) Then Cells(c.Row, "B") = Cells(c.Row, "B") - 1 End If Next c End Sub
Cordialement. Daniel
> Une dernière question - Si je peux me permettre. > Si je décide de mettre mes compteurs dans une autre colonne que "A" (Mettons > en colonne "B" ou "C") comment dois-je faire ? > Merci
