Attribution automatique de chiffre

[newmacroman]

Bonjour à tous,

Je suis débutant en macro et je rencontre un problème...
J'aimerais donc un tableau donné (C4😀L4,C39😀L39) attribuer un numéro à la case où je clique.

EX: je clique en C18, le numéro 1 s'affiche
Je clique en AD25, le numéro 2 s'affiche
Je clique en BF36, le numéro 3 s'affiche
...

Par contre si je clique en B4 (hors du tableau), rien ne s'affiche...

Je sais que c'est un peu vague mais là, je suis perdu...

Une telle macro est-elle possible ? Comment faire ?

Merci de votre aide.

 

[fanfan38]

Re : Attribution automatique de chiffre

Bonjour
Oui c'est possible...
mais...
dans un tableau c4:l4 (ligne 4) et c39:l39 (ligne 39) il n'y a pas c18, ni ad25, ni bf36...
Bref, j'ai pas tout compris....

A+ François

 

[piga25]

Re : Attribution automatique de chiffre

Bonjour,

Si j'ai bien compris un essai avec ceci

 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'au double-clic dasns une cellule
'si le double-clic a lieu ailleurs que dans la plage des cellules éditées, sort de la procédure
If Application.Intersect(Range("C4:DL39"), Target) Is Nothing Then Exit Sub
Cancel = True 'évite le mode édition lié au double-clic
Range("A1") = Range("A1") + 1 ' incrémente la cellule A1 de + 1
ActiveCell = Range("A1") 'copie la valeur de A1
End Sub

 

[mapomme]

Re : Attribution automatique de chiffre

Bonjour à tous,

Une autre manière?:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Not Intersect(Range("D4:AM39"), Target) Is Nothing Then
    Target = WorksheetFunction.Max(Range("D4:AM39")) + 1
    Cancel = True
  End If
End Sub

 

[Habitude]

Re : Attribution automatique de chiffre

Bonjour

Une fois au numéro 9
Si tu décide de supprimé 3

Le prochain sera 10 ou 3 ?

 

[newmacroman]

Re : Attribution automatique de chiffre

Salut et merci à tous de votre aide !

piga25, en deux mots, tu déchires !
Merci beaucoup à toi et à tous ceux qui ont aidé !

Bonne soirée à tous