Function Indirect(adresse qui ne fonctionne pas
B
Bonjour la communauté,
Me revoici avec un besoin.
Lors de la création d'onglet automatique à l'aide d'un bouton ma formule,
=INDIRECT(ADRESSE(1;26;1;;(A3)))ne fonctionne pas .
Je vous joint mon fichier avec les explications.
D'avance merci de votre aide.
Bonjour,
Ta formule fonctionne, pour un peu que l'onglet indiqué dans ta formule existe !!!!
Dans ton code, tu as ceci
Sub Création_des_feuilles_collaborateur()
Dim I As Integer, j As Integer, k As Integer, Nom_Feuille As String
Application.ScreenUpdating = False
Sheets("Modèle").Visible = True
Range("O1:O65000").ClearContents
For I = 4 To Range("A65000").End(xlUp).Row
Nom_Feuille = Sheets("Synthèse").Range("A" & I) & " "Dans ton nom de feuille, que tu vas créer, tu ajoutes un espace à fin.
C'est ce qui ne fonctionne pas !!!!!
Soit tu enlèves ton espace dans la création de ta feuille en VBA, soit tu adaptes ta formule
=INDIRECT(ADRESSE(1;25;1;;(A4)&" "))B
Bonjour jpbt84 ,
Merci pour ta rapidité et la résolution de mon problème