Excel bilan

amaury08 -  
marc07 Messages postés 630 Statut Membre -
Bonjour,

J'ai encore un petit soucis sous excel :)

j'ai fait un fichier qui explique mieux que moi :

http://cjoint.com/?AHwrdBMn82s

Merci d'avance à tous

10 réponses

  1.
    Laure49 Messages postés 78 Date d'inscription   Statut Membre Dernière intervention   14
     
    Bonjour,
    J'ai un souci... impossible d'afficher la page que tu proposes. Difficile de pouvoir te dépanner.
    0
  2. Raymond PENTIER Messages postés 58220 Date d'inscription   Statut Contributeur Dernière intervention   17 486
     
    Comme je le dis chaque fois : écrire le mot "automatiquement" dans une question implique qu'il faut passer par une macro : as-tu déjà utilisé VBA ?
    0
  3. amaury08 Messages postés 50 Statut Membre
     
    oui, je l'utilise déjà pour mes cases à cocher mais j'ai un niveau assez faible.

    Que me proposes-tu ?
    0
    1. Raymond PENTIER Messages postés 58220 Date d'inscription   Statut Contributeur Dernière intervention   17 486
       
      Moi ? Rien ! Je suis nul en VBA ...

      Mais je sais que c'est le meilleur moyen,
      à moins que tu parviennes à jongler avec DECALER, LIGNE, COLONNE, ADRESSE ...
      0

  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. amaury08 Messages postés 50 Statut Membre
     
    En gros,

    il faudrait que dans une cellule en fin de feuille, il m'affiche les résultat des cases présélectionnées seulement si celle-ci sont remplies (ex remplacer phares).
    si la case précédente est vide il ne doit pas en tenir compte.
    Et que la mise en page se fasse bien : passer une ligne après chaque résultat

    sans passer par la fusion de cellule.
    0
  7. Laure49 Messages postés 78 Date d'inscription   Statut Membre Dernière intervention   14
     
    Je suis vraiment désolée, mon ordi ne veut pas ouvrir le lien... :(
    0
  8. amaury08 Messages postés 50 Statut Membre
     
    après nombre de recherches , ceci semble aller :

    Sub copie()

    Dim cellule As Range
    Dim Ligne As String
    For Each cellule In Worksheets("Feuil1").Range("A1:A200")
    If Not IsEmpty(cellule) Then
    If IsEmpty(Worksheets("Feuil1").Range("B65536").End(xlUp)) Then
    Worksheets("Feuil1").Range("B65536").End(xlUp).Select
    cellule.Copy Worksheets("Feuil1").Range("B65536").End(xlUp)
    Else
    Ligne = Worksheets("Feuil1").Range("B65536").End(xlUp).Row
    Range("B" & Ligne + 1).Select
    cellule.Copy Worksheets("Feuil1").Range("B" & Ligne + 1)
    End If
    End If
    Next cellule

    End Sub

    malheureusement, en bas de page, ce sont les formules de ma colonne A qui s'affichent et non le résultat (en texte)

    Comment faire ?
    0
  9. marc07 Messages postés 630 Statut Membre 194
     
    Bonjour
    enregistre ton fichier de la façon suivante ( enregistrer sous et tu choisis version 2003 xls ) apres quoi tu le poste ici comme tu l'a fait
    marc
    0
  11. marc07 Messages postés 630 Statut Membre 194
     
    Re,
    je suis nul aussi en VBA mais le peu de connaissance que j'ai je voie d'aprés ton code que tu fait une copy coller simple, je pense que cela ne va pas aller car il te faut faire copy puis coller en valeur et formule, suis pas sur donc a prendre en second degré

    désoler ne pouvoir faire plus

    marc
    0