× 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 30 Mai

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
60 €Abonnement un an de Deezer Premium + carte fnac+ à 60 €
Valable jusqu'au 30 Mai

Fnac fait une promotion sur l'abonnement un an de Deezer Premium qui passe à 60 € au lieu de 99 €. Deezer Premium vous permet d'écouter toute votre musique en illimité, sans publicité, même sans réseau. La carte Fnac+ vous est également offerte (livraison gratuite et illimitée, caisse prioritaire en magasin, ....)


> Voir l'offre
133,62 €Kit de 32 Go (2 x 16 Go) de mémoire DDR4 Corsair Vengeance LPX 3000 MHz à 133,62 € livré
Valable jusqu'au 30 Mai

Amazon Allemagne fait une belle promotion sur le kit de 32 Go (2x16 Go) de mémoire DDR4 Corsair Vengeance LPX 3000 MHz CL16 qui passe à 128,98 € (avec la TVA ajustée). Comptez 4,64 € pour la livraison en France soit un total de 133,62 € livré. alors qu'on le trouve ailleurs à plus de 170 €.

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


> 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