Microsoft 365 Problème de format de cellule en VBA

wDog66

XLDnaute Occasionnel

• 21 Mars 2024

• #2

Bonjour David,

Peut-être avec

VB:

Sheets(Libel).Range("A" & DerligDest & ":G" & DerligDest).Text = Sheets("PROVISION M-1").Range("A" & i & ":G" & i).Text

A+

 

Vote positif 0 Vote négatif

D

David

XLDnaute Occasionnel

• 21 Mars 2024

• #3

Bo

wDog66 à dit:

Bonjour David,

Peut-être avec

VB:

Sheets(Libel).Range("A" & DerligDest & ":G" & DerligDest).Text = Sheets("PROVISION M-1").Range("A" & i & ":G" & i).Text

A+

Cliquez pour agrandir...

Bonjour,
Merci, j'est testé ça ne marche pas, soit j'ai une erreur avec .Text sur la première partie, soit il ne ramène rien avec le .Text sur la seconde partie. Le .Value doit poser problème, mais je ne vois pas comment faire autrement.

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 21 Mars 2024

• #4

Bonjour,

Si tu veux garder le format d'origine, tu peux faire une copie de la cellule source vers la cellule cible, ou ajouter dans ta macro des instructions qui vont recopier le format, ou peut-être tout simplement mettre au départ ta cellule cible au format Texte.

 

Vote positif 0 Vote négatif

D

David

XLDnaute Occasionnel

• 21 Mars 2024

• #5

Merci TooFatBoy
j'arrive à passer la cellule au format texte avec Selection.NumberFormat = "@" et les nombres se mettent bien au format Texte, mais les 0 devants ont déjà disparus, il faudrait qu'en plus du format texte, je remette le format sur 4 caractères. je peux avoir 2 ou 3 chiffres.
Faire un copier coller de chaque ligne est super lourd.

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 21 Mars 2024

• #6

Si, comme tu le dis dans ta question, ta cellule source est vraiment du texte, je ne vois pas pourquoi la cellule cible ne reste pas au format texte.


Mais bon, la divination c'est pas trop mon truc...

 

Dernière édition: 22 Mars 2024

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 21 Mars 2024

• #7

Bonjour à tous

Et avec un fichier pour tester avec le reste de la macro car j'imagine que la macro n'a pas qu'une ligne vu qu'il y a à priori une boucle avec i !

 

Vote positif 0 Vote négatif

D

David

XLDnaute Occasionnel

• 22 Mars 2024

• #8

Merci pour vos retours, je ne peux mettre le fichier à dispo.
Je sais que la divination ce n'est pas votre truc, mais ça change bien le texte en valeur sur cette ligne et pas ailleurs. je ne me l'explique pas. J'ai tenté tout un tas de truc. Et bizarrement si je transforme les cellules en texte à la création de l'onglet ça marche pour le format, mais j'ai une boucle ou ça ne lui plait pas et ça par en live.
Pas grave du coup je suis passé en copier coller, ç'est plus lourd mais ça marche.
Merci et bonne journée.

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 22 Mars 2024

• #9

@David

David à dit:

je ne peux mettre le fichier à dispo.

Cliquez pour agrandir...

Rien ne t’empêche de fournir un fichier représentatif

C'est quoi représentatif ?

- représentatif, même organisation des lignes et des colonnes, mêmes libellés, même nom des TS, mêmes noms de feuilles...
- anonymisé, pas de données personnelles réelles tels nom, n° sécu, adresse ... remplacé par Nom1, Nom2 etc ....
- simplifié, une quinzaine de lignes reproduisant l'ensemble des différents cas envisageables (Avec le résultat souhaité éventuellement)

Si cela fonctionne sur le fichier fourni et pas sur le vrai fichier c'est qu'il n'est en rien représentatif ou que tu n'as pas su transposer ce qui devrait être un simple copier coller du code.

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 22 Mars 2024

• #10

Bonjour à tous ,

Cliquer sur le bouton Hop! et et comparer les résultats en colonne C et E (pas de boucle):

VB:

Sub test()
     
   ' vers colonne C sans formatage préalable
   Range("c2:c30") = Range("a2:a30").Value
 
   ' vers colonne E avec formatage prélable en "Texte"
   Range("e2:e30").NumberFormat = "@"
   Range("e2:e30") = Range("a2:a30").Value
End Sub

 

Pièces jointes

• David- valeurs chiffre en texte- v1.xlsm

  17.6 KB · Affichages: 0

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 22 Mars 2024

• #11

David à dit:

Et bizarrement si je transforme les cellules en texte à la création de l'onglet ça marche pour le format

Cliquez pour agrandir...

Il n'y a rien de bizarre. C'est même normal et c'est pour cela que c'est une des propositions que je t'ai faites.
Une des autres propositions que je t'ai faites était le copier/coller. Tu dis que ça fonctionne aussi. C'est normal aussi.

Tu n'as pas dit si tu avais vérifié que le contenu de la cellule source était bien du texte et non un nombre...

---

David à dit:

mais j'ai une boucle ou ça ne lui plait pas et ça par en live.

Cliquez pour agrandir...

Sans le classeur, et sans même la macro, impossible de t'aider à résoudre ton problème de boucle.

 

Vote positif 0 Vote négatif

D

David

XLDnaute Occasionnel

• 28 Mars 2024

• #12

Merci à tous pour vos retours.
Je vais tester la solution de mapomme et je vous tiendrais au courant.

Bonne journée.

 

Vote positif 0 Vote négatif