je cherche une macro

L

Ludwig

Guest

• 23 Mars 2004

• #2

Bonjour Michel,

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

A bientôt

Ludwig

 

Pièces jointes

• tabl1V1.zip

  10.9 KB · Affichages: 14

Vote positif 0 Vote négatif

M

michel

Guest

• 23 Mars 2004

• #3

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

 

Vote positif 0 Vote négatif

L

Ludwig

Guest

• 23 Mars 2004

• #4

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

 

Vote positif 0 Vote négatif

M

michel

Guest

• 23 Mars 2004

• #5

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

et merci encore

michel

 

Vote positif 0 Vote négatif

M

michel

Guest

• 23 Mars 2004

• #6

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

 

Vote positif 0 Vote négatif

L

Ludwig

Guest

• 23 Mars 2004

• #7

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

 

Vote positif 0 Vote négatif

L

Ludwig

Guest

• 23 Mars 2004

• #8

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

 

Vote positif 0 Vote négatif

M

michel

Guest

• 23 Mars 2004

• #9

re re bonjour,

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


Merci

Michel

 

Vote positif 0 Vote négatif

L

Ludwig

Guest

• 23 Mars 2004

• #10

Re bonjour Michel,

Voici ton fichier exemple modifié.

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

A bientôt

Ludwig

 

Pièces jointes

• tabl1V2.zip

  12 KB · Affichages: 15

Vote positif 0 Vote négatif

M

michel

Guest

• 23 Mars 2004

• #11

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

Michel

 

Vote positif 0 Vote négatif