× 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
93 €Souris Logitech G Pro Wireless Gaming Mouse à 93 € livrée
Valable jusqu'au 12 Avril

Amazon Allemagne fait une promotion sur la rolls des souris sans fil pour les joueurs, à savoir la Logitech G Pro Wireless Gaming Mouse qui passe à 87,94 €. Comptez 5,06 € pour la livraison en France soit un total de 93 € livrée alors qu'on la trouve ailleurs autour de 130 €.


> Voir l'offre
21,99 €Lot de 3 clés USB 3.0 Kingston DataTraveler 100 G3 32 Go à 21,99 €
Valable jusqu'au 12 Avril

Amazon vous propose actuellement la clé USB 3.0 Kingston DataTraveler 100 G3 32 Go à 5,75 €. Sa fermeture coulissante vous permettra de protéger le connecteur USB 3.0 (compatible USB 2.0).


> Voir l'offre
159,95 €Kit de 32 Go (2x16Go) de mémoire DDR4 Corsair Vengeance RGB Pro 3200 MHz à 159,95 €
Valable jusqu'au 12 Avril

LDLC fait une promotion sur le kit de 32 Go (2x16 Go) de mémoire DDR4 Corsair Vengeance RGB Pro 3200 MT/s CL16 à 159,95 € avec le code promo CACONSERVE alors qu'on le trouve ailleurs à plus de 200 €. Vous pourrez personnaliser la palette de couleurs directement depuis le logiciel Corsair iCU.


> 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