Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Sommaire feuille

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion gueval
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
G

gueval

XLDnaute Junior
Bonjour a tout le Forum,

Ceci est ma première participation, j'espère ne pas faire de gaffe et respecter les codes de ce forum😕
Voici mon problème :
j'ai récupéré une macro ici même pour créer un sommaire de feuille avec lien hypertexte ( grand merci a son créateur ) mais je souhairai que devant chaque nom de feuille listé d'autres informations apparaissent qui sont contenues dans un autre onglet du classeur.
De même cerise sur le gateau, avez vous une solution pour qu'une fois que j'ai renseigné une nouvelle ligne de la feuille "donné..." une feuille se créé selon la feuille modèle via un coche ou un bouton à secletionner.😀
avec le bon nom et maj du sommaire.
je vais essayer de joindre le fichier.
Dans l'attente de votre aide je vous salue
 

Pièces jointes

Trier par date Trier par votes
Re : Sommaire feuille

Bonsoir,

en colonnes H à J :

=SI(ESTERREUR(INDIRECT("'"&$A10&"'!AA2"));"";INDIRECT("'"&$A10&"'!AA2"))
=SI(ESTERREUR(INDIRECT("'"&$A10&"'!AA3"));"";INDIRECT("'"&$A10&"'!AA3"))
=SI(ESTERREUR(INDIRECT("'"&$A10&"'!AA4"));"";INDIRECT("'"&$A10&"'!AA4"))

pour le reste, ton recherchev fonctionne, non?

A+
 
Vote positif 0 Vote négatif
Re : Sommaire feuille

Bonsoir

En rajoutant ce morceau de code dans la macro et en le complétant on doit obtenir le résultat
.......................
DebProc:
nSht.Name = "Sommaire"
nomfeuille1 = nSht.Name
.........................
TextToDisplay:="Lien vers " & Sheets(i).Name ' ligne existante

j = 3
If IsNumeric(Mid((Sheets(i).Name), 1, 5)) Then
'recherche de la ligne dans "Donnée Last version"
'For j1 = 1 To Sheets("Donnée Last version").Range("A65536").End(xlUp).Row
( je n'ai pas vu le lien logique entre le nom de l'onglet et les infos de cette feuille )

'Next j1

Sheets(nomfeuille1).Cells(i, j) = Sheets(i).Name: j = j + 1
Sheets(nomfeuille1).Cells(i, j) = Sheets(Sheets(i).Name).Range("G3"): j = j + 1
' a compléter en indiquant la cellule contenant les données
Sheets(nomfeuille1).Cells(i, j) = Sheets(Sheets(i).Name).Range("à modifier"): j = j + 1
Sheets(nomfeuille1).Cells(i, j) = Sheets(Sheets(i).Name).Range("à modifier"): j = j + 1
.........


End If

Bon courage

JP
 
Vote positif 0 Vote négatif
Re : Sommaire feuille

Salut,

Merci pour le code, il répond à de mes problème, par contre il boucle sans cesse for j1 sans repasser en next i ( je crois que je ne suis pas claire )
Ce que je souhaitait pour répondre à ton interrogation : ( je n'ai pas vu le lien logique entre le nom de l'onglet et les infos de cette feuille )
Le nom de l'onglet correspond a la concatenation du code fournisseur et spécifique ce qui identifie le produit de façon unique, doncà partir de ce code je veut récupérer dans le sommaire pour un nom d'onglet certaine valeur qui ne se trouve que sur la feuille " donnée last version " ex : colonne g; k; n
Merci si vous pouvez encore m'aider, en attendant je vais m'appuyer sur ton code pour tenter de trouver.
bon week end
 
Vote positif 0 Vote négatif
Re : Sommaire feuille

merci pour ces formules, je ne connaissais que recherchev.
Bon week end
 
Vote positif 0 Vote négatif
Re : Sommaire feuille

Bonsoir

Les colonnes étant cachées je n'avais pas vu les données

Ci dessous la macro modifiée

j = 3

If IsNumeric(Mid((Sheets(i).Name), 1, 5)) Then ' si l'onglet à 5 carractères numériques
'recherche de la ligne dans "Donnée Last version"


For j1 = 4 To Sheets("Donnée Last version").Range("B65536").End(xlUp).Row
data1 = Sheets(i).Name 'onglet
data2 = Sheets("Donnée Last version").Range("B" & j1) ' valeur cherchée dans l'onglet
If Len(data2) > 0 And Len(data1) > 0 Then ' pour éviter des longueurs nulle ( voir l'aide de InStr )

If InStr(1, data1, data2, 1) > 0 Then ' si le nombre est présent dans l'onglet
Sheets(nomfeuille1).Cells(i, j) = Sheets("Donnée Last version").Range("F" & j1): j = j + 1
Sheets(nomfeuille1).Cells(i, j) = Sheets("Donnée Last version").Range("H" & j1): j = j + 1
Sheets(nomfeuille1).Cells(i, j) = Sheets("Donnée Last version").Range("J" & j1): j = j + 1
Sheets(nomfeuille1).Cells(i, j) = Sheets("Donnée Last version").Range("K" & j1): j = j + 1
Sheets(nomfeuille1).Cells(i, j) = Sheets("Donnée Last version").Range("N" & j1): j = j + 1
Sheets(nomfeuille1).Cells(i, j) = Sheets("Donnée Last version").Range("K" & j1): j = j + 1
Exit For
End If

End If

Next j1


'Sheets(nomfeuille1).Cells(i, j) = Sheets(i).Name: j = j + 1
Sheets(nomfeuille1).Cells(i, j) = Sheets(Sheets(i).Name).Range("AA2"): j = j + 1
Sheets(nomfeuille1).Cells(i, j) = Sheets(Sheets(i).Name).Range("AA3"): j = j + 1
' a compléter en indiquant la cellule contenant les données
'Sheets(nomfeuille1).Cells(i, j) = Sheets(Sheets(i).Name).Range("G3"): j = j + 1


End If

A rajouter en dernière ligne
Sheets("Sommaire").Columns("A:M").Columns.AutoFit


Bon courage

JP
 
Vote positif 0 Vote négatif
Re : Sommaire feuille

Ouf !!! que de travail pour réussir à placer ton code dans la macro initiale ( je ne suis pas doué ) mais le résultat est pile poil ce que j'attendais.
Et cela juste avant de reprendre la semaine ou je dois boucler ce dossier, quel timing!
Grand merci à toi jp14
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

M
  • Question Question
XL 2019 Bouton sur sommaire ou interface
Réponses
3
Affichages
547
herve62
D
  • Résolu(e)
XL 2021 Créer feuilles automatiquement dans un classeur a partir d'une liste et lien hypertexte
Réponses
6
Affichages
851
Phil69970
C
  • Résolu(e)
XL 2019 Copier et renommer (en même temps) des feuilles à partir d'une liste de noms dans un colonne
Réponses
13
Affichages
2 K
Clemee61
C
Y
  • Résolu(e)
XL 2013 Récupérer le contenu d'un Tableau dans un autre classeur via Power Query et non toute la feuille...
Réponses
4
Affichages
585
Yvan1
Y
M
  • Résolu(e)
XL 2010 Faire un sommaire à partir de plusieurs feuilles
Réponses
8
Affichages
1 K
JHA
J
D
  • Question Question
Microsoft 365 Changement lien hypertexte en fonction nom feuille Excel
Réponses
1
Affichages
1 K
gbinforme
G
L
  • Résolu(e)
XL 2016 Lien hypertexte VBA
Réponses
1
Affichages
1 K
Louu59
L
  • Résolu(e)
Microsoft 365 Save qu'une feuille d'un classeur
Réponses
4
Affichages
885
Electron24
A
  • Question Question
XL 2010 Duplication d’onglets
Réponses
3
Affichages
638
Abnna
A
L
  • Question Question
Power Query groupés deux tableaux qui existent sur la même feuille et ajout d'information supplémentaire
Réponses
7
Affichages
1 K
Aurelili
A
D
  • Question Question
Microsoft 365 macro avec lien hypertexte et modele de facture
Réponses
6
Affichages
1 K
david_aurel
D
M
  • Résolu(e)
Microsoft 365 Récupérer données d'une autre feuille en fonction de ma selection dans une liste
Réponses
2
Affichages
933
minamas
M
R
  • Résolu(e)
XL 2016 Automatiser le nom de la feuille dans une formule
Réponses
3
Affichages
908
Rabeto
R
N
  • Résolu(e)
XL 2019 Alimenter une combobox selon critère après avoir double cliqué sur une feuille
2
Réponses
20
Affichages
2 K
sousou
C
  • Question Question
XL 2016 Excel (sommaire + tri des feuilles ) erreur dans mon VBA
Réponses
1
Affichages
1 K
Cattleya97
C
M
  • Question Question
XL 2013 [RESOLU] Afficher/masquer onglets selon un menu créé dans un onglet principal
Réponses
8
Affichages
1 K
Mulder
M
A
  • Question Question
Microsoft 365 limiter accès par mot de passe dès l'ouverture uniquement aux feuilles "visibles"
Réponses
2
Affichages
2 K
agathe marcadon
A
F
  • Question Question
XL 2019 Dupliquer feuille après une feuille existante vba
Réponses
3
Affichages
968
FLOW312020
F
U
  • Question Question
XL 2016 Consolider 4 feuilles Excel dans une feuille sommaire
Réponses
4
Affichages
808
Hasco
M
  • Résolu(e)
XL 2019 Copier et renommer une feuille masquée (avec génération de code)
Réponses
5
Affichages
1 K
mautrait
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…