Excel bilan

amaury08 -  
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
    Bonjour,
    J'ai un souci... impossible d'afficher la page que tu proposes. Difficile de pouvoir te dépanner.
    0
    1. Raymond PENTIER Contributeur
      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
      1. amaury08
        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 Contributeur
          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
      4. amaury08
        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
        1. Laure49
          Je suis vraiment désolée, mon ordi ne veut pas ouvrir le lien... :(
          0
          1. amaury08
            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
            1. marc07
              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
              2. marc07
                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