Discussion :

[tony020422]

Bonjour tout le monde,

j'ai besoin de vous pour un chti souci concernant une prgrammation VB sous Excel 2003.

ma macro excel ouvre un .doc (protégé en écriture) et copie colle des valeurs de cellule dans des zones prédéfinies de mon .doc

J'ai un souci a un endroit...dans mon .doc la zone est atteinte par "Ctrl+b" puis signet puis "listederoulante1"...mais je souhaite écrire a coté de cette zone, dans un endroit prévu a cet effet..le soucie st que ces 2 zones sont liées...mais je peux passer de l'une a l'autre par une "tabulation" ou par 2 appuis successifs sur la touche du bas de mon clavier....comment simuler en vb le clik 2 fois sur la fleche du bas de mon clavier, ou le clik sur la touche "tabulation" ?!

Merci par avance a tous pour votre aide !!

[Minick]

salut,

Regarde du cote de SENDKEYS

++
Minick

[aalex_38]

Bonjour,

Es-tu vraiment obligé de passer par l'envoi d'une touche (SENDKEY), dans ton document word une fois placé sur le bon champ, tu peux par macro aller à la fin de la selection pour déplacer ta selection tu peux enregistrer une macro sous word pour voir le code

[tony020422]

Bonjour tout le monde,

je ne peux pas enregistrer de macro avec mon .doc car il est protégé ...

j'avais pensé aux senkeys mais je ne sais pas encore comment m'en servir.....je cherche.....

pour aalex_38 je n'ai pas tout compris..

[aalex_38]

je ne peux pas enregistrer de macro avec mon .doc car il est protégé ...

Tu ouvres un nouveau doc non protégé et tu utilises l'enregistreur de macro :
- Tu ouvres ton document
- Tu cherche a selectionner ton champ


=> tu obtiens une macro dont le code pourras te servir dans ta macro excel.

pr aalex_38 je n'ai pas tt compris..

Si le sendkey peut résoudre ton problème tu peux aussi faire ça, je te propose juste de vérifier s'il n'existe pas une méthode de selection.

[tony020422]

ok j'ai compris c'est bon....

Merci pour les conseils!! je n'hésiterais pas a revenir vers vous si besoin !!

juste un truc pr fignoler...je copie colle le contenu de la cellule C7 qui est du style "TX22N480" et certaines feuilles iso sont comme ca:
numéro de TX: TX.... et la je rajoute a la suite "TX22N480" c'est lourd! (ca fait TX: TX22N480...)
et d'autres feuilles sont comme ca:
numéro de TX:... et la je rejoute tel quel TX22N480..et la ca fait super

je peux récupérer tantot le contenu de la cellule en entier, tantot le contenu sans le "TX" qu'il y a devant ?!

Merci encore une fois !!

[aalex_38]

je peux récupérer tantot le contenu de la cellule en entier, tantot le contenu sans le "TX" qu'il y a devant ?!

A mon tour de ne pas très bien comprendre....

Peut être un bout de code ?

[tony020422]

http://www.cijoint.fr/cjlink.php?fil...cijK4a9gan.png

voila on voit ici ce qui me deplait...mais les champs remplis viennent directement de cellules excel en copié/collé.. par macro...

j'aimerais qu'il n'y ait pas de redondance entre le TX préécrit et ce que je rajoute.....donc il faudrait récupérer le TX22N480 d'excel sans le "TX" du départ..

[aalex_38]

donc il faudrait récupérer le TX22N480 d'excel sans le "TX" du départ

essai avec mid et/ou instr

[tony020422]

Bonjour tout le monde,

j'ai cherché une piste avec tes instructions mais je n'ai rien trouvé!...

je ne sais pas comment faire alors que cela ne me semble pas insurmontable...

[Krovax]

pour savoir si ta cellule contient déja tx

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
if instr(cells(i,j),"TX")<>0 then
'ta cellule contient TX
else
'ta cellule ne contient pas TX
endif

pour virer les deux premier caractère d'une chaine de caractère

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ligne=right(ligne,len(ligne)-2)

ligne vaux les N caractère de droite de ligne N est égale au nombre de caractère de ligne -2

Si avec ca tu trouve pas comment faire

Par contre tu ne peux pas faire un simple copier coller tu récupère le contenue de la cellule dans une variable de type string tu traite la variable puis tu la met dans la cellule cible

ps j'ai pas pu ouvrir ton png je ne suis pas totalement sur de répondre a tes attentes

[tony020422]

Salut Krovax....

tu as répondu pile poil a ce que j'avais besoin......
je vais tenter de me dépatouiller avec tout ca et ca devrait le faire!

Merci a tous pour votre patience et votre implication!

Bonne journée, a + sur developez!