Problème avec une macro sous excel
Résolu
tibatcool
Messages postés
33
Date d'inscription
Statut
Membre
Dernière intervention
-
tibatcool Messages postés 33 Date d'inscription Statut Membre Dernière intervention -
tibatcool Messages postés 33 Date d'inscription Statut Membre Dernière intervention -
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.
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.
A voir également:
- Problème avec une macro sous excel
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Déplacer une colonne excel - Guide
- Word et excel gratuit - Guide
- Si ou excel - Guide
18 réponses
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
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
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 ?
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 ?
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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.
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
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
>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
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 ;)
tu y vera certainement un des mien dailleur lol car pas encore solutionné sur du VBA aussi beinvenue au club des novices ;)
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
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
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
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
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