Suppression de ligne excel

alexluthor Messages postés 82 Statut Membre -  
Vaucluse Messages postés 27336 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

Voilà je souhaiterai savoir comment effacer une ligne d'un tableau (la dernière) via un macro d'un bouton et une remise à zéro de ce tableau (effacer toutes sauf la 1ere) toujours via un bouton.

D'avance merci !
Alex

<config>Windows XP Firefox 3.6.6</config / excel 2003>
A voir également:

4 réponses

Vaucluse Messages postés 27336 Date d'inscription   Statut Contributeur Dernière intervention   6 447
 
Bonjour
ci joint un modèle qui pourra peut être vous servir. Revenez si non adapté (ça peut se modifier) où si besoin d'infos ou d'ajustement complémentaires
http://www.cijoint.fr/cjlink.php?file=cj201010/cijjQxIvAd.xls
Crdlmnt
1
alexluthor Messages postés 82 Statut Membre
 
merci pour ton fichier ... par contre c'est moi ou ton bouton effacer la dernière ligne ne fonctionne pas ???
Merci ...
0
Vaucluse Messages postés 27336 Date d'inscription   Statut Contributeur Dernière intervention   6 447
 
effectivement, petite erreur de ma part
sélectionnez en tapant A1 dans la case à gauche de la barre de formule et remplacer les +2 des deux derniers item par +1
un recalage de ligne qui était resté en panne.Actuellement, c'est la première ligne vide qui est effacée!
Crdlmnt
0
alexluthor Messages postés 82 Statut Membre
 
rectification effectuée mais cela n'efface que jusque la colonne A
Et pourrais tu me décrire comment paramétrer cette fonction et si oui je peux l'intégrer à un bouton ???
0
Vaucluse Messages postés 27336 Date d'inscription   Statut Contributeur Dernière intervention   6 447
 
ci après la fonction en A1
=SI(NBVAL(A2:A50000)=1;"A3:Z3";"A"&NBVAL(A2:A50000)+1&":E"&NBVAL(A2:A50000)+1)
la macro ne fait que reprendre le champ désigné par cette fonction pour l'effacer
SI(NB.VAL(A2:A50000)=1 est là pour éviter de compter les valeurs titres de la, ligne 2, soit celle des titres de tableau et passer directement à A3:Z3
Les deux item NBVAL suivant servent à composer l'adresse de la ligne à effacer. La macro reprend l'adresse dans la formule, avec le code INDIRECT qui transforme ce texte en adresse
Il suffit de faire glisser le bouton pour dégager la cellule A1 et voir le champ qui s'affiche en remplissant la colonne A
Actuellement, le code stipule de la colonne A à la colonne E (et efface bien ce champ,vérif faite) car c'est E qui est inscrit dans le 2° item,, il suffit de le changer avec le code colonne désiré.
Il suffit ensuite d'affecter la macro "Ligne" à n'importe quoi pour exècuter la macro.
Crdlmnt
0
alexluthor Messages postés 82 Statut Membre
 
Désolé de t'ennuyer encore mais il me reste une ombre sur ton code (l'erreur qu'il me signale ) concernant le passage "A"&NBVAL(A2:50000)
Encore désolé mais je débute .....
Alex
0
Vaucluse Messages postés 27336 Date d'inscription   Statut Contributeur Dernière intervention   6 447
 
Bonsoir Alex
Voila voila,
je pense avoir tout compris et j'ai modifié macros et adresses pour:

_pouvoir aussi effacer la ligne 5 sans casser l'affichage automatique N° et le code validation par la macro "ajouter" (c'est automatique lorsque la 5 sera la seule ligne remplie à effacer ou lors de la remise à 0)
_effacer K4 à chaque effacement de la ligne concernée ou la remise à 0 totale
_signaler manque d'info en K4

je ne suis pas sur que tout marche, je ne connais pas tous les cas de figure.

N'hésite pas à revenir si problème

Bonne soirée
http://www.cijoint.fr/cjlink.php?file=cj201010/cijuzQepRr.xls

Crdlmnt

1
alexluthor Messages postés 82 Statut Membre
 
