(Résolu) Retour à une cellule

[Cougar]

Bonjour,

J'ai une cellule dont je prends l'adresse (adressecellule = ActiveCell.Address(0, 0)), je me déplace dans le tableau et je ne sais pas comme revenir à mon point de départ (adressecellule), comment écrire le code pour que la cellule active soit de nouveau (adressecellule). J'ai le message Erreur de compilation, Sub, Fonction ou Property attendu.

Voir fichier joint.

Merci

 

[kjin]

Re : Retour à une cellule

Bonjour,
Supprimé en accord avec moi-même
A+
kjin

 

[Cougar]

Re : (Résolu) Retour à une cellule

Bonjour,

Par cette macro, je dois trouver toutes les cellules ayant une valeur négative dans mon tableau. Il me reste à trouver comment retourner à la première cellule d'une colonne car Range(ActiveCell, ActiveCell.End(xlUp)).Select ne fonctionne pour mon cas.

Voici donc ce que j'ai pour le moment :

Private Sub CommandButton1_Click()
Dim ref As Range

Vérification:
With Sheets("Matières premières")
Worksheets("Matières premières").Activate
Range("e3").Activate
Do Until ActiveCell = ""
If ActiveCell.Value < 0 Then
Set ref = ActiveCell
ActiveCell.Copy
With Sheets("à acheter")
Worksheets("à acheter").Activate
Range("c65536").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End With

Worksheets("Matières premières").Activate
Range(ActiveCell, ActiveCell.End(xlToLeft)).Select
ActiveCell.Offset(-1, 0).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Copy

With Sheets("à acheter")
Worksheets("à acheter").Activate
Range("a65536").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End With

With Sheets("Matières premières")
Worksheets("Matières premières").Activate
ref.Select
Range(ActiveCell, ActiveCell.End(xlUp)).Select
ActiveCell.Offset(-1, 0).Select
ActiveCell.Offset(0, -1).Select
ActiveCell.Copy
With Sheets("à acheter")
Worksheets("à acheter").Activate
Range("b65536").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End With
Worksheets("Matières premières").Activate
ref.Select
ActiveCell.Offset(1, 0).Activate
End With
Else
ActiveCell.Offset(1, 0).Activate
End If
Loop
End With

Range(ActiveCell, ActiveCell.End(xlUp)).Activate 'à corriger
ActiveCell.Offset(2, 0).Select
ActiveCell.Offset(0, 2).Select

If ActiveCell = "" Then
Exit Sub
Else
GoTo Vérification
End If

End Sub

Merci