Sous VBA, je trouve la dernière cellule non vide de la colonne "A"
et j'y inscrit la date en utilisant la ligne de commande suivante :
MaFeuille.Range("A65536").End(xlUp).Offset(1, 0) = Date
Jusque la tout va bien;
mais question :
Comme écrite dans la cellule immédiatement à sa droite de celle
trouvée initialement mais sans réutiliser la même fonction
End(xlUp) ?
a+
Jean-Pol DAVID
ICQ 28394733
--
Quis ? Quid ? Ubi ? Quibus auxiliis ? Cur ? Quomodo ? Quando ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
bonjour David,
Offset(ligne, colonne)
MaFeuille.Range("A65536").End(xlUp).Offset(1, 1) = Date
isabelle
Bonjour,
Sous VBA, je trouve la dernière cellule non vide de la colonne "A" et j'y inscrit la date en utilisant la ligne de commande suivante : MaFeuille.Range("A65536").End(xlUp).Offset(1, 0) = Date
Jusque la tout va bien; mais question : Comme écrite dans la cellule immédiatement à sa droite de celle trouvée initialement mais sans réutiliser la même fonction End(xlUp) ?
a+ Jean-Pol DAVID ICQ 28394733 -- Quis ? Quid ? Ubi ? Quibus auxiliis ? Cur ? Quomodo ? Quando ?
bonjour David,
Offset(ligne, colonne)
MaFeuille.Range("A65536").End(xlUp).Offset(1, 1) = Date
isabelle
Bonjour,
Sous VBA, je trouve la dernière cellule non vide de la colonne "A"
et j'y inscrit la date en utilisant la ligne de commande suivante :
MaFeuille.Range("A65536").End(xlUp).Offset(1, 0) = Date
Jusque la tout va bien;
mais question :
Comme écrite dans la cellule immédiatement à sa droite de celle
trouvée initialement mais sans réutiliser la même fonction
End(xlUp) ?
a+
Jean-Pol DAVID
ICQ 28394733
--
Quis ? Quid ? Ubi ? Quibus auxiliis ? Cur ? Quomodo ? Quando ?
MaFeuille.Range("A65536").End(xlUp).Offset(1, 1) = Date
isabelle
Bonjour,
Sous VBA, je trouve la dernière cellule non vide de la colonne "A" et j'y inscrit la date en utilisant la ligne de commande suivante : MaFeuille.Range("A65536").End(xlUp).Offset(1, 0) = Date
Jusque la tout va bien; mais question : Comme écrite dans la cellule immédiatement à sa droite de celle trouvée initialement mais sans réutiliser la même fonction End(xlUp) ?
a+ Jean-Pol DAVID ICQ 28394733 -- Quis ? Quid ? Ubi ? Quibus auxiliis ? Cur ? Quomodo ? Quando ?
David
"isabelle" a gravé pour l'éternité dans le message de news:
Offset(ligne, colonne) isabelle --
Bonjour,
Merci, mais comment affecter une valeur à ligne et à colonne au départ de MaFeuille.Range("A65536").End(xlUp).Offset(1, 1) ?
a+ Jean-Pol DAVID ICQ 28394733 -- Quis ? Quid ? Ubi ? Quibus auxiliis ? Cur ? Quomodo ? Quando ?
"isabelle" a gravé pour l'éternité dans le message de news:
Offset(ligne, colonne)
isabelle
--
Bonjour,
Merci, mais comment affecter une valeur à ligne et à colonne
au départ de MaFeuille.Range("A65536").End(xlUp).Offset(1, 1) ?
a+
Jean-Pol DAVID
ICQ 28394733
--
Quis ? Quid ? Ubi ? Quibus auxiliis ? Cur ? Quomodo ? Quando ?
"isabelle" a gravé pour l'éternité dans le message de news:
Offset(ligne, colonne) isabelle --
Bonjour,
Merci, mais comment affecter une valeur à ligne et à colonne au départ de MaFeuille.Range("A65536").End(xlUp).Offset(1, 1) ?
a+ Jean-Pol DAVID ICQ 28394733 -- Quis ? Quid ? Ubi ? Quibus auxiliis ? Cur ? Quomodo ? Quando ?
Patrick Catarsi
Le 29/02/04 16:28, dans 404204c1$0$776$, « David » a écrit :
"isabelle" a gravé pour l'éternité dans le message de news:
Offset(ligne, colonne) isabelle --
Bonjour,
Merci, mais comment affecter une valeur à ligne et à colonne au départ de MaFeuille.Range("A65536").End(xlUp).Offset(1, 1) ?
a+ Jean-Pol DAVID ICQ 28394733 -- Quis ? Quid ? Ubi ? Quibus auxiliis ? Cur ? Quomodo ? Quando ?
Slt
Possible: MaFeuille.Range("A65536").End(xlUp).Offset(1, 0).select ActiveCell = date ActiveCell.offset ( 0, 1) = ? Attention ta cellule active est maintenant changée. patrick
Le 29/02/04 16:28, dans 404204c1$0$776$ba620e4c@news.skynet.be, « David »
<david.sa@skynet.be> a écrit :
"isabelle" a gravé pour l'éternité dans le message de news:
Offset(ligne, colonne)
isabelle
--
Bonjour,
Merci, mais comment affecter une valeur à ligne et à colonne
au départ de MaFeuille.Range("A65536").End(xlUp).Offset(1, 1) ?
a+
Jean-Pol DAVID
ICQ 28394733
--
Quis ? Quid ? Ubi ? Quibus auxiliis ? Cur ? Quomodo ? Quando ?
Slt
Possible:
MaFeuille.Range("A65536").End(xlUp).Offset(1, 0).select
ActiveCell = date
ActiveCell.offset ( 0, 1) = ?
Attention ta cellule active est maintenant changée.
patrick
Le 29/02/04 16:28, dans 404204c1$0$776$, « David » a écrit :
"isabelle" a gravé pour l'éternité dans le message de news:
Offset(ligne, colonne) isabelle --
Bonjour,
Merci, mais comment affecter une valeur à ligne et à colonne au départ de MaFeuille.Range("A65536").End(xlUp).Offset(1, 1) ?
a+ Jean-Pol DAVID ICQ 28394733 -- Quis ? Quid ? Ubi ? Quibus auxiliis ? Cur ? Quomodo ? Quando ?
Slt
Possible: MaFeuille.Range("A65536").End(xlUp).Offset(1, 0).select ActiveCell = date ActiveCell.offset ( 0, 1) = ? Attention ta cellule active est maintenant changée. patrick
Pierre Fauconnier
Bonsoir
Set Cellule = Range("A65536").End(XlUp) Cellule = ... Cellule.Offset(0,1) = ... ou bien Cellule(1,2)=...
-- Cela convient-il? ---- Pierre Fauconnier "Si j'étais Dieu, je démissionnerais pour que les gens arrêtent de se battre en mon nom." (Le Chat...) (remplacer NOSPAM par pfi.be pour me répondre. Merci)
--- David wrote:
"isabelle" a gravé pour l'éternité dans le message de news:
Offset(ligne, colonne) isabelle --
Bonjour,
Merci, mais comment affecter une valeur à ligne et à colonne au départ de MaFeuille.Range("A65536").End(xlUp).Offset(1, 1) ?
a+ Jean-Pol DAVID ICQ 28394733
Bonsoir
Set Cellule = Range("A65536").End(XlUp)
Cellule = ...
Cellule.Offset(0,1) = ...
ou bien
Cellule(1,2)=...
--
Cela convient-il?
----
Pierre Fauconnier
"Si j'étais Dieu, je démissionnerais pour que les gens arrêtent de se battre
en mon nom." (Le Chat...)
(remplacer NOSPAM par pfi.be pour me répondre. Merci)
---
David wrote:
"isabelle" a gravé pour l'éternité dans le message de news:
Offset(ligne, colonne)
isabelle
--
Bonjour,
Merci, mais comment affecter une valeur à ligne et à colonne
au départ de MaFeuille.Range("A65536").End(xlUp).Offset(1, 1) ?
Set Cellule = Range("A65536").End(XlUp) Cellule = ... Cellule.Offset(0,1) = ... ou bien Cellule(1,2)=...
-- Cela convient-il? ---- Pierre Fauconnier "Si j'étais Dieu, je démissionnerais pour que les gens arrêtent de se battre en mon nom." (Le Chat...) (remplacer NOSPAM par pfi.be pour me répondre. Merci)
--- David wrote:
"isabelle" a gravé pour l'éternité dans le message de news:
Offset(ligne, colonne) isabelle --
Bonjour,
Merci, mais comment affecter une valeur à ligne et à colonne au départ de MaFeuille.Range("A65536").End(xlUp).Offset(1, 1) ?
a+ Jean-Pol DAVID ICQ 28394733
Frédéric Sigonneau
Bonsoir,
Tu pourrais "tricher" un peu :
With MaFeuille.Range("A65536").End(xlUp) .Offset(1, 0)Úte .Offset(1, 1)="autre chose" End With
Autre approche :
Dim cell As Range Set cell=MaFeuille.Range("A65536").End(xlUp) cell(2,1)Úte cell(2,2)="zaza"
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
David a écrit:
"isabelle" a gravé pour l'éternité dans le message de news:
Offset(ligne, colonne) isabelle
-- Bonjour,
Merci, mais comment affecter une valeur à ligne et à colonne au départ de MaFeuille.Range("A65536").End(xlUp).Offset(1, 1) ?
a+ Jean-Pol DAVID ICQ 28394733 -- Quis ? Quid ? Ubi ? Quibus auxiliis ? Cur ? Quomodo ? Quando ?
Bonsoir,
Tu pourrais "tricher" un peu :
With MaFeuille.Range("A65536").End(xlUp)
.Offset(1, 0)Úte
.Offset(1, 1)="autre chose"
End With
Autre approche :
Dim cell As Range
Set cell=MaFeuille.Range("A65536").End(xlUp)
cell(2,1)Úte
cell(2,2)="zaza"
FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !
David a écrit:
"isabelle" a gravé pour l'éternité dans le message de news:
Offset(ligne, colonne)
isabelle
--
Bonjour,
Merci, mais comment affecter une valeur à ligne et à colonne
au départ de MaFeuille.Range("A65536").End(xlUp).Offset(1, 1) ?
a+
Jean-Pol DAVID
ICQ 28394733
--
Quis ? Quid ? Ubi ? Quibus auxiliis ? Cur ? Quomodo ? Quando ?
With MaFeuille.Range("A65536").End(xlUp) .Offset(1, 0)Úte .Offset(1, 1)="autre chose" End With
Autre approche :
Dim cell As Range Set cell=MaFeuille.Range("A65536").End(xlUp) cell(2,1)Úte cell(2,2)="zaza"
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
David a écrit:
"isabelle" a gravé pour l'éternité dans le message de news:
Offset(ligne, colonne) isabelle
-- Bonjour,
Merci, mais comment affecter une valeur à ligne et à colonne au départ de MaFeuille.Range("A65536").End(xlUp).Offset(1, 1) ?
a+ Jean-Pol DAVID ICQ 28394733 -- Quis ? Quid ? Ubi ? Quibus auxiliis ? Cur ? Quomodo ? Quando ?