Bonjour,
Je suis nouveau sur ce forum qui m'a bien souvent aidé, mais cette fois, j'ai un problème que je ne peux résoudre, même si globalement il me semble que je fais ce qui est conseillé... C'est une question courante, mais je n'ai pas réussi à l'appliquer à mon document... Donc je vous remercie d'avance si vous pouviez m'aider.
J'ai un classeur contenant une centaine de feuilles, et j'ai un code qui va chercher pour quelques cases de la colonne A une valeur particulière, et s'il la trouve, va modifier la couleur de la ligne en conséquence, et j'aimerais l'appliquer à chaque onglet, malheureusement, malgré des solutions trouvées ici et ailleurs, je n'ai pas réussi à résoudre mon problème. Voilà mon code (le mot "cheval" est quelconque hein, je précise) :
Sub Test()
Dim Feuille As Worksheet
For Each Feuille In Worksheets
Dim Mot As String
Mot = "*Cheval*"
If Range("A11").Value Like Mot Then
Range("A11:G11").Interior.Color = RGB(192, 192, 192)
End If
If Range("A12").Value Like Mot Then
Range("A12:G12").Interior.Color = RGB(192, 192, 192)
End If
If Range("A13").Value Like Mot Then
Range("A13:G13").Interior.Color = RGB(192, 192, 192)
End If
Next
End Sub
Donc voilà, je sais, j'aurais pu utiliser une boucle (il y a plus de lignes) pour définir la ligne, mais je ne suis pas encore à l'aise, et le projet n'est pas assez important pour que je m'y attarde sur cette partie là. Par contre, je n'arrive pas à l'appliquer à toutes les feuilles, et ça c'est important. J'ai placé le code dans "ThisWorkbook", pas dans une feuille, et malgré quelques changements ("For Each Worksheet in Worksheets, Next", "For Each Feuille in ThisWorkbook.Worksheets", etc.), je n'ai pas réussi à le faire travailler dans tout le classeur.
Si je prends les pages séparément pour appliquer ma macro, elle marche, donc elle ne se sent pas liée qu'à une seule feuille, mais je n'arrive pas à aller chercher toutes les pages. Auriez-vous une solution qui pourrait peut-être résoudre mon problème?
En vous remerciant d'avance,
Sly
Je suis nouveau sur ce forum qui m'a bien souvent aidé, mais cette fois, j'ai un problème que je ne peux résoudre, même si globalement il me semble que je fais ce qui est conseillé... C'est une question courante, mais je n'ai pas réussi à l'appliquer à mon document... Donc je vous remercie d'avance si vous pouviez m'aider.
J'ai un classeur contenant une centaine de feuilles, et j'ai un code qui va chercher pour quelques cases de la colonne A une valeur particulière, et s'il la trouve, va modifier la couleur de la ligne en conséquence, et j'aimerais l'appliquer à chaque onglet, malheureusement, malgré des solutions trouvées ici et ailleurs, je n'ai pas réussi à résoudre mon problème. Voilà mon code (le mot "cheval" est quelconque hein, je précise) :
Sub Test()
Dim Feuille As Worksheet
For Each Feuille In Worksheets
Dim Mot As String
Mot = "*Cheval*"
If Range("A11").Value Like Mot Then
Range("A11:G11").Interior.Color = RGB(192, 192, 192)
End If
If Range("A12").Value Like Mot Then
Range("A12:G12").Interior.Color = RGB(192, 192, 192)
End If
If Range("A13").Value Like Mot Then
Range("A13:G13").Interior.Color = RGB(192, 192, 192)
End If
Next
End Sub
Donc voilà, je sais, j'aurais pu utiliser une boucle (il y a plus de lignes) pour définir la ligne, mais je ne suis pas encore à l'aise, et le projet n'est pas assez important pour que je m'y attarde sur cette partie là. Par contre, je n'arrive pas à l'appliquer à toutes les feuilles, et ça c'est important. J'ai placé le code dans "ThisWorkbook", pas dans une feuille, et malgré quelques changements ("For Each Worksheet in Worksheets, Next", "For Each Feuille in ThisWorkbook.Worksheets", etc.), je n'ai pas réussi à le faire travailler dans tout le classeur.
Si je prends les pages séparément pour appliquer ma macro, elle marche, donc elle ne se sent pas liée qu'à une seule feuille, mais je n'arrive pas à aller chercher toutes les pages. Auriez-vous une solution qui pourrait peut-être résoudre mon problème?
En vous remerciant d'avance,
Sly