Appliquer Format Police lors d'une Copy Données dans autre feuil

[MuscatMimi]

Bonjour a tous

Dans le Code ci-dessous, qui fonctionne bien,
j'aimerais savoir s'il est possible d'appliquer

**Taille de Police (Ex:Arial 10)
**Premiére lettre des mots commence par une Majuscule,le reste du mot en minuscule
**Couleur Noir

Sub transfert()

Dim i As Long

 i = Sheets("RelevéFact").Range("A65000").End(xlUp).Row + 1 '
 
Range("K3").Copy Destination:=Sheets("RelevéFact").Range("A" & i) 'N°Fact
Range("F10").Copy Destination:=Sheets("RelevéFact").Range("B" & i) 'NomClient
Range("H19").Copy Destination:=Sheets("RelevéFact").Range("C" & i) '"dd mm yyyy") 'Date
Range("C22").Copy Destination:=Sheets("RelevéFact").Range("D" & i) 'NomChantier
Range("A22").Copy Destination:=Sheets("RelevéFact").Range("G" & i) 'Code Chantier
Range("C58").Copy Destination:=Sheets("RelevéFact").Range("H" & i) 'TTC
Range("C19").Copy Destination:=Sheets("RelevéFact").Range("I" & i) 'EchéanceLe
Range("A19").Copy Destination:=Sheets("RelevéFact").Range("J" & i) 'Mode Réglement

End Sub

Cordialement

 

[tototiti2008]

Re : Appliquer Format Police lors d'une Copy Données dans autre feuil

Bonjour Christian,

peut-être :

with Sheets("RelevéFact").Range("A" & i & ":D" & i & ",G" & i & ":J" & i)
.font.name = "Arial"
.font.size = 10
.font.colorindex = 1
end with
For each Cellule in Sheets("RelevéFact").Range("A" & i & ":D" & i & ",G" & i & ":J" & i)
Cellule.value = StrConv(cellule.Value, vbProperCase)
next

 

[JNP]

Re : Appliquer Format Police lors d'une Copy Données dans autre feuil

Bonjour le fil 🙂,
Autre proposition

Range("A" & I & ":J" & I).Font.Name = "Arial"
Range("A" & I & ":J" & I).Font.Size = 10
Range("C" & I) = UCase(Left(Range("C" & I), 1)) & LCase(Right(Range("C" & I), Len(Range("C" & I)) - 1))
Range("A" & I & ":J" & I).Font.Color = 0

Bonne journée 🙂

 

[MuscatMimi]

Re : Appliquer Format Police lors d'une Copy Données dans autre feuil

Bonjour jnp, et tototiti

merci de votre contribution

J'ai omis de noter que mes données commence a la ligne 15

Je viens d'essayer d'inclure les codes que vous avez proposé
mais résultat ,nul,
je séche,
je ne sais pas comment inclure vos code dans ma procédure

pardon d'être aussi nul


A+++++++++++++++merci

 

[JNP]

Re : Appliquer Format Police lors d'une Copy Données dans autre feuil

Re 🙂,

Sub transfert()
Dim i As Long
 i = Sheets("RelevéFact").Range("A65000").End(xlUp).Row + 1 '
 
Range("K3").Copy Destination:=Sheets("RelevéFact").Range("A" & i) 'N°Fact
Range("F10").Copy Destination:=Sheets("RelevéFact").Range("B" & i) 'NomClient
Range("H19").Copy Destination:=Sheets("RelevéFact").Range("C" & i) '"dd mm yyyy") 'Date
Range("C22").Copy Destination:=Sheets("RelevéFact").Range("D" & i) 'NomChantier
Range("A22").Copy Destination:=Sheets("RelevéFact").Range("G" & i) 'Code Chantier
Range("C58").Copy Destination:=Sheets("RelevéFact").Range("H" & i) 'TTC
Range("C19").Copy Destination:=Sheets("RelevéFact").Range("I" & i) 'EchéanceLe
Range("A19").Copy Destination:=Sheets("RelevéFact").Range("J" & i) 'Mode Réglement
With Sheets("RelevéFact")
.Range("A" & i & ":J" & i).Font.Name = "Arial"
.Range("A" & i & ":J" & i).Font.Size = 10
.Range("C" & i) = UCase(Left(Range("C" & i), 1)) & LCase(Right(Range("C" & i), Len(Range("C" & i)) - 1))
.Range("A" & i & ":J" & i).Font.Color = 0
End With
End Sub

Bonne journée 😎

 

[MuscatMimi]

Re : Appliquer Format Police lors d'une Copy Données dans autre feuil

re jnp

Bug a cette ligne erreur de procédure

.Range("C" & i) = UCase(Left(Range("C" & i), 1)) & LCase(Right(Range("C" & i), Len(Range("C" & i)) - 1))

A++++++++++++

 

[JNP]

Re : Appliquer Format Police lors d'une Copy Données dans autre feuil

Re 🙂,
C'est que le nom de ton client fait moins de 2 caractères 😕...

If Len(Range("C" & I)) >= 2 Then
.Range("C" & I) = UCase(Left(Range("C" & I), 1)) & LCase(Right(Range("C" & I), Len(Range("C" & I)) - 1))
End If

devrait arranger le problème.
A + 😎

 

[MuscatMimi]

Re : Appliquer Format Police lors d'une Copy Données dans autre feuil

Re jnp


C'est bon ça fonctionne, rien compris
les Noms de mes clients comporte plus de deux Lettres


Par contre , je n'avais pas vu une chose, de mettre une Majuscule en début de Nom OK ça fonctionne, mais le Hic, est que si le Nom que je copy est en majuscule, tout reste en majuscule,
il y a t'il un moyen, pour solutionner cela


a +++++++++++++
Merci pour ton aide

 

[JNP]

Re : Appliquer Format Police lors d'une Copy Données dans autre feuil

Re 🙂,

Par contre , je n'avais pas vu une chose, de mettre une Majuscule en début de Nom OK ça fonctionne, mais le Hic, est que si le Nom que je copy est en majuscule, tout reste en majuscule,
il y a t'il un moyen, pour solutionner cela

T'est sûr d'avoir tester avec des majuscules ?
Chez moi, si par exemple tu as "duRAND" en Range("C" & I), le code que je t'ai fourni transforme en "Durand" 😕.
Vérifie bien 😉.
A + 😎

 

[MuscatMimi]

Re : Appliquer Format Police lors d'une Copy Données dans autre feuil

C'est sur cette Ligne range F10 Nom client que quelque fois ,tout est en Majuscule

Range("F10").Copy Destination:=Sheets("RelevéFact").Range("B" & i) 'NomClient

a plus

 

[tototiti2008]

Re : Appliquer Format Police lors d'une Copy Données dans autre feuil

Bonsoir JNP,
Re,

alors peut-être faudrait-il appliquer le code de JNP sur la colonne B plutôt que la C...

Sinon il y a

.Range("B" & I).value =StrConv(.Range("B" & I).value, vbpropercase)

 

[MuscatMimi]

Re : Appliquer Format Police lors d'une Copy Données dans autre feuil

Salut tototiti


ben ton bout de code je vois pas ou le placer
j'ai essayez pas mal de version, sans success

Et si je remplace C dans le code de jnp, ça fonctionne pas

aprés ça si l'on trouve pas je met mon Fichier

a plus

 

[JNP]

Re : Appliquer Format Police lors d'une Copy Données dans autre feuil

Re 🙂,
Oui, j'ai dérapé d'une ligne et j'ai vu client en C au lieu de B 😱...
La date avec une majuscule, pas top 😛...

If Len(Range("B" & I)) >= 2 Then
.Range("B" & I) = UCase(Left(Range("B" & I), 1)) & LCase(Right(Range("B" & I), Len(Range("B" & I)) - 1))
End If

devrait être bon 😉.
Bonne soirée 😎
Ajout : Où, en utilisant le code de TotoTiti à la place...

 

[MuscatMimi]

Re : Appliquer Format Police lors d'une Copy Données dans autre feuil

je crois que ça devient désolant mon soucis

j'avais bien modifié ton code avec B au lieu de C
mais ça ne fonctionne pas,je comprends pas
de plus j'ai essayé avec un autre classeur que j'ai créé idem

En ce qui concerne le code de totottiti, je vois pas ou le placer

Bonne soirée

Merci de te pencher sur mon soucis

 

[JNP]

Re : Appliquer Format Police lors d'une Copy Données dans autre feuil

Re 🙂,
Je crois qu'effectivement un petit classeur exemple devient indispensable...
A + 😎