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