Remplacer la valeur d'une cellule par une autre suite à double clic
Bonjour
J'ai un début de code qui fonctionne et je n'ai pas trop le temps de chercher pour l'adapter à un autre besoin. La macro est à la fin :
L'idée est la suivante : suite à un double clic,
Si la cellule contient "NON PRET" alors on remplace par "PRET" avec une couleur de police rouge
Après j'adapterais à tous les mots que je souhaite remplacer ..
Merci
'MACRO EXISTANTE
'Cet événement se déclenche lors d'un double-clic sur une cellule de la feuille
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True 'annule le traitement habituel de l'événement
Dim Feuille_de_Travail As String
Dim Cellule_de_Travail As Range
Dim lig As Long
Dim col As Long
If Not Intersect(Target, Range(Plg6)) Is Nothing Then
lig = Target.Row 'Stocke le numéro de ligne correspondante
col = Target.Column 'Stocke le numéro de colonne correspondante
Target.ClearComments 'efface un éventuel commentaire de la cellule active
Target.Value = "CDT : Saisie effectuée" 'la cellule prend le texte
Range(Cells(lig, col), Cells(lig + 5, col + 2)).Interior.ColorIndex = 27 'Colorie en jaune les cellules correspondantes
End If
End Sub
Bonjour
C'est nickel. J'ai adapté et cela marche.
Peux tu m'expliquer :
With Target.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Merci
Bonjour,
tu sais, tu as une icone </> pour garder la mise en de ton code, avec l'indentation.
La lecture et la recherche de fautes sont facilitées.
eric