je cherche une macro

[michel]

bonjour. j'ai besoin de votre aide.
je cherche une macro qui, quand j'alimente un tableau, me rempli un autre sans que le total de ce dernier ne s'efface ou reparte à 0.

merci de votre aide

michel

 

[Ludwig]

Bonjour Michel,

J'espère que cela te conviendra (cf fichier joint)

A bientôt

Ludwig

 

[michel]

merci de ton aide. je recherche la macro que tu as fait car l'exemple n'est qu'une partie du tableau original. je voudrais donc l'appliquer a celui-ci. et est il possible (j'abuse) lorsque l'on dble clique sur la cellule que cela note 1 dans la case selectionnée. et de plus que cela s'applique de a1 a am55.

je te remercie car c'est déjà SUPER ENORME l'aide que tu m'as apporté.

Michel

 

[Ludwig]

Re bonjour Michel

Voici la macro. Les pros du VBA qui passeront par là te trouveront surement un truc beaucoup mieux mais en attendant...

Private Sub DblClick()

Dim Ligne As Integer
Dim Colonne As Integer

Ligne = ActiveCell.Row
Colonne = ActiveCell.Column

On Error Resume Next
Cells(Ligne, Colonne).Value = 1
Sheets("FeuilTotal").Cells(Ligne, Colonne).Value = Sheets("FeuilTotal").Cells(Ligne, Colonne).Value + 1

Range("A1").Select

End Sub

J'espère que ça te conviendra. Sinon n'hésite surtout pas.

Ludwig

 

[michel]

ludwig, je te remercie de ton aide précieuse.
a bientot

et merci encore

michel

 

[michel]

re bonjour ludwig,
existe t il un truc pour, plutot que d'afficher un userform, que quand on clique sur une cellule ca te note "1" et que cela incrémente le 2e tableau?
merci encore
Michel

 

[Ludwig]

Re bonjour Michel

Dans la déclaration de la feuille 1 ...

<g>Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
DblClick
End Sub</g>

... et place le code de la macro DblClick dans un module.

<g>Sub DblClick()

Dim Ligne As Integer
Dim Colonne As Integer

Ligne = ActiveCell.Row
Colonne = ActiveCell.Column

On Error Goto fin
Cells(Ligne, Colonne).Value = 1
Sheets("FeuilTotal").Cells(Ligne, Colonne).Value = Sheets("FeuilTotal").Cells(Ligne, Colonne).Value + 1

fin:
Range("A1").Select

End Sub</g>

A bientôt

Ludwig

 

[Ludwig]

Re,

J'ai voulu mettre en gras le code à ajouter mais ça n'a pas marché donc ne prends pas en compte les <g> et les </g>.


Ludwig

 

[michel]

re re bonjour,

ca ne fonctionne pas (ou je m'y prends certainement très mal). peux tu modifier le tableau exemple?


Merci

Michel

 

[Ludwig]

Re bonjour Michel,

Voici ton fichier exemple modifié.

J'espère que cela te conviendra...

A bientôt

Ludwig

 

[michel]

ludwig tu es EXTRAORDINAIRE. c'est tout à fait ca. GENIAL....
merci encore de ton aide précieuse

Michel