J'ai un classeur contenant dans chaque onglet un fiche descriptive contenant
un titre et une brève description en cellules a1, g1 et g2, puis un contenu
variable.
Comment puis-je générer une table des matières dans un nouvel onglet,
listant les 3 cellules de chaque onglet existant ? Par exemple je voudrais
les répéter dans le nouvel onglet en a1, a2 puis b2 puis a3, b3 puis b4 etc.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
bonjour Raide Flocon,
sélectionne la feuille table des matières et exécute cette macro.
Sub Macro1() x = 1 For Each f In Sheets If f.Name <> ActiveSheet.Name Then Range("A" & x) = f.Range("A1").Value Range("A" & x + 1) = f.Range("G1").Value Range("B" & x + 1) = f.Range("G2").Value x = x + 2 End If Next End Sub
isabelle
Bonjour,
J'ai un classeur contenant dans chaque onglet un fiche descriptive contenant un titre et une brève description en cellules a1, g1 et g2, puis un contenu variable.
Comment puis-je générer une table des matières dans un nouvel onglet, listant les 3 cellules de chaque onglet existant ? Par exemple je voudrais les répéter dans le nouvel onglet en a1, a2 puis b2 puis a3, b3 puis b4 etc.
Merci pour vos réponses.
bonjour Raide Flocon,
sélectionne la feuille table des matières et exécute cette macro.
Sub Macro1()
x = 1
For Each f In Sheets
If f.Name <> ActiveSheet.Name Then
Range("A" & x) = f.Range("A1").Value
Range("A" & x + 1) = f.Range("G1").Value
Range("B" & x + 1) = f.Range("G2").Value
x = x + 2
End If
Next
End Sub
isabelle
Bonjour,
J'ai un classeur contenant dans chaque onglet un fiche descriptive contenant
un titre et une brève description en cellules a1, g1 et g2, puis un contenu
variable.
Comment puis-je générer une table des matières dans un nouvel onglet,
listant les 3 cellules de chaque onglet existant ? Par exemple je voudrais
les répéter dans le nouvel onglet en a1, a2 puis b2 puis a3, b3 puis b4 etc.
sélectionne la feuille table des matières et exécute cette macro.
Sub Macro1() x = 1 For Each f In Sheets If f.Name <> ActiveSheet.Name Then Range("A" & x) = f.Range("A1").Value Range("A" & x + 1) = f.Range("G1").Value Range("B" & x + 1) = f.Range("G2").Value x = x + 2 End If Next End Sub
isabelle
Bonjour,
J'ai un classeur contenant dans chaque onglet un fiche descriptive contenant un titre et une brève description en cellules a1, g1 et g2, puis un contenu variable.
Comment puis-je générer une table des matières dans un nouvel onglet, listant les 3 cellules de chaque onglet existant ? Par exemple je voudrais les répéter dans le nouvel onglet en a1, a2 puis b2 puis a3, b3 puis b4 etc.
Merci pour vos réponses.
isabelle
avec des liens hypertexte ce serait encore mieux,
Sub Macro1() x = 1 For Each f In Sheets If f.Name <> ActiveSheet.Name Then Range("A" & x) = f.Range("A1").Value Range("A" & x + 1) = f.Range("G1").Value Range("B" & x + 1) = f.Range("G2").Value ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & x), Address:="", SubAddress:= _ f.Name & "!A1", TextToDisplay:=Range("A" & x).Value x = x + 2 End If Next End Sub
isabelle
Bonjour,
J'ai un classeur contenant dans chaque onglet un fiche descriptive contenant un titre et une brève description en cellules a1, g1 et g2, puis un contenu variable.
Comment puis-je générer une table des matières dans un nouvel onglet, listant les 3 cellules de chaque onglet existant ? Par exemple je voudrais les répéter dans le nouvel onglet en a1, a2 puis b2 puis a3, b3 puis b4 etc.
Merci pour vos réponses.
avec des liens hypertexte ce serait encore mieux,
Sub Macro1()
x = 1
For Each f In Sheets
If f.Name <> ActiveSheet.Name Then
Range("A" & x) = f.Range("A1").Value
Range("A" & x + 1) = f.Range("G1").Value
Range("B" & x + 1) = f.Range("G2").Value
ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & x), Address:="",
SubAddress:= _
f.Name & "!A1", TextToDisplay:=Range("A" & x).Value
x = x + 2
End If
Next
End Sub
isabelle
Bonjour,
J'ai un classeur contenant dans chaque onglet un fiche descriptive contenant
un titre et une brève description en cellules a1, g1 et g2, puis un contenu
variable.
Comment puis-je générer une table des matières dans un nouvel onglet,
listant les 3 cellules de chaque onglet existant ? Par exemple je voudrais
les répéter dans le nouvel onglet en a1, a2 puis b2 puis a3, b3 puis b4 etc.
Sub Macro1() x = 1 For Each f In Sheets If f.Name <> ActiveSheet.Name Then Range("A" & x) = f.Range("A1").Value Range("A" & x + 1) = f.Range("G1").Value Range("B" & x + 1) = f.Range("G2").Value ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & x), Address:="", SubAddress:= _ f.Name & "!A1", TextToDisplay:=Range("A" & x).Value x = x + 2 End If Next End Sub
isabelle
Bonjour,
J'ai un classeur contenant dans chaque onglet un fiche descriptive contenant un titre et une brève description en cellules a1, g1 et g2, puis un contenu variable.
Comment puis-je générer une table des matières dans un nouvel onglet, listant les 3 cellules de chaque onglet existant ? Par exemple je voudrais les répéter dans le nouvel onglet en a1, a2 puis b2 puis a3, b3 puis b4 etc.
Merci pour vos réponses.
Raide Flocon
Merci Isabelle, Je cherchais plutôt une formule à placer dans les cellules de la table des matières, mais comme cela ne semble pas possible, ta macro est absolument la bienvenue ! Flocon "isabelle" a écrit dans le message de news:
avec des liens hypertexte ce serait encore mieux,
Sub Macro1() x = 1 For Each f In Sheets If f.Name <> ActiveSheet.Name Then Range("A" & x) = f.Range("A1").Value Range("A" & x + 1) = f.Range("G1").Value Range("B" & x + 1) = f.Range("G2").Value ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & x), Address:="", SubAddress:= _ f.Name & "!A1", TextToDisplay:=Range("A" & x).Value x = x + 2 End If Next End Sub
isabelle
Bonjour,
J'ai un classeur contenant dans chaque onglet un fiche descriptive contenant
un titre et une brève description en cellules a1, g1 et g2, puis un contenu
variable.
Comment puis-je générer une table des matières dans un nouvel onglet, listant les 3 cellules de chaque onglet existant ? Par exemple je voudrais
les répéter dans le nouvel onglet en a1, a2 puis b2 puis a3, b3 puis b4 etc.
Merci pour vos réponses.
Merci Isabelle,
Je cherchais plutôt une formule à placer dans les cellules de la table des
matières, mais comme cela ne semble pas possible, ta macro est absolument la
bienvenue !
Flocon
"isabelle" <as.isabellevIE@videotron.ca> a écrit dans le message de
news:4008A60C.D95B1B53@videotron.ca...
avec des liens hypertexte ce serait encore mieux,
Sub Macro1()
x = 1
For Each f In Sheets
If f.Name <> ActiveSheet.Name Then
Range("A" & x) = f.Range("A1").Value
Range("A" & x + 1) = f.Range("G1").Value
Range("B" & x + 1) = f.Range("G2").Value
ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & x), Address:="",
SubAddress:= _
f.Name & "!A1", TextToDisplay:=Range("A" & x).Value
x = x + 2
End If
Next
End Sub
isabelle
Bonjour,
J'ai un classeur contenant dans chaque onglet un fiche descriptive
contenant
un titre et une brève description en cellules a1, g1 et g2, puis un
contenu
variable.
Comment puis-je générer une table des matières dans un nouvel onglet,
listant les 3 cellules de chaque onglet existant ? Par exemple je
voudrais
les répéter dans le nouvel onglet en a1, a2 puis b2 puis a3, b3 puis b4
etc.
Merci Isabelle, Je cherchais plutôt une formule à placer dans les cellules de la table des matières, mais comme cela ne semble pas possible, ta macro est absolument la bienvenue ! Flocon "isabelle" a écrit dans le message de news:
avec des liens hypertexte ce serait encore mieux,
Sub Macro1() x = 1 For Each f In Sheets If f.Name <> ActiveSheet.Name Then Range("A" & x) = f.Range("A1").Value Range("A" & x + 1) = f.Range("G1").Value Range("B" & x + 1) = f.Range("G2").Value ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & x), Address:="", SubAddress:= _ f.Name & "!A1", TextToDisplay:=Range("A" & x).Value x = x + 2 End If Next End Sub
isabelle
Bonjour,
J'ai un classeur contenant dans chaque onglet un fiche descriptive contenant
un titre et une brève description en cellules a1, g1 et g2, puis un contenu
variable.
Comment puis-je générer une table des matières dans un nouvel onglet, listant les 3 cellules de chaque onglet existant ? Par exemple je voudrais
les répéter dans le nouvel onglet en a1, a2 puis b2 puis a3, b3 puis b4 etc.
