H
hacka77
Guest
Bonjour à tous,
J'utilise une macro depuis un certain temps, qui fonctionnait comme un charme, jusqu'à aujourd'hui. Elle permet de remplacer les mots "vert", "jaune", "orange", "rouge" et "NC" par des chiffres, respectivement 1, 2, 3, 4 et 0, mais seulement sur les lignes commencant par "Couleur". Voici ladite macro :
Le problème est qu'aujourd'hui, cette macro remplace les valeurs dans toutes les cases, même celles où la ligne ne commence pas par "Couleur". Et je ne comprends pas pourquoi !! A savoir que le critère "couleur" est à chercher en colonne D et que le premier est en "D13".
Quelqu'un a une idée ? 😕
Cordialement, Hacka.
J'utilise une macro depuis un certain temps, qui fonctionnait comme un charme, jusqu'à aujourd'hui. Elle permet de remplacer les mots "vert", "jaune", "orange", "rouge" et "NC" par des chiffres, respectivement 1, 2, 3, 4 et 0, mais seulement sur les lignes commencant par "Couleur". Voici ladite macro :
Code:
Sub couleurchiffres()
Selection.AutoFilter Field:=4, Criteria1:="Couleur"
Range("D13").Select
Range(Selection, Selection.End(xlDown)).Select
Range("E13").Select
Range(Selection, Selection.End(xlDown)).Select
Range("E13:E606").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Replace What:="Vert", Replacement:="1", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="Jaune", Replacement:="2", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="Orange", Replacement:="3", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="Rouge", Replacement:="4", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="NC", Replacement:="0", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 1
Selection.AutoFilter Field:=4
End SubLe problème est qu'aujourd'hui, cette macro remplace les valeurs dans toutes les cases, même celles où la ligne ne commence pas par "Couleur". Et je ne comprends pas pourquoi !! A savoir que le critère "couleur" est à chercher en colonne D et que le premier est en "D13".
Quelqu'un a une idée ? 😕
Cordialement, Hacka.