pb de cellule active

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

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+