Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel effacer la derniere ligne

effacer la derniere ligne

9 réponses
Avatar
claude HERRMANN
Bonjour,


Dans un fichier je voudrais ecrire une macro pour effacer la derniere ligne
remplie entre lescolonnes A à F
Je connais déja cette dernier ligne par la fonction NVVAL(). je m'en sers
pour ajouter


Une deuxieme macro pour effacer entre les colonnes A à F , le n° de ligne
etant pointé par la souris.


Merci d'avance
Claude
Signaler un problème avec ce contenu

9 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
LSteph
Bonsoir Claude,
Sous réserve d'avoir bien compris
...par la fonction NVVAL().
tu voulais sûrement dire nbval qui dénombre les valeurs

...., le n° de ligne etant pointé par la souris. ???

...pour effacer la derniere ligne remplie entre lescolonnes A à F
!!!(incluses)



Pour cela en VBA voici une possibilité qui suppose que au moins A est
toujours rempli:

Sub delrowAFlast()
[a65536].End(xlUp).Select
Rows(ActiveCell.Row).Range(Cells(1), _
Cells(6)).Delete (xlUp)
End Sub


'lSteph

"claude HERRMANN" a écrit dans le message de
news: uLg%
Bonjour,


Dans un fichier je voudrais ecrire une macro pour effacer la derniere
ligne remplie entre lescolonnes A à F
Je connais déja cette dernier ligne par la fonction NVVAL(). je m'en sers
pour ajouter


Une deuxieme macro pour effacer entre les colonnes A à F , le n° de ligne
etant pointé par la souris.


Merci d'avance
Claude



Avatar
claude HERRMANN
Bonsoir LSteph,
Ce n'est pas la premiere fois que tu me depanne, et j'en t'en remercie
particulierement.
Ta macro est impécabel pour effacer la derniere ligne.

Je n'ai sans doute pas ete très clair. Il y avait en réalité deux
question......pour le prix d'une.
La première est maintenant résolue.
Pour la deuxieme il s'agit egalement d'effacer les 6 colonnes a droite; sauf
qu'il ne s'agit pas de la derniere ligne mais d'une ligne dont je pointe la
cellule de la colonne A ; ou toute procedure de ce type.
On peut aussi imaginer la selection des 6 colonnes , sans effacer,pour
permettre de scroller la ligne recerhchée et de valider dans un deuxieme
temps.

Cette procedure pour permettre à un beotien de tenir la base à jour sans
degats.

Cordialement
Claude HERRMANN



"LSteph" a écrit dans le message de news:

Bonsoir Claude,
Sous réserve d'avoir bien compris
...par la fonction NVVAL().
tu voulais sûrement dire nbval qui dénombre les valeurs

...., le n° de ligne etant pointé par la souris. ???

...pour effacer la derniere ligne remplie entre lescolonnes A à F
!!!(incluses)



Pour cela en VBA voici une possibilité qui suppose que au moins A est
toujours rempli:

Sub delrowAFlast()
[a65536].End(xlUp).Select
Rows(ActiveCell.Row).Range(Cells(1), _
Cells(6)).Delete (xlUp)
End Sub


'lSteph

"claude HERRMANN" a écrit dans le message de
news: uLg%
Bonjour,


Dans un fichier je voudrais ecrire une macro pour effacer la derniere
ligne remplie entre lescolonnes A à F
Je connais déja cette dernier ligne par la fonction NVVAL(). je m'en sers
pour ajouter


Une deuxieme macro pour effacer entre les colonnes A à F , le n° de ligne
etant pointé par la souris.


Merci d'avance
Claude







Avatar
LSteph
...Re,
Pour la deuxieme il s'agit egalement d'effacer les 6 colonnes a droite;
sauf qu'il ne s'agit pas de la derniere ligne mais d'une ligne dont je
pointe la cellule de la colonne A ; ou toute procedure de ce type.



Désolé Claude je ne comprends pas à droite de quoi ni de où à où sur quel
critère

6 colonnes en partant de A signifierait que la première macro serait inutile
puisque cette seconde viserait non plus à supprimer une ligne de tableau
mais tout depuis A donc jusqu'à F !???
Peux-tu expliquer plus précisément ou sinon mettre un exemple
sur http://cjoint.com/

A+ (demain sans doute)

lSteph

Avatar
claude HERRMANN
Bonjour LSteph
Je vais essayer d'être plus clair.
La macro que tu m'as concocté efface les contenus de la dernière ligne
utilisée dans la base de données et cela entre les colonnes A à F.

