Boujour,
j'ai un classeur avec plusieurs feuilles. Dans la première feuilles, j'ai une liste de terme dans la colonne A et dans la colonne B, le format que je souhaite avoir.
Dans mes autres feuilles, j'aimerai que chaque cellule contenant le mot exacte de ma liste ci-dessus, prenne le format indiqué dans la liste.
(Je sais qu'il existe les format conditionnelles mais j'ai bcp de feuilles et beaucoups d'onglet, ce qui n'est pas pratique du tout.)
Je ne pense pas que ça soit bien compliqué mais comme je n'utilise quasiment jamais au VBA, je rame un peu...
Voilà où j'en suis dans mes tentatives :
Pouvez vous m'aider s'il vous plait ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16 Private Sub Worksheet_Change(ByVal Target As Range) Dim L As Integer L = 2 While L < 80 If ActiveCell.Value = Sheets("Liste").Cells(L, 1).Value Then Sheets("Liste").Cells(L, 2).Select Selection.Copy ActiveSheet.ActiveCell.Select Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False End If L = L + 1 Wend End Sub
Merci d'avance
Partager