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 David,
voici un exemple :
Sub Macro1() For Each f In Sheets If f.Name <> "MENU" And f.Name <> "REGISTRE" Then texte = texte & Chr(10) & Sheets(f.Name).Range("A2").Value End If Next texte = Right(texte, Len(texte) - 1) Worksheets(1).Shapes("Text Box 6").TextFrame.Characters.Text = texte End Sub
isabelle
Bonsoir à tous
Jaimerais savoir comment remplir une zone de liste modifiable (Barres outils>Formulaire) placée sur une feuille.
Les données doivent être toutes cellules A2 de toutes les feuilles du classeur sauf seul nomées "MENU" et "REGISTRE".
Merci encore de votre aide.
David
-- direction-ternoise@(supprimerceci)wanadoo.fr
bonjour David,
voici un exemple :
Sub Macro1()
For Each f In Sheets
If f.Name <> "MENU" And f.Name <> "REGISTRE" Then
texte = texte & Chr(10) & Sheets(f.Name).Range("A2").Value
End If
Next
texte = Right(texte, Len(texte) - 1)
Worksheets(1).Shapes("Text Box 6").TextFrame.Characters.Text = texte
End Sub
isabelle
Bonsoir à tous
Jaimerais savoir comment remplir une zone de liste modifiable (Barres
outils>Formulaire) placée sur une feuille.
Les données doivent être toutes cellules A2 de toutes les feuilles du
classeur sauf seul nomées "MENU" et "REGISTRE".
Sub Macro1() For Each f In Sheets If f.Name <> "MENU" And f.Name <> "REGISTRE" Then texte = texte & Chr(10) & Sheets(f.Name).Range("A2").Value End If Next texte = Right(texte, Len(texte) - 1) Worksheets(1).Shapes("Text Box 6").TextFrame.Characters.Text = texte End Sub
isabelle
Bonsoir à tous
Jaimerais savoir comment remplir une zone de liste modifiable (Barres outils>Formulaire) placée sur une feuille.
Les données doivent être toutes cellules A2 de toutes les feuilles du classeur sauf seul nomées "MENU" et "REGISTRE".
