Discussion :

[fred62200]

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

[Philippe Tulliez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[fred62200]

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

[fred62200]

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

[Franc]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[fred62200]

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

[Franc]

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

[tototiti2008]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveCell.Offset(0, 1).Select

Par contre, dans une écriture du type

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

ça pointerait sur seulement la cellule B15

[fred62200]

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