(Résolu) Retour à une cellule

Cougar

XLDnaute Impliqué
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
 

Pièces jointes

  • Test cougar.xlsm
    59 KB · Affichages: 34
  • Test cougar.xlsm
    59 KB · Affichages: 39
  • Test cougar.xlsm
    59 KB · Affichages: 35
Dernière édition:

Cougar

XLDnaute Impliqué
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
 
Dernière édition:

Discussions similaires