Ennui avec VB

PascalXLD

XLDnaute Barbatruc

• 14 Septembre 2005

• #2

Bonjour

Herbiti / Thibaut même combat ou même personne ????

Sinon peux-tu expliquer plus en détail ce que tu veux faire STP

 

Vote positif 0 Vote négatif

H

Herbiti

Guest

• 14 Septembre 2005

• #3

Excusez-moi, j'ai posté deux fois mon post, une fois quand j'étais connecté et l'autre quand je ne l'étais pas.

Concernant mon problème:

J'ai une colonne 'Texte courant' et une colonne 'Code'. Chaque ligne contenant deux caractères (un dans 'Texte courant' et un dans 'Code').

Je tape dans une case, dans une autre feuille, la lettre 'a'. En texte courant, ça donne 'a', imaginons que la lettre qui code le 'a' soit le 'z' ('z' à coté du 'a'), j'aimerai qu'en tapant le 'a', la fonction 'Coder' me renvoie la lettre 'z'. Ce sont les bases. Evidemment, j'ai fait une boucle (avec for...next) afin de convertir un mot, même une phrase!

Voilà ma macro:

Code:

Function Coder(Texte)
intLong = Len(Texte)
For intCar = 1 To intLong
    strCar = Mid$(Texte, intCar, 1)
    Coder = Coder & ???
Next intCar
End Function

Comme je le disais, je sais qu'il existe une formule qui cherche dans une certaine colonne, et qui donne, une fois le caractère recherché atteind donne le caractère qui se trouve dans la colonne qui la jouxte.

Il existe 'RECHERCHEV', bien sûr, mais j'aimerai trouver une formule du genre, mais sous Visual Basic.

Merci

Message édité par: Herbiti, à: 14/09/2005 17:45

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 14 Septembre 2005

• #4

Bonjour

Tu peux peut-être tout simplement utiliser Find et ensuite un offset(0,1)

PS j'ai supprimé l'autre fil pour eviter le doublon

 

Vote positif 0 Vote négatif

H

Herbiti

Guest

• 14 Septembre 2005

• #5

je ne sais pas trop comment ça fonctionne le find un un offset.

en fait, j'ai fait le même programme sur access, avec une table, j'ai utilisé la formule dlookup (à la place des ???), mais suir excellça veut pas.

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 14 Septembre 2005

• #6

Re

bon il faut adapter car j'ai fait sur une feuille qui s'appelle Feuil1 et seulement sur 8 caractères en colonne A et le code en colonne B

For intCar = 1 To intLong
strcar = Mid$(texte, intCar, 1)
moncar = moncar & Sheets('Feuil1').Range('B' & Sheets('Feuil1').Range('A1:A8').Find(strcar).Row)

Next intCar

 

Vote positif 0 Vote négatif

H

Herbiti

Guest

• 14 Septembre 2005

• #7

ça fonctionne ! Merci

J'aimerai aussi, si ça ne vous dérange pas, comment avez-vous construit cette formule compliquée?

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 14 Septembre 2005

• #8

Re

Heu sur le forum on se tutoie c'est beaucoup plus sympa et conviviale (et j'ai l'impression d'être moins vieux 😉 )

Pour la formule elle me parait pas trop complexe

je te la detaille

Sheets(\\'Feuil1\\').Range(\\'A1:A8\\').Find(strcar).Row <=== donne la ligne dans la colonne A où il trouvera ton caractère

Sheets(\\'Feuil1\\').Range(\\'B\\' & Sheets(\\'Feuil1\\').Range(\\'A1:A8\\').Find(strcar).Row) <=== recupère la valeur dans la colonne B à lal ligne qu'on vient de trouver

moncar = moncar & Sheets(\\'Feuil1\\').Range(\\'B\\' &
Sheets(\\'Feuil1\\').Range(\\'A1:A8\\').Find(strcar).Row) <=== ajoute le caractère au bout des autres

 

Vote positif 0 Vote négatif

H

Herbiti

Guest

• 14 Septembre 2005

• #9

merci beaucoup

j'ai compris

 

Vote positif 0 Vote négatif

H

Herbiti

Guest

• 14 Septembre 2005

• #10

Un petit ennui technique:

Comment fait-on pour bloquer une ligne ou une colonne? Je m'explique.

J'aimerai que quand on a une ligne (la une par exemple), et qu'on descends jusqu'à la ligne 21, je vois toujours la ligne numéro une.

Comment fait-on?

Merci

 

Vote positif 0 Vote négatif

H

Herbiti

Guest

• 14 Septembre 2005

• #11

Un petit ennui technique:

Comment fait-on pour bloquer une ligne ou une colonne? Je m'explique.

J'aimerai que quand on a une ligne (la une par exemple), et qu'on descends jusqu'à la ligne 21, je vois toujours la ligne numéro une.

Comment fait-on?

Merci

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 14 Septembre 2005

• #12

re

excuse je ne comprends pas ta question

 

Vote positif 0 Vote négatif

H

Herbiti

Guest

• 14 Septembre 2005

• #13

j'ai repris un fichier du site pour vous l'expliquer

les lignes 1 à 5, quoique l'on fasse, elle restent toujours, tu peux aller à la ligne 100 que tu les verras toujours. Voilà ce que j'aimerai faire. [file name=FichierModele.zip size=30978]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/FichierModele.zip[/file]

 

Pièces jointes

• FichierModele.zip

  30.3 KB · Affichages: 16

Vote positif 0 Vote négatif

Claudy

XLDnaute Accro

• 14 Septembre 2005

• #14

soir...
Fenêtre ....bloquer les volets...
A+

 

Vote positif 0 Vote négatif

H

Herbiti

Guest

• 14 Septembre 2005

• #15

merci beaucoup

 

Vote positif 0 Vote négatif