Ancien langage macro à remettre au goût du jour

Bonjour,
Je pense qu'il faut que je traduise certaines instructions en anglais, mais je n'arrive pas à tout traduire :

Sub Comptabilité()

Range("A6").Select
Selection.End(xlVersBas).Select
ActiveCell.Décaler(1;0).Range("A1").Select
ActiveCell.FormulaL1C1 = Now()
ActiveCell.Décaler(0;1).Range("A1").Select

End Sub

Bonjour,
Traduction sans la méthode Select et l'objet Selection, parfaitement inutile en VBA, mais il ne faut pas oublier d'ajouter la parentalité de l'objet Range au risque d'écraser des données de la feuille active si ce n'est pas la bonne

Code:

---

1 2 3 4

Sub t() Range("A6").End(xlDown).Offset(1, 0).Formula2R1C1 = Now() ActiveCell.Offset(0, 1).Range("A1").Select End Sub

---

exact, j'ai écrit select au lieu de selection.
ça y est, ça fonctionne !
Merci beaucoup.

Par contre, je ne comprends pas l'intervention de la cellule A1

Bonjour, perso j'utiliserais xlUp au lieu de xlDown. En effet, s'il y a une cellule vide dans la colonne, c'est là que ta date sera insérée. Ensuite, je ne vois pas l'intérêt d'utiliser .FormulaL1C1 alors que now() retourne une valeur directe. Si aucune cellule n’est activement sélectionnée, le ActiveCell peut être hors de portée. Pour toutes ces raisons, voici ma proposition:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Comptabilité() Dim ws As Worksheet Dim lastRow As Long   Set ws = ThisWorkbook.Sheets("Feuil1") ' adapte selon ton besoin lastRow = Application.WorksheetFunction.Max(6, ws.Cells(ws.Rows.Count, 1).End(xlUp).Row + 1)   With ws .Cells(lastRow, 1).Value = Now() End With End Sub

---

OK, merci Franc ! Par contre, tu pourrais me dire la raison de l'intervention de la cellule A1 dans la 1ère écriture ?

Non, je n'en vois pas l'utilité. Sauf si tu as une raison particulière de vouloir te positionner dessus.

Merci encore Philippe, mais tu pourrais m'expliquer la logique de la présence de la cellule A1 dans la macro ? Merci, je voudrais juste comprendre.

Bonjour,

l'utilisation de Range("A1") dans un objet Range (c'est à dire après un point précédé par un objet Range) signifie de prendre la cellule 1ère ligne et 1ère colonne de cette plage

donc en effet, dans

Code:

---

ActiveCell.Offset(0, 1).Range("A1").Select

---

Range("A1") est inutile car il n'y a qu'une cellule dans Activecell.offset(0,1), donc ça peut s'écrire

Code:

---

ActiveCell.Offset(0, 1).Select

---

Par contre, dans une écriture du type

Code:

---

Range("B15:O25").Range("A1")

---

ça pointerait sur seulement la cellule B15

Merci Tototiti, c'est plus clair dans mon esprit, maintenant, bonne journée à toi.