Il faut vraiment que j'arrête de t'ennuyer comme ca dernier soucis concernant la formule équipement qui disparait lors du RAZ (que j'ai modifié) il faut vraiment que les cases soient supprimées et non vidées sauf pour la 1ere ligne où elle sont juste a zero

http://www.cijoint.fr/cjlink.php?file=cj201010/cijE8lbRB7.xls
0
Vaucluse Messages postés 27336 Date d'inscription   Statut Contributeur Dernière intervention   6 447
 
tu ne mennuies pas, mais là ça m'échappe, car les macros du dernier fichier que tu transmets ne sont pas celles du fichier proposés, qui sont celles ci:

Sub Formeautomatique71_QuandClic()
Range("INDIRECT(A3)").Select
Selection.ClearContents
End Sub
______________________________
Sub Formeautomatique72_QuandClic()
Range("INDIRECT(A4)").Select
Selection.Delete Shift:=xlUp
Range("K4").Select
Selection.ClearContents
End Sub
_____________________________
Sub Formeautomatique76_QuandClic()
Range("B6:Z50000,K4,C5:G5").Select
Selection.ClearContents
End Sub
______________________

Sachant que la 1° et la 3° sont modifiées pour ne pas effacer la ligne mais seulement les cellules concernées et que la 3° prend en compte l'effacement de la ligne C5 en conservant l'affichage N° en B5 seulement.?de plus il n'y a pas la MFC en K4
es tu sur le bon fichier?
je te redonnes le lien
http://www.cijoint.fr/cjlink.php?file=cj201010/cijuzQepRr.xls
fait attention que tu n'ais pas plusieurs classeurs ouverts quand tu utilises les macros.
crdlmnt
0
alexluthor Messages postés 82 Statut Membre
 
parce que j'ai essayé ca :
Sub Formeautomatique76_QuandClic()
Range("A6:Z50000").Select
Selection.Delete Shift:=xlUp
Range("C5,E5:G5").Select
Selection.Clearvariable
End Sub
mais il bloque
0
Vaucluse Messages postés 27336 Date d'inscription   Statut Contributeur Dernière intervention   6 447
 
vois le message ci dessus, au cas où il t'échappe
https://forums.commentcamarche.net/forum/affich-19535567-suppression-de-ligne-excel#19
à+
0
alexluthor Messages postés 82 Statut Membre
 
si tu essayes tu constatera que si tu RAZ le tableau tu peux sélectionner une caisse mais le N° equipement n'apparait plus
et les cases du dessous du N° caisse effacées sont toujours utilisables (menu déroulant apparait si elles ne sont pas "deletée" )
Alex
0
Vaucluse Messages postés 27336 Date d'inscription   Statut Contributeur Dernière intervention   6 447
 
Bonjour alex
ci dessous ma façon de voir ton sujet, avec quelques informations

http://www.cijoint.fr/cjlink.php?file=cj201010/cijVNx6z2J.xls

Crdlmnt
Ps: je viens de voir; supprimer le remplissage jaune des cellules S2 et R qui se retrouve dans le tableau après effacement des lignes.

Demandons nous si nous ne sommes pas seuls à comprendre ce que l'on explique?
0
alexluthor Messages postés 82 Statut Membre
 
tout d'abord je te remercie du travail effectué et m'excuse du retard de ma réponse (je ne travaillais pas hier ^^)
Ensuite je me permet de signaler que ce système de code à rentrer pour effacement n'est pas souhaitable (+ simple serait mieux) en même temps une caisse n'a aucune raison d'apparaitre 2 fois pourions nous le simplifier ? est réalisable en sélectionnant le N° de caisse à supprimer?
Dans l'attente de vous lire,
Alex
0
alexluthor Messages postés 82 Statut Membre
 
oups !
Et le N° d'équipement ne s'inscrit plus automatiquement......désolé
0
Vaucluse Messages postés 27336 Date d'inscription   Statut Contributeur Dernière intervention   6 447
 
Voila voila
http://www.cijoint.fr/cjlink.php?file=cj201010/cijVCMNzIb.xls
bonne soirée
0
alexluthor Messages postés 82 Statut Membre
 
Encore merci de ton aide qui a été d'une grande utilité !!!!
Dommage que je ne comprenne pas l'ensemble du code mais bon ...^^ (je vais potasser tout ca)
Et maintenant je n'ose plus te demander ton aide car le projet n'est pas terminé .....
Bonne continuation !
0
Vaucluse Messages postés 27336 Date d'inscription   Statut Contributeur Dernière intervention   6 447
 
Re
pourquoi je n'ose plus?
.. je ne suis pas fâché, si tu as besoin d'autre chose.. et puis je ne suis pas tout seul sur CCM.Il y en a même des meilleurs, et de loin!
Ce serait dommage de na pas en profiter.
Au plaisir donc.
Bien cordialement
0
Utilisateur anonyme
 
c simple tu sélectionné la ligne que tu veut ,tu fait clique droit >>
-- suprimer ... >> ligne entière

ps: ctrl + selection = permet de sélectionner plusieurs ligne ,et pas forcement les plus proche

------------------
quand c'est résolu ,merci de le signifier et d'expliquer grâce a quoi cela l'a été
>> https://www.commentcamarche.net/infos/25917-marquer-un-fil-de-discussion-comme-etant-resolu/

svp répondez vite !
-2