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>

4 réponses

  1. Vaucluse Messages postés 27336 Date d'inscription   Statut Contributeur Dernière intervention   6 453
     
    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
    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
    2. Vaucluse Messages postés 27336 Date d'inscription   Statut Contributeur Dernière intervention   6 453
       
      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
    3. 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
    4. Vaucluse Messages postés 27336 Date d'inscription   Statut Contributeur Dernière intervention   6 453
       
      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
    5. 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
  2. Vaucluse Messages postés 27336 Date d'inscription   Statut Contributeur Dernière intervention   6 453
     
    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
    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
    2. Vaucluse Messages postés 27336 Date d'inscription   Statut Contributeur Dernière intervention   6 453
       
      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
    3. 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
    4. 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
  3. Vaucluse Messages postés 27336 Date d'inscription   Statut Contributeur Dernière intervention   6 453
     
    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
    1. 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
    2. alexluthor Messages postés 82 Statut Membre
       
      oups !
      Et le N° d'équipement ne s'inscrit plus automatiquement......désolé
      0
    3. Vaucluse Messages postés 27336 Date d'inscription   Statut Contributeur Dernière intervention   6 453
       
      Voila voila
      http://www.cijoint.fr/cjlink.php?file=cj201010/cijVCMNzIb.xls
      bonne soirée
      0
    4. 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
    5. Vaucluse Messages postés 27336 Date d'inscription   Statut Contributeur Dernière intervention   6 453
       
      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