Discussion :

[comme de bien entendu]

Bonjour à tous,

Je travaille avec une liste de feuilles que je parcours et lorsque j'execute
le code suivant sur l'une des feuilles (la feuille "w")

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
w.Range("B" & CStr(ligne_fin + 1) & ":E" & CStr(ligne_fin + 1)).Select
    Selection.Replace What:=ancien_mois, Replacement:=nouveau_mois, LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False

j'obtiens dans une nouvelle fenetre le message suivant :

• Une des feuilles
  Selectionner une feuille
  Selectionner la feuille a lier

Avec la liste de mes feuilles en dessous sauf la feuille "Une des feuilles"
j'ai un peu de mal à comprendre pourquoi il me demande de selectionner une feuille, puisqu'il est déja dessus.
Si vous avez déjà vu un truc semblable, merci de votre aide.

[ouskel'n'or]

Non, ce que tu essaies de faire est de sélectionner une cellule...
Avant de pouvoir sélectionner une cellule, tu dois sélectionner la feuille, en deux inxstruction indépendantes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Worksheets(MaFeuille).select
Range("A1").select

Une bizarrerie ...mais c'est bien ça...

A+

[leroissejp]

Bonsoir,
ouskel'n'or a peut-être saisi ton code, moi pas.
Si tu disais plutôt ce que tu veux faire exactement, celà serait mieux pour t'aider. donne des détails.

jpleroisse

[comme de bien entendu]

C'est du code que je reprends, qui tournait jusqu'à présent mais qui vient de planter donc je cherche... comment ca marche
Je mets un peu plus de code, ce sera peut être plus clair

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
 
For Each w In Worksheets
     w.Activate
     trt_feuille
    Next w
...
sub trt_feuille()
...
'mise à jour du graphique
    w.Range("B" & CStr(ligne_fin + 1) & ":E" & CStr(ligne_fin + 1)).Select
    Selection.Replace What:=ancien_mois, Replacement:=nouveau_mois, LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False
 
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.SeriesCollection(4).Select
    ActiveChart.SetSourceData Source:=Range("A" & CStr(ligne_deb) & ":E" & CStr(ligne_fin + 1)), PlotBy:=xlColumns

et c'est avec la ligne Selection.Replace... qu'il me demande de trouver la feuille liée... je vois pas

[SfJ5Rpw8]

Il y as quoi sur tes feuilles ...? des formules avec liaisons ? tu as des feuilles dont le nom est un mois de l'année ?


rajoute

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

debug.print  w.name & " : " & ancien_mois & ">" & nouveau_mois

avant le remplacement ce qui te permetra de voir dans fenêtre exécution le nom de la feuille concernée , recherche la valeur d'anciens_mois dans cette feuille , et voi si un remplacement par la valeur de nouveau_mois ne casse pas ta formule de liaison ....