× 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
179,99 €Joystick Logitech G Saitek X52 Pro Flight Control System + Microsoft Flight Simulator à 179,99 €
Valable jusqu'au 27 Septembre

Cdiscount fait une promotion sur un lot comprenant le tout nouveau Microsoft Flight Simulator sur PC accompagné du joystick Logitech G Saitek X52 Pro Flight Control System qui passe à 179,99 € au lieu de 250 €. Ce système H.O.T.A.S. (3M) X52 Pro Pro Flight de Saitek est un contrôleur de vol main sur manche et manette entièrement intégré qui satisfait, voire dépasse, les demandes des pilotes sur simulateur de vol les plus aguerris.


> Voir l'offre
36,99 €Disque dur Western Digital Blue 1 To à 36,99 €
Valable jusqu'au 28 Septembre

Cdiscount fait une belle promotion sur le disque dur Western Digital Blue 1 To à 36,90 €. Ce disque dur 3.5 pouces SATA III  tourne à 7200 tr/min.


> Voir l'offre
44,99 €SSD Kingston A400 480 Go à 44,99 €
Valable jusqu'au 26 Septembre

Amazon fait une promotion sur le SSD Kingston A400 480 Go qui passe à 44,99 € alors qu'on le trouve autour de 80 € ailleurs. Il offre des débits de 450 Mo/s en écriture et 500Mo/s en lecture. La livraison est gratuite.


> 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