Problème avec une macro sous excel

Résolu
tibatcool -  
Bonjour,
Je débute depuis peu à faire des macros sous excel et je cherche depuis plusieures heures sans succès a résoudre mon problème avec ma macro, je souhaiterai cacher les lignes de mon tableau qui n'ont pas de cellules coloriées en une couleur. J'y arrive pour une colonne mais j'ai un problème sur plusieur colonne.

Ma macro marche pour une colonne je vous la met ci dessous :

Dim Y As Range

>For Each Y In Range("G4:G10938") 'test num de dossier
>If Y.Interior.ColorIndex = 3 Then
> Y.EntireRow.Hidden = True 'False pour cacher
>End If
>Next

Merci d'avance.
Configuration: Windows XP Internet Explorer 7.0

18 réponses

  • Votes
  • Date
  • Date décroissante
  1. moiced59
    moi je fais com ca et ca marche:

    J = 7 'colonne
    I = 4 'ligne
    do until J = 10
    do until i = 10938
    If Cells(I, J).Interior.ColorIndex = 3 Then
    Cells(I, J).EntireRow.Interior.ColorIndex = 4
    Cells(I, J).EntireRow.Hidden = False 'True pour cacher
    End If
    i = i+1
    loop
    i= 2
    j = j+1
    loop
    1. informatifien
      salut,

      je suis pas un super balaise mais ne faut-il pas dire next y au lieu de juste next pour que ça passe à la colonne suivante ?
      1. tibatcool Auteur
        Merci de la rapidité de ta réponse mais ça ne change rien à mon tableau
        Désolé :) .
        1. informatifien
          alors mes competence ne peuvent pas plus pour toi enfin si je viens de percuter que j'utilise pour les boucles for next cette synthaxe:

          For y = 1 to 10 ' de ou tu veux à tu veux biensur si tu precise rien le pas est de 1+1 si tu ajoute par exemple step 3 le pas sera de 3 en 3If Y.Interior.ColorIndex = 3 Then
          Y.EntireRow.Hidden = True 'False pour cacher
          End If
          Next y
          2. tibatcool Auteur
            oui je connais cette forme mais je n'y arrive pas trop avec donc je suis partit sur ce que j'ai fais. En fait je voudrais mettre un "and" dans ma boucle "for" pour passer d'une colonne a une autre mais je n'y arrive pas.
            1. informatifien
              arf je suis désolé je ne vois pas comment faire j'ai bidouill" pas mal de truc mais un peu à l'arrache . . ..quelqu'un devrait pouvoir te solutionné ça .. .au pire demain matin fais un petit up sur ton post
              1. moiced59
                bonjour

                >For Each Y In Range("G4:G10938") 'test num de dossier
                >If Y.Interior.ColorIndex = 3 Then
                > Y.EntireRow.Hidden = True 'False pour cacher
                >End If
                >Next

                si tu faisais ca:

                i = 4
                ii= 7
                for ii = 7 to 10 'met ce que tu veux
                for i =4 to 10000 ' met ce que tu veux
                >If cells(i,ii).Interior.ColorIndex = 3 Then
                > cells(i,ii).EntireRow.Hidden = True 'False pour cacher
                i = i+1
                >End If
                loop

                ii = ii +1
                loop
                1. tibatcool Auteur
                  comment on fait un up ? je vien juste de me créer un compte je connais pas encore tout :)
                  merci
                  1. informatifien
                    ben demain matin tu reviens sur ton poste et ut ecrit ou juste up ou bonjour, toujours personne pour m'aider? et ca remettra ton post en haut de la liste ;)
                    tu y vera certainement un des mien dailleur lol car pas encore solutionné sur du VBA aussi beinvenue au club des novices ;)
                    2. tibatcool Auteur
                      Je comprend ce que tu m'as écris je l'ai tester en le modifiant car il n'est pas tout a fait juste mais je remarque aucun changement je vais faire un test sur un petit fichier excel test je te tiens au courant
                      2. tibatcool Auteur
                        Voila les transformations (je pouvais pas compiler sinon) :

                        For J = 7 To 10 'colonne
                        For I = 4 To 10938 'ligne
                        If Cells(I, J).Interior.ColorIndex = 3 Then
                        Cells(I, J).EntireRow.Interior.ColorIndex = 4
                        Cells(I, J).EntireRow.Hidden = False 'True pour cacher
                        End If
                        Next
                        Next
                        3. moiced59
                          tu peux mettre ton code peut etre qu il pourra servir a quelqu un
                          merci
                          1. tibatcool Auteur
                            J'ai planté Excel mais dès que je l'ai récup je le met, don't worry ;)
                            1. tibatcool Auteur
                              Voici le morceau de ma macro : en fait en retournant le problème dans tout les sens je ferai ça en deux fois

                              J = 14 'colonne
                              Do Until J = 53
                              I = 3 'ligne
                              Do Until I = 10941
                              If Cells(I, J).Interior.ColorIndex = 5 Then
                              Cells(I, J) = ""
                              Cells(I, J).Interior.ColorIndex = 2
                              End If
                              I = I + 1
                              Loop
                              J = J + 1
                              Loop

                              Discussions similaires

                              Transformer un chiffre en lettres dans excel sans macro
                              vincentphilippos

                              6 réponses