SVP, Comment corriger cette macro ?

Le
Caroline L.
Bonjour,

j'aurais besoin d'aide pour adapter la section suivante d'une macro. Le
résultat souhaité est d'aller à la dernière ligne de caractère (texte ou
nombre) et de supprimer. Le problème c'est que la destination peut varier
d'une fois à l'autre et que dans l'enregistrement de ma macro, l'adresse de
la dernière cellule est enregistré malgré que je fais aller à C65500 et
Ctrl+flèche haut.
Ensuite, je me déplace dans la cellule à côté (dans la colonne D) et je
supprime
Voici un bout de cette macro (ci-dessous).
Pouvez-vous me dire ce qui solutionnerait mon problème.
Merci beaucoup.

Application.Goto Reference:="R65500C3"
Selection.End(xlUp).Select
Selection.ClearContents
Range("D18").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-17
Application.Goto Reference:="R7C1"
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
E KERGRESSE
Le #1247022
Salut Caroline,

Essaye ce code.

Activesheet.Range("C65536").End(xlUp).select
Selection.ClearContents
Activecell.offset(0,1).select 'j'imagine qu'il s'agit de la cellule "D18"
Selection.ClearContents
Range("A7").Select ' J'imagine que tu te déplaces à cette
cellule.

Cordialement.


"Caroline L." NZvfc.24111$
Bonjour,

j'aurais besoin d'aide pour adapter la section suivante d'une macro. Le
résultat souhaité est d'aller à la dernière ligne de caractère (texte ou
nombre) et de supprimer. Le problème c'est que la destination peut varier
d'une fois à l'autre et que dans l'enregistrement de ma macro, l'adresse
de

la dernière cellule est enregistré malgré que je fais aller à C65500 et
Ctrl+flèche haut.
Ensuite, je me déplace dans la cellule à côté (dans la colonne D) et je
supprime...
Voici un bout de cette macro (ci-dessous).
Pouvez-vous me dire ce qui solutionnerait mon problème.
Merci beaucoup.

Application.Goto Reference:="R65500C3"
Selection.End(xlUp).Select
Selection.ClearContents
Range("D18").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-17
Application.Goto Reference:="R7C1"




Philippe.R
Le #1247020
Bonjour Caroline,

Voici un bout de code qui, si j'ai bien compris, fait ce que tu souhaites :

Sub viderlig()
'MPFE le 15/04/2004
Dim dEr As Long
dEr = Range("d65536").End(xlUp).Row
Range(Cells(dEr, 3), Cells(dEr, 4)).Clear
End Sub

--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002

"Caroline L." news:NZvfc.24111$
Bonjour,

j'aurais besoin d'aide pour adapter la section suivante d'une macro. Le
résultat souhaité est d'aller à la dernière ligne de caractère (texte ou
nombre) et de supprimer. Le problème c'est que la destination peut varier
d'une fois à l'autre et que dans l'enregistrement de ma macro, l'adresse de
la dernière cellule est enregistré malgré que je fais aller à C65500 et
Ctrl+flèche haut.
Ensuite, je me déplace dans la cellule à côté (dans la colonne D) et je
supprime...
Voici un bout de cette macro (ci-dessous).
Pouvez-vous me dire ce qui solutionnerait mon problème.
Merci beaucoup.

Application.Goto Reference:="R65500C3"
Selection.End(xlUp).Select
Selection.ClearContents
Range("D18").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-17
Application.Goto Reference:="R7C1"




Iznogood
Le #1246384
et un truc du genre

Range("D18:D" & Range
("D18").CurrentRegion.Rows.Count).ClearContents

?


-----Message d'origine-----
Bonjour Caroline,

Voici un bout de code qui, si j'ai bien compris, fait ce
que tu souhaites :


Sub viderlig()
'MPFE le 15/04/2004
Dim dEr As Long
dEr = Range("d65536").End(xlUp).Row
Range(Cells(dEr, 3), Cells(dEr, 4)).Clear
End Sub

--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002

"Caroline L." message de

news:NZvfc.24111$
Bonjour,

j'aurais besoin d'aide pour adapter la section suivante
d'une macro. Le


résultat souhaité est d'aller à la dernière ligne de
caractère (texte ou


nombre) et de supprimer. Le problème c'est que la
destination peut varier


d'une fois à l'autre et que dans l'enregistrement de ma
macro, l'adresse de


la dernière cellule est enregistré malgré que je fais
aller à C65500 et


Ctrl+flèche haut.
Ensuite, je me déplace dans la cellule à côté (dans la
colonne D) et je


supprime...
Voici un bout de cette macro (ci-dessous).
Pouvez-vous me dire ce qui solutionnerait mon problème.
Merci beaucoup.

Application.Goto Reference:="R65500C3"
Selection.End(xlUp).Select
Selection.ClearContents
Range("D18").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-17
Application.Goto Reference:="R7C1"





.




Publicité
Poster une réponse
Anonyme