Discussion :

[fernandezalain]

bonjour
j'ai des champs de saisie dans une feuille
ex le nom
a la validation de cette feuille les données sont recopiées dans une autre feuille et mise en format pour certaines
c'est le cas de nom que je voudrais recuperer dans ma feuillle mais en majuscule
le transfert de feuille se fait ainsi

Code :

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

1
2
With Worksheets(Cible)
.Range("B4").Value = Worksheets(Source).Range("B5").Value

je pensais qu'en mettant simplement UPPER devant cela marcherait
il n'en est rien

je pourrais aussi forcer a la saisie de la 1ere feuille la Majuscule mais pas simple
je ne peux faire majuscule(xx) puisque je suis dans la meme cellule de saisie
si vous avez des idées!!

merci

[halaster08]

je pensais qu'en mettant simplement UPPER devant cela marcherait

Bonjour,

C'est Ucase la fonction vba pour majuscule, cf le tuto:http://silkyroad.developpez.com/VBA/...racteres/#LI-G

[fernandezalain]

j'avais essayé aussi mais c'est la facon de l'ecrire dans ma ligne citée plus haut

[halaster08]

Ceci fonctionne chez moi:

Code :

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

Sheets("1").Cells(1, 5).Value = UCase(Sheets("2").Cells(1, 5).Value)

[fernandezalain]

Ceci fonctionne chez moi:

Code :

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

Sheets("1").Cells(1, 5).Value = UCase(Sheets("2").Cells(1, 5).Value)

oui ca peut m'aider mais difficile a integrer dans mon code

With Worksheets(Cible)
.Range("B4").Value = Worksheets(Source).Range("B5").Value
.Range"B5").Value = Worksheets(Source).Range("B6").Value

[fernandezalain]

excusez moi j'ai bien mis balises mais ....

oui ca peut m'aider mais difficile a integrer dans mon code

Code :

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

1
2
3
With Worksheets(Cible)
.Range("B4").Value = Worksheets(Source).Range("B5").Value
.Range"B5").Value = Worksheets(Source).Range("B6").Value

c'est mieux la!!

[patricktoulon]

re
en majuscule

Code :

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

1
2
3
4
With Worksheets(Cible)
.Range("B4").Value = ucase(Worksheets(Source).Range("B5").Value)
.Range"B5").Value = ucase(Worksheets(Source).Range("B6").Value)
end with

en nom propre

Code :

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

1
2
3
4
With Worksheets(Cible)
.Range("B4").Value =WorksheetFunction.Proper( Worksheets(Source).Range("B5").Value)
.Range"B5").Value = WorksheetFunction.Proper(Worksheets(Source).Range("B6").Value)
end with

ou bien en nompropre encore

Code :

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

1
2
3
4
With Worksheets(Cible)
.Range("B4").Value =strconv( Worksheets(Source).Range("B5").Value,vbpropercase)
.Range"B5").Value = strconv(Worksheets(Source).Range("B6").Value,vbpropercase)
end with

[fernandezalain]

je pense trouver ma solution la dedans
je considere le sujet clos alors

merci encore