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

 

[MuscatMimi]

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

ok je te l'envoi dés demain je vais l'alléger
Bonne soirée
et encore grand merci

 

[MuscatMimi]

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

Bonjour tototiti et jnp

Problème résolu

Voici ce que j'ai réussi a trouver,je met ce code si ça peut intérresser une autre personne

et ça fonctionne

'--Dans Feuille
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A:A]) Is Nothing And Target.Rows.Count = 1 And Target.Columns.Count = 1 Then
    If Target <> "" Then
        Application.EnableEvents = False
        Test2 Target
        Application.EnableEvents = True
    End If
End If
End Sub


'--Dans un Module
Sub Test2(Arg1 As Range)
Exclusion = Array("au", "à", "le", "dans", "est", "un") 'Mots à exclure
Var1 = Split(Arg1, " ")
Var2 = ""
Var3 = ""
For i = 0 To UBound(Var1)
    If IsError(Application.Match(Var1(i), Exclusion, 0)) Then
        Var2 = Application.Proper(Var1(i))
    Else
        Var2 = Var1(i)
    End If
    Var3 = Var3 & " " & Var2
Next
Arg1 = Right(Var3, Len(Var3) - 1)
End Sub

Merci a vous deux pour votre aide

Bonne journée

 

[Manuscriteur]

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

Salut tous ,
J'ai un petit service à vous demander,
J'ai vus que l'on pouvez affecter de fait de mettre une majuscule à une nom propre avec une fonction copy d'une cellule d'une feuille à une autre cellule d'une autre feuille.
En faite pour ma part, j'ai un texte Cellule Cible!C8 qui est fusionné.
je revoie juste le test dans une cellule nom fusionné .
j'utilise un ATL+ENTREE pour passe une ligne plus bas.
Mon texte reporter sur l'autre cellule na pas du tout le même le même format, il manque ma premiére ligne en gras qui n'est pas reporter sur ma copy.

C'est possible de mettre juste ma premiére ligne en GRAS et le reste ne change pas.

Si besoin du ficheir pas de souci sinon, si un code existe car la j'ai tout essayer et j'evite d'inventer.

Merci a tous 🙂

 

[Manuscriteur]

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

un petit up pour une idée 🙁

 

[JNP]

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

Re 🙂

je revoie juste le test dans une cellule nom fusionné .
j'utilise un ATL+ENTREE pour passe une ligne plus bas.
Mon texte reporter sur l'autre cellule na pas du tout le même le même format, il manque ma premiére ligne en gras qui n'est pas reporter sur ma copy.
C'est possible de mettre juste ma premiére ligne en GRAS et le reste ne change pas.

La question n'est pas très claire... Si tu fais une copie de cellule

Range("C8").Copy Range("D8")

le format est conservé. Si effectivement, tu te contente de copier le texte

Range("D8") = Range("C8")

tu perds la mise en forme, donc le gras différencié.
Bonne soirée 😎

 

[Manuscriteur]

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

Merci JNP,

Juste pour te preciser.

J'ai ma Feuille Cible! cellule C8 que je renvois à Devis! cellule A23.

Donc dans A23 j'ai mis Cible!$C$8.

Et j'ai un souci pour ton code, je mets ou ?

Dans Private Sub Worksheet_SelectionChange(ByVal Target As Range) ?

Sur la feuille source ou la feuilles cible ?

Désolé de t'embéter avec toute ces questions mais j'ai pas envie de mettre cela n'importe ou sans savoir, plus simple de comprendre pour retenir la prochaine fois ou aider d'autres personnes.

Merci de ta précieuse aide et de ton temps que tu me consacre. 😉

 

[JNP]

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

Re 🙂,
Quand je disais que la question n'était pas très claire 😛...
Mauvaise nouvelle, techniquement, je pense que ton problème n'a pas de solution (ou alors, il faudra faire une usine à gaz 😀...)😱.
Je vais essayer que ma réponse soit claire (pas garanti...) 🙄
J'avais pensé que tu utilisais déjà du code, mais en réalité, tu as juste une cellule dans la feuille Devis avec

=Cible!$C$8

ce qui veut dire que le résultat affiché est "virtuel". Si tu mets en forme ta cellule, c'est tout le résultat de ta formule qui est modifié.
Pour pouvoir mettre en forme tes 2 parties de texte, il va falloir que l'on remplace la formule par le résultat, MAIS, si $C$8 change, A23 ne changera plus, elle 🙁...
Désolé et bon courage 😎

 

[Manuscriteur]

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

Bon c'est clair et net le verdique et rendu. Accusé levé vous 😀

Merci pour ta réponse je sais que maintenant pour un renvoie de cellules de page à page on ne peux pas.
Ou alors il faut passer par un bouton et une macro à ne pas en finir....

Mon fichier n'est pas bien grand et dommage car je n'avais que 8 cellules à renvoyé sur une autre page en gardant la même caractéristique de police et de mise en forme (Gras et souligné)

Je vais laisser cela de côté et tant pis.
Dommage qu'il n'est pas penser à cette possibilité lors de la création du logiciel en lui même.

Surpris même que cela ne leur a pas effleuré l'espris.

Merci quand même de ta patiente et de ta réponse clair et net.

Passe une bonne soirée et à plus sur le forum pour de nouvelles aventures.😎

 

[MuscatMimi]

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

Bonjour a tous

Je sais pas si j'ai bien compris le probléme
Mais jetez un oeil a mon Fichier
En utilisant l'Appareil Photo!!!!!!!

Cordialement

 

[JNP]

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

Re 🙂,

Je sais pas si j'ai bien compris le probléme
Mais jetez un oeil a mon Fichier
En utilisant l'Appareil Photo!!!!!!!

Si, chapeau bas, c'est quelque chose que je n'aurait pas pensé à utiliser. Comme quoi il ne faut jamais dire jamais 😛...
Pour 8 cellules seulement, c'est largement jouable. Notre ami va être content 😉.
Bonne journée 😎

 

[MuscatMimi]

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

Salut jnp

Ben quand je sais j'aide au mieux,
quand je sais pas,je fais appel a vous

Tu a commencé a m'aider pour ce sujet,au début,ensuite j'ai trouvé le Code que j'ai mis en ligne,
afin que ce code puisse servir a d'autres personne

Mais pour moi, c'est pas ce que je voulais,avec l'appareil photo


A plus a tous