Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel SVP, Comment corriger cette macro ?

SVP, Comment corriger cette macro ?

3 réponses
Avatar
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"
Signaler un problème avec ce contenu

3 réponses

Supprimer
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
Avatar
E KERGRESSE
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." a écrit dans le 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"




Avatar
Philippe.R
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." a écrit dans le 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"




Avatar
Iznogood
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." a écrit dans le
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"





.