La deuxième macro doit effacer les contenus entre les colonnes B à F ( oui
j'ai changé car je veux laisser le n° d'ordre en A). Cela pour une ligne à
désigner. Après tout je pense que le n° de la ligne pourrai faire l'objet
d'une boite de dialogue tout simplement. J'avois imaginé de la pointer, mais
cela doit être plus difficile et n'apporte aucun confort supplémentaire.
A+ et merci
Claude





"LSteph" a écrit dans le message de news:

...Re,
Pour la deuxieme il s'agit egalement d'effacer les 6 colonnes a droite;
sauf qu'il ne s'agit pas de la derniere ligne mais d'une ligne dont je
pointe la cellule de la colonne A ; ou toute procedure de ce type.



Désolé Claude je ne comprends pas à droite de quoi ni de où à où sur quel
critère

6 colonnes en partant de A signifierait que la première macro serait
inutile
puisque cette seconde viserait non plus à supprimer une ligne de tableau
mais tout depuis A donc jusqu'à F !???
Peux-tu expliquer plus précisément ou sinon mettre un exemple
sur http://cjoint.com/

A+ (demain sans doute)

lSteph




Avatar
LSteph
Bonjour Claude,
Crois avoir compris donc
...à moins que tu ne veuilles...sur dblclic en colonne A supprimer
a:f de la ligne correspondant à la cellule visée:
Attention! le reste (en dessous va remonter de a:f).
Pour mettre ce code que tu vas copier ctrl+c depuis '**** jusqu'à '****,
dans excel clic droit sur onglet de la feuille
puis visualiser le code
puis coller (ctrl+v)
fermer la fenêtre Microsoft VBasic

'****
Private Sub Worksheet_BeforeDoubleClick(ByVal _
Target As Range, Cancel As Boolean)
If Not Intersect(Target, [a:a]) Is Nothing Then
Rows(Target.Row).Range(Cells(1), _
Cells(6)).Delete (xlUp)
End If
End Sub
'****
'lSteph


"claude HERRMANN" a écrit dans le message de
news:
Bonsoir LSteph,
Ce n'est pas la premiere fois que tu me depanne, et j'en t'en remercie
particulierement.
Ta macro est impécabel pour effacer la derniere ligne.

Je n'ai sans doute pas ete très clair. Il y avait en réalité deux
question......pour le prix d'une.
La première est maintenant résolue.
Pour la deuxieme il s'agit egalement d'effacer les 6 colonnes a droite;
sauf qu'il ne s'agit pas de la derniere ligne mais d'une ligne dont je
pointe la cellule de la colonne A ; ou toute procedure de ce type.
On peut aussi imaginer la selection des 6 colonnes , sans effacer,pour
permettre de scroller la ligne recerhchée et de valider dans un deuxieme
temps.

Cette procedure pour permettre à un beotien de tenir la base à jour sans
degats.

Cordialement
Claude HERRMANN



"LSteph" a écrit dans le message de news:

Bonsoir Claude,
Sous réserve d'avoir bien compris
...par la fonction NVVAL().
tu voulais sûrement dire nbval qui dénombre les valeurs

...., le n° de ligne etant pointé par la souris. ???

...pour effacer la derniere ligne remplie entre lescolonnes A à F
!!!(incluses)



Pour cela en VBA voici une possibilité qui suppose que au moins A est
toujours rempli:

Sub delrowAFlast()
[a65536].End(xlUp).Select
Rows(ActiveCell.Row).Range(Cells(1), _
Cells(6)).Delete (xlUp)
End Sub


'lSteph

"claude HERRMANN" a écrit dans le message de
news: uLg%
Bonjour,


Dans un fichier je voudrais ecrire une macro pour effacer la derniere
ligne remplie entre lescolonnes A à F
Je connais déja cette dernier ligne par la fonction NVVAL(). je m'en
sers pour ajouter


Une deuxieme macro pour effacer entre les colonnes A à F , le n° de
ligne etant pointé par la souris.


Merci d'avance
Claude











Avatar
LSteph
Re,
Pigé,
mon post de 9h03 ne convient donc pas
alors en fait il faut effacer le contenu et non supprimer les cellules et de
B:F
on procèdera donc si cela te convient ainsi sur dblclic en A
Clic droit sur l'onglet de ta feuille visualiser le code
dans le code de la feuille coller ceci puis fermer VB:

'***
Private Sub Worksheet_BeforeDoubleClick(ByVal _
Target As Range, Cancel As Boolean)
If Not Intersect(Target, [a:a]) Is Nothing Then
Rows(Target.Row).Range(Cells(2), _
Cells(6)).ClearContents
End If
End Sub
'***

'lSteph


"claude HERRMANN" a écrit dans le message de
news:
Bonjour LSteph
Je vais essayer d'être plus clair.
La macro que tu m'as concocté efface les contenus de la dernière ligne
utilisée dans la base de données et cela entre les colonnes A à F.

La deuxième macro doit effacer les contenus entre les colonnes B à F ( oui
j'ai changé car je veux laisser le n° d'ordre en A). Cela pour une ligne à
désigner. Après tout je pense que le n° de la ligne pourrai faire l'objet
d'une boite de dialogue tout simplement. J'avois imaginé de la pointer,
mais cela doit être plus difficile et n'apporte aucun confort
supplémentaire.
A+ et merci
Claude





"LSteph" a écrit dans le message de news:

...Re,
Pour la deuxieme il s'agit egalement d'effacer les 6 colonnes a droite;
sauf qu'il ne s'agit pas de la derniere ligne mais d'une ligne dont je
pointe la cellule de la colonne A ; ou toute procedure de ce type.



Désolé Claude je ne comprends pas à droite de quoi ni de où à où sur quel
critère

6 colonnes en partant de A signifierait que la première macro serait
inutile
puisque cette seconde viserait non plus à supprimer une ligne de tableau
mais tout depuis A donc jusqu'à F !???
Peux-tu expliquer plus précisément ou sinon mettre un exemple
sur http://cjoint.com/

A+ (demain sans doute)

lSteph








Avatar
claude HERRMANN
Bonjour LSteph,

Selon ton explication tu as bien compris. je veux effacer .
Si je double clique sur A21005 je veux effacer les cellules B21005 à F21005.
La ligne avec le n° d'ordre en A21005 doit rester pour ne pas modifier les
lignes inférieures.
J'ai essayé tes 2 macros que j'ai mis dans le Workbook du classeur, mais
cela ne marche pas.

A+ svp
Claude






"LSteph" a écrit dans le message de news:

Bonjour Claude,
Crois avoir compris donc
...à moins que tu ne veuilles...sur dblclic en colonne A supprimer
a:f de la ligne correspondant à la cellule visée:
Attention! le reste (en dessous va remonter de a:f).
Pour mettre ce code que tu vas copier ctrl+c depuis '**** jusqu'à '****,
dans excel clic droit sur onglet de la feuille
puis visualiser le code
puis coller (ctrl+v)
fermer la fenêtre Microsoft VBasic

'****
Private Sub Worksheet_BeforeDoubleClick(ByVal _
Target As Range, Cancel As Boolean)
If Not Intersect(Target, [a:a]) Is Nothing Then
Rows(Target.Row).Range(Cells(1), _
Cells(6)).Delete (xlUp)
End If
End Sub
'****
'lSteph


"claude HERRMANN" a écrit dans le message de
news:
Bonsoir LSteph,
Ce n'est pas la premiere fois que tu me depanne, et j'en t'en remercie
particulierement.
Ta macro est impécabel pour effacer la derniere ligne.

Je n'ai sans doute pas ete très clair. Il y avait en réalité deux
question......pour le prix d'une.
La première est maintenant résolue.
Pour la deuxieme il s'agit egalement d'effacer les 6 colonnes a droite;
sauf qu'il ne s'agit pas de la derniere ligne mais d'une ligne dont je
pointe la cellule de la colonne A ; ou toute procedure de ce type.
On peut aussi imaginer la selection des 6 colonnes , sans effacer,pour
permettre de scroller la ligne recerhchée et de valider dans un deuxieme
temps.

Cette procedure pour permettre à un beotien de tenir la base à jour sans
degats.

Cordialement
Claude HERRMANN



"LSteph" a écrit dans le message de news:

Bonsoir Claude,
Sous réserve d'avoir bien compris
...par la fonction NVVAL().
tu voulais sûrement dire nbval qui dénombre les valeurs

...., le n° de ligne etant pointé par la souris. ???

...pour effacer la derniere ligne remplie entre lescolonnes A à F
!!!(incluses)



Pour cela en VBA voici une possibilité qui suppose que au moins A est
toujours rempli:

Sub delrowAFlast()
[a65536].End(xlUp).Select
Rows(ActiveCell.Row).Range(Cells(1), _
Cells(6)).Delete (xlUp)
End Sub


'lSteph

"claude HERRMANN" a écrit dans le message de
news: uLg%
Bonjour,


Dans un fichier je voudrais ecrire une macro pour effacer la derniere
ligne remplie entre lescolonnes A à F
Je connais déja cette dernier ligne par la fonction NVVAL(). je m'en
sers pour ajouter


Une deuxieme macro pour effacer entre les colonnes A à F , le n° de
ligne etant pointé par la souris.


Merci d'avance
Claude















Avatar
Ricky
Bonjour *claude HERRMANN*


Dans le Worksheet de la feuille concernée ça fonctionne parfaitement
Je viens de tester la deuxième macro.


| Bonjour LSteph,
|
| Selon ton explication tu as bien compris. je veux effacer .
| Si je double clique sur A21005 je veux effacer les cellules B21005 à
| F21005. La ligne avec le n° d'ordre en A21005 doit rester pour ne pas
| modifier les lignes inférieures.
| J'ai essayé tes 2 macros que j'ai mis dans le Workbook du classeur,
| mais cela ne marche pas.
|
| A+ svp
| Claude
|
|
|
|
|
|
| "LSteph" a écrit dans le message de news:
|
| | Bonjour Claude,
| | Crois avoir compris donc
| | ...à moins que tu ne veuilles...sur dblclic en colonne A supprimer
| | a:f de la ligne correspondant à la cellule visée:
| | Attention! le reste (en dessous va remonter de a:f).
| | Pour mettre ce code que tu vas copier ctrl+c depuis '**** jusqu'à
| | '****, dans excel clic droit sur onglet de la feuille
| | puis visualiser le code
| | puis coller (ctrl+v)
| | fermer la fenêtre Microsoft VBasic
| |
| | '****
| | Private Sub Worksheet_BeforeDoubleClick(ByVal _
| | Target As Range, Cancel As Boolean)
| | If Not Intersect(Target, [a:a]) Is Nothing Then
| | Rows(Target.Row).Range(Cells(1), _
| | Cells(6)).Delete (xlUp)
| | End If
| | End Sub
| | '****
| | 'lSteph
|
--
Ricky [MVP] Visitez les faq....
http://www.faqoe.com http://faqword.free.fr
http://dj.joss.free.fr/faq.htm http://www.excelabo.net
Avatar
claude HERRMANN
Bonjour Ricky
Merci de reprendre le fil.
OK j'ai compris.J'avais installé dans le Workbook. Depuis que je l'ai
installé dans Worksheet c'est impecable.

Merci donc à toi et a LSteph.

Cordialement
Claude





"Ricky" a écrit dans le message de news:

Bonjour *claude HERRMANN*


Dans le Worksheet de la feuille concernée ça fonctionne parfaitement
Je viens de tester la deuxième macro.


| Bonjour LSteph,
|
| Selon ton explication tu as bien compris. je veux effacer .
| Si je double clique sur A21005 je veux effacer les cellules B21005 à
| F21005. La ligne avec le n° d'ordre en A21005 doit rester pour ne pas
| modifier les lignes inférieures.
| J'ai essayé tes 2 macros que j'ai mis dans le Workbook du classeur,
| mais cela ne marche pas.
|
| A+ svp
| Claude
|
|
|
|
|
|
| "LSteph" a écrit dans le message de news:
|
| | Bonjour Claude,
| | Crois avoir compris donc
| | ...à moins que tu ne veuilles...sur dblclic en colonne A supprimer
| | a:f de la ligne correspondant à la cellule visée:
| | Attention! le reste (en dessous va remonter de a:f).
| | Pour mettre ce code que tu vas copier ctrl+c depuis '**** jusqu'à
| | '****, dans excel clic droit sur onglet de la feuille
| | puis visualiser le code
| | puis coller (ctrl+v)
| | fermer la fenêtre Microsoft VBasic
| |
| | '****
| | Private Sub Worksheet_BeforeDoubleClick(ByVal _
| | Target As Range, Cancel As Boolean)
| | If Not Intersect(Target, [a:a]) Is Nothing Then
| | Rows(Target.Row).Range(Cells(1), _
| | Cells(6)).Delete (xlUp)
| | End If
| | End Sub
| | '****
| | 'lSteph
|
--
Ricky [MVP] Visitez les faq....
http://www.faqoe.com http://faqword.free.fr
http://dj.joss.free.fr/faq.htm http://www.excelabo.net