Bonjou à tous,
Je vais essayer de vous expliquer mon contexte de travail,
Je dois charger des scénarios dans un outil afin de pouvoir faire des tests , je dois donc les formater
J'ai un premier fichier avec un premier onglet avec la liste des scénarios:
Ce que j'essaie de faire c 'est de modifier les titres des feuilles afin d avoir chaque scénario pour qu il soit tester pour chaque pays
Voici ce que j 'ai essayé de faire
Sub update_title()
Dim j As Integer
Dim nomfeuille As String
For j = 4 To 100
On Error GoTo suite
nomfeuille = Sheets("Scenarios list").Range("A" & j)
Sheets(nomfeuille).Range("B1") = Sheets("Scenarios list").Range("D" & j) & "-" & "X" & Left(Sheets("Scenarios list").Range("A" & j), 2) & Right(Sheets("Scenarios list").Range("A" & j), 6)
Sheets(nomfeuille).Range("B2") = Sheets("Scenarios list").Range("B" & j)
Sheets(nomfeuille).Range("B3") = Sheets("Scenarios list").Range("C" & j)
suite:
' Dim Message As String
'MsgBox ("Il y a " & Worksheets.Count & "feuilles modifiées")
Sheets(nomfeuille).Range("B1").Contains = "RO" ==> Ce que je souhaiterais faire c'est tout d abord de modifier seulement les feuilles ou j 'ai mis quelque chose dans la colonne D feuilles Scénarios List et je souhaiterais donc les sélectionner aussi par la suite,
Sheets(Compter).Select
Next j
End Sub
Je pense qu'il faut utiliser un pointeur, mais je nesais pas trop comment faire
J'espère avoir été claire,
Merci par avance pour votre aide,
Je vais essayer de vous expliquer mon contexte de travail,
Je dois charger des scénarios dans un outil afin de pouvoir faire des tests , je dois donc les formater
J'ai un premier fichier avec un premier onglet avec la liste des scénarios:
Ce que j'essaie de faire c 'est de modifier les titres des feuilles afin d avoir chaque scénario pour qu il soit tester pour chaque pays
Voici ce que j 'ai essayé de faire
Sub update_title()
Dim j As Integer
Dim nomfeuille As String
For j = 4 To 100
On Error GoTo suite
nomfeuille = Sheets("Scenarios list").Range("A" & j)
Sheets(nomfeuille).Range("B1") = Sheets("Scenarios list").Range("D" & j) & "-" & "X" & Left(Sheets("Scenarios list").Range("A" & j), 2) & Right(Sheets("Scenarios list").Range("A" & j), 6)
Sheets(nomfeuille).Range("B2") = Sheets("Scenarios list").Range("B" & j)
Sheets(nomfeuille).Range("B3") = Sheets("Scenarios list").Range("C" & j)
suite:
' Dim Message As String
'MsgBox ("Il y a " & Worksheets.Count & "feuilles modifiées")
Sheets(nomfeuille).Range("B1").Contains = "RO" ==> Ce que je souhaiterais faire c'est tout d abord de modifier seulement les feuilles ou j 'ai mis quelque chose dans la colonne D feuilles Scénarios List et je souhaiterais donc les sélectionner aussi par la suite,
Sheets(Compter).Select
Next j
End Sub
Je pense qu'il faut utiliser un pointeur, mais je nesais pas trop comment faire
J'espère avoir été claire,
Merci par avance pour votre aide,
Pièces jointes
Dernière édition: