une macro a completer

[michel]

bonjour à tous ,
j'ai cette macro qui me rend un tres grand service. en fait, quand je double clique sur une cellule, ca me note 1 dans la cellule, et m'allimente une 2e feuille en rajoutant + 1 a chaque fois.
j'aimerais, qu'en enregistrant mon travail, à la fin, le remplissage du 1er tableau, efface le données que je viens de rentrer mais que ca garde le 2e tableau qui vient d'etre allimenté.

merci de votre aide

Michel

Sub DblClick()

Dim Ligne As Integer
Dim Colonne As Integer

Ligne = ActiveCell.Row
Colonne = ActiveCell.Column


Cells(Ligne, Colonne).Value = 1
Sheets("FeuilTotal").Cells(Ligne, Colonne).Value = Sheets("FeuilTotal").Cells(Ligne, Colonne).Value + 1




End Sub

 

[Michel_M]

Public endroit As String

Sub DblClick()

endroit = ActiveCell.Address

Range(endroit) = 1
Sheets("FeuilTotal").Range(endroit) = Sheets("FeuilTotal").Range(endroit) + 1

End Sub

----------------------------------------------

Sub essai()

Range(endroit) = ""
End Sub

-------------------------------------------

a toi d'adapter Range(endroit) = ""
à ton pb

d'autre part ne serait il pas prudent de limiter l'action du double clic à la zone "B6:K7" ?


--------------------------------------------

Enfin, on est de + en + de Michel sur ce forum , j'ai pris le pseudo Michel_M pour ne pas géner Michel (maintenant michel_xld) quand j'ai découvert ce forum. Donc.... mais tu n'es pas obligé !


Michel

 

[Robert]

Salut Michel , salut le forum,

Peut se faire avec ce code à placer dans ThisWorkbook. Il va agir lors de la fermeture du classeur :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Feuil1").Range("B6:K7").ClearContents
ActiveWorkbook.Save
End Sub

je me permet de te signaler que ta macro agit sur n'importe quelle cellule de la feuille, tu pourrais limiter cela en rajoutant une condition à l'exécution au niveau de l'événement bouble clic de la feuille :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B6:K7")) Is Nothing Then'condition
DblClick 'excécute la macro quand DoubleClick dans n'importe quelle cellule
End If'fin condition
End Sub

À plus,

Robert

 

[Robert]

Re Michel, le forum, salut Michel_M

Désolé j'avais pas actualisé...

À plus,

Robert