pb de cellule active

[maelys]

bonjour
je souhaite lorsqu on appuie sur une cellule rendre une feuille active et recopier quelques valeurs de la premiere feuille
pour le moment j ai ca comme code:
Sub Botón277_AlHacerClic()
Worksheets("limpieza").Activate

Dim derligne As Integer, j As Integer
derligne = Sheets("limpieza").Range("B65536").End(xlUp).Row
j = ActiveCell.Row


Sheets("limpieza").Cells(derligne + 1, 2).Value = Sheets("operacion").Cells(j, 2).Value
Sheets("limpieza").Cells(derligne + 1, 3).Value = Sheets("operacion").Cells(j, 3).Value
Sheets("limpieza").Cells(derligne + 1, 4).Value = Sheets("operacion").Cells(j, 4).Value

End Sub

le pb c est kil ne fonctionne je pense que c est du a l expression du j car la cellule active doit etre presente dans la feuille active auriez vous une idee??
merci d avance

 

[Hervé]

Re : pb de cellule active

Bonjour

sans avoir testé, supprime cette ligne :


Worksheets("limpieza").Activate

tu n'a pas besoin de sélectionner une feuille pour travailler dessus.

de plus, activecell fait référence à la cellule active de la feuille active.

salut

 

[ERIC S]

Re : pb de cellule active

Bonjour Maelys et Hervé

Maelys, cela fait suite à ton pb d'hier

as-tu décidé de supprimer les boutons? (pour solution avec boutons regarde ce que je t'ai répondu ce matin

pour solution sans bouton

fenêtre vba tu vas sélectionner ta feuille de départ (et non un module)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Address
Case "$A$1"
Call appui(1)
Case "$A$2"
Call appui(2)
End Sub

A adapter
pour la macro appui

Sub appui(j)

Dim derligne As Integer
derligne = Sheets("limpieza").Range("B65536").End(xlUp).Row

Sheets("limpieza").Cells(derligne + 1, 2).Value = Sheets("operacion").Cells(j, 2).Value
Sheets("limpieza").Cells(derligne + 1, 3).Value = Sheets("operacion").Cells(j, 3).Value
Sheets("limpieza").Cells(derligne + 1, 4).Value = Sheets("operacion").Cells(j, 4).Value

End Sub

A+