Bonjour tout le monde,
voici mon souci, j'espère que vous pourrez m'aider car ça quelque temps que je traine mon problème, enfin bref...
J'ai créé un tableau croisé dynamique sur Excel en reprenant les données d'un requête Access. Dans le tableau au lieu de me renvoyé les données il me les calcule donc au lieu d'avoir "occupé", j'ai "1". J'aimerai le remplacer. Donc j'ai écrit un code VB :
mais il me met l'erreur 1004.
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 Sub remplacer() Dim UneCellule As Range ActiveSheet.Range("D1:D10").Select Dim p As String 'Pour chaque cellule de la colonne For Each UneCellule In Selection 'récupération de la valeur p = UneCellule.Value 'remplacement des 1 par L p = Replace(p, "1", "L") 'remise de p dans la cellule UneCellule.Value = p Next End Sub
Avez vous une solution svp.
Merci d'avance et bonne journée.
Partager