× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > Tous les forums > Forum Bureautique
 Ecrir par macro dans des cellules différents
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
crisadon
  Posté le 08/01/2015 @ 17:14 
Aller en bas de la page 
Nouvel astucien

Bonjour à tous

Voila mon problème: pour renseigner des champs pour publipostage rapidement, j'ai quelques textes pré ecrits que je peux appeler sur mon fichier via une macro.

jusque la je m'en sorts honorablement.

mais dans un souci d’optimisation des manipulations (comme toujours), dans certain cas j'aurais besoin de remplir en automatique plusieurs champs en une seule macro.

Ma macro de base la voila :

Selection.FormulaR1C1 = "texte 1 "
SendKeys "{TAB}"

An cliquant sur mon bouton auquel j'ai affecté cette macro, le texte 1 s'écrit de suite dans la cellule et fait une tabulation pour remplir la cellule suivante. comme je vous le disais, je m'en sorts honorablement.

Seulement, je cherche comment faire pour écrire un texte1 dans une cellule déjà sélectionnée, faire une tabulation, écrire une texte2 dans la cellule immédiatement à droite de la première, refaire une tabulation, etc au gré des besoins.

ha j'oubliai : j'ai excel 2013.

J'aurais bien fait comme avant en enregistrant les cliques successifs sur les deux boutons concernés ... mais ça c'était avant.

je ne sais pas comment faire.

quelqu'un aurait il une solution s'il vous plait

Merci d'avance

Publicité
ferrand
 Posté le 08/01/2015 à 21:44 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Bonsoir,

Ce que devrait pouvoir faire ta macro :

Macro
Compter les textes à affecter : nombre affecté à une variable (soit n)
[à moins qu'on connaisse ce nombre à l'avance...]
Recueillir les textes dans une variable tableau : on devrait pouvoir utiliser une boucle,genre :
For i = 1 to n
tx(i-1) = (texte i) [faut savoir où sont les textes...]
Ensuite il n'y a plus qu'à les mettre où il faut :
With ActiveCell
For i = 0 to n-1
.Offset(0, i).Value = tx(i)
Next i
End With

crisadon
 Posté le 08/01/2015 à 22:57 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvel astucien

Bonsoir Ferrand

Merci pour ta réponse . Je vais essayer cela dès que possible et si ça marche : !!!

Je ferai état du résultat (pas avant lundi).

bonne nuit

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
14,99 €Télécommande de présentation sans fil Logitech R400 à 14,99 €
Valable jusqu'au 02 Juin

Amazon fait une promotion sur la télécommande de présentation sans fil Logitech R400 qui passe à 14,99 € alors qu'on la trouve ailleurs autour de 30 €. Les commandes pratiques de la télécommande Logitech Wireless Presenter R400 vous aident à réussir vos présentations. Avec les commandes intuitives et le pointeur laser rouge de la Wireless Presenter R400, les présentations sont un vrai jeu d'enfant, même dans les environnements les plus sombres. Le pointeur laser rouge est facile à voir sur la plupart des surfaces et sa portée peut atteindre 15 mètres, vous permettant ainsi de vous déplacer dans la salle. Aucun logiciel n'est nécessaire, il suffit de brancher le récepteur dans un port USB et le tour est joué !


> Voir l'offre
26,71 €Carte mémoire SDXC UHS-I U3 SanDisk Extreme Plus 128 Go (jusqu'à 170 Mo/s) à 26,71 € livrée
Valable jusqu'au 04 Juin

Amazon Allemagne fait une promotion sur la carte mémoire SDXC UHS-I U3 SanDisk Extreme Plus d'une capacité de 128 Go qui passe à 22,19 € (avec la TVA ajustée). Comptez 4,52 € pour la livraison en France soit un total de 26,71 € livrée alors qu'on trouve la carte ailleurs à partir de 60 €. Cette carte mémoire offre des vitesses jusqu'à 170 Mo/s en lecture et 90 Mo/s en écriture et intègre des mécanismes afin de gérer l'usure des cellules de la carte et augmenter ainsi sa durée de vie. Une valeur sûre pour les plus exigeants. Elle résiste aux températures extrêmes, à l'eau, aux chocs et aux rayons X. La carte est fournie avec le logiciel de récupération de données RescuePRO Deluxe qui facilite la récupération des fichiers qui ont été effacés accidentellement.

Vous pouvez utiliser votre compte Amazon France sur Amazon Allemagne et il n'y a pas de douanes. Si vous êtes perdu en allemand, vous pouvez traduire le site en anglais.


> Voir l'offre
GratuitJeu PC Borderlands : The Handsome Collection gratuit
Valable jusqu'au 04 Juin

Epic Game Store offre actuellement l'excellent jeu PC Borderlands : The Handsome Collection. Dézinguez à tours de bras en explorant le monde chaotique de Pandore dans BORDERLANDS 2 et la folie lunaire de BORDERLANDS: THE PRE-SEQUEL dans BORDERLANDS: THE HANDSOME COLLECTION.


> Voir l'offre

Sujets relatifs
selectionner des cellules dans une macro
Définir une Plage de cellules dans une macro
Définir 1 plage de cellules dans 1 macro excel
2 pages par feuille dans macro excel
[Extraction dans cellules]
Creation d' une boucle macro dans fichier EXCEL pour impression
Relier des choix à des cellules dans excel
macro afficher masquer lignes tableau dans word 2010
Comment savoir le nb des mêmes valeurs dans 2 tab differents
[chemin relatif dans une macro]
Plus de sujets relatifs à Ecrir par macro dans des cellules différents
 > Tous les forums > Forum Bureautique