Function Indirect(adresse qui ne fonctionne pas Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
B
Blondin02
Membre habitué
Membre habitué
Messages : 134
Inscrit le : 8 octobre 2016
Version d'Excel : 2016

Message par Blondin02 » 29 octobre 2016, 07:43

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.
Suivi qualité interne.xlsm
(142.57 Kio) Téléchargé 39 fois
Avatar du membre
jpbt84
Membre dévoué
Membre dévoué
Messages : 561
Appréciations reçues : 7
Inscrit le : 18 juin 2016
Version d'Excel : Pro Plus 2019 FR

Message par jpbt84 » 29 octobre 2016, 07:51

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)&" "))
Formateur bureautique, certifié ECDL Expert
B
Blondin02
Membre habitué
Membre habitué
Messages : 134
Inscrit le : 8 octobre 2016
Version d'Excel : 2016

Message par Blondin02 » 29 octobre 2016, 08:24

Bonjour jpbt84 ,

Merci pour ta rapidité et la résolution de mon problème :wink:
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message