Empecher la mise en forme automatique en format scientifique

Résolu/Fermé

Kuartz Messages postés 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 - 30 sept. 2015 à 17:25
Kuartz Messages postés 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 - 1 oct. 2015 à 09:22

Bonjour,

J'ai un code du genre :

DL = Cells(Application.Rows.Count, 4).End(xlUp).Row

For i = DL To 4 Step -1

If Range("A" & i) = "" Then
    Range("A" & i).Value = CDate(Range("A" & i - 1).Value)
    Range("B" & i).Value = Range("B" & i - 1).Value
    Range("C" & i).Value = Range("C" & i - 1).Value
    Range("E" & i).Value = Range("E" & i - 1).Value
    Range("F" & i).Value = CStr(Range("F" & i - 1).Value)
    Range("G" & i).Value = Range("G" & i - 1).Value
    Range("H" & i).Value = CDate(Range("H" & i - 1).Value)
Rows(i - 1).Delete

i = i - 1
ElseIf Range("B" & i) = Range("B" & i + 1) And Range("C" & i) = Range("C" & i + 1) Then
    Rows(i).Delete
End If

Voilà j'ai la ligne :

Range("F" & i).Value = CStr(Range("F" & i - 1).Value)

J'ai mis CStr pour contrer le fait que dès que le nombre est trop long, il se met en format scientifique. Ce sont des numéros de facture dont je ne veux pas. Je pensais que forcer un format texte empêcherait ça mais apparemment non.

Une idée?

Merci d'avance.

Cordialement.

A voir également:

Empecher la mise en forme automatique en format scientifique
Mise en forme conditionnelle excel - Guide
Telecharger format factory - Télécharger - Conversion & Codecs
Format epub - Guide
Message automatique thunderbird - Guide
Format apfs - Guide

1 réponse

Réponse 1 / 1

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
1 oct. 2015 à 07:44

Bonjour,

Puisque

Range("F" & i).Value = CStr(Range("F" & i - 1).Value)

Je m'étonnes qu'en i-1 ce ne soit pas déjà le cas...

Essaye ceci :

Range("F" & i).Value = "'" & Range("F" & i - 1).Value

ou ceci :

Range("F" & i).Value = "'" & CStr(Range("F" & i - 1).Value)

Kuartz Messages postés 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 61
1 oct. 2015 à 09:22

Range("F" & i).Value = "'" & Range("F" & i - 1).Value

Niquel :)

Merci beaucoup.

Discussions similaires

Boucle sur la première diapositive d'une présentation

Table des matières dont les titres n'apparaissent pas..

Mise en forme conditionnelle 2 conditions

Formule magique excel??????

titre encadré

Discussions similaires

Newsletters