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

Copier des blocs texte

  • Initiateur de la discussion Initiateur de la discussion Mrita
  • 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 !

M

Mrita

Guest
Bonjour,

J'ai 25 questionnaires vierges sur 25 onglets. Je voudrais taper une question et qu'elle se recopie automatiquement sur les autres questionnaires. Pourriez-vous m'aidez please ?

Merci beaucoup 😉
 
Bonjour


En sélectionnant TOUTES TES FEUILLES, lorsque tu tapes qqchse dans une des feuilles, cela se répercute (ainsi que toute autre chose : mise en forme...) dans les autres.

Clic sur 1er onglet, puis MAJ/Clic sur dernier onglet, tous les onglets deviennent blancs.

Pour dissocier les feuilles, clic droit sur un des onglets et dissocier les feuilles.

Si tu ne veux que certaines feuilles au lieu de MAJ/Clic sur dernier, tu fais CTRL/Clic sur chaque onglet souhaité.

Message édité par: Brigitte, à: 14/04/2006 12:27
 
Salut

Essaye en selectionnant tout tes onglet ( Ctrl + clic souris sur chaque onglet ) et ensuite tu tappe ta question dans n'importe lequel : ce sera tappé dans tous.

a +

EDIT : bonjour Brigitte, desole pas rafraichi
en plus toi c'est mieu pour la selection des onglets... arf po doué moi ce matin

Bonne journée

Message édité par: Darnel, à: 14/04/2006 12:28
 
Bonjour le fil,

Juste par esprit de contradiction car la solution proposée par Darnle et Brigitte sont les plus simples, je propose un ti bout de code (a placer sur le code de la feuille sur laquelle tu ecris) et en suposant que tu écrives sur le 1er onglet :
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Byte, ad As String

ad = Target.AddressLocal(0, 0)
'je suppose ici que tu ecris ta question sur le 1er onglet
For i = 2 To Sheets.Count
    Sheets(i).Range(ad).Value = Target.Value
Next i
End Sub

@+
 
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Question Question
Microsoft 365 Power Query
Réponses
2
Affichages
304
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…