Format nombre et VBA Résolu

[T77XDD]

Bonjour,
lors de l'enregistrement de la feuille j'obtiens "I.C. GARVI Danielle App N° 9 du 18-09-2015" alors que je devrais obtenir "I.C. GARVI Danielle App N° 3245.0009 du 18-09-2015". Je n'arrive pas à mettre le format 3245.xxxx dans le titre du document et (surtout) dans la case E9 sans passer par format de cellule.
Je suis obligé de conserver ce format dans les colonnes A et J parce que sur le classeur original il y a 650 X 6 formules à modifier qui sont les synoptiques des bâtiments.

Merci d'arriver à m'éviter cette dernière manip.

De plus dans le module les cases
Range("D5:E5").Select
Range("E9").Select
Range("C15").Select
Range("D17").Select
Range("F17").Select
ne s'effacent pas

 

[Caillou]

Re : Format nombre et VBA

Bonjour,

Pour le format, essayes de le mettre dans le code

Appart = Format(Sheets("I C ").Range("E9"), "3245\.0000")

Pour les cellules qui ne s'effacent pas, c'est normal, il faut mettre un seul Select

Range("D5:E5,E9,C15,D17,F17,A20:F49").Select

Caillou

 

[vgendron]

Re : Format nombre et VBA

Bonjour

à mon avis. tu aurais du rester dans ton premier post..

sinon

Range("D5:E5").Select
Range("E9").Select
Range("C15").Select
Range("D17").Select
Range("F17").Select

tu ne fais que sélectionner les range une à une chacune leur tour..donc normal qu'elles ne s'effacent pas..

la range D5:E5 : comme il y a une formule dedans.. vaut mieux pas y toucher..
idem pour E9
C15 DOIT etre effacée
avec range("C15").clearContents
du coup, tes cellules D5:E5 se vident
idem pour D17 et F17

ce qui te donnerait ce code

 Range("C15").ClearContents
    Range("D17").ClearContents
    Range("F17").ClearContents
    Range("A20:F49").SpecialCells(xlCellTypeConstants, 23).ClearContents

edit: Bonjour Caillou
et avec le multiselect de Caillou
Range("C15,D17,F17").clearcontents
Range("A20:F49").SpecialCells(xlCellTypeConstants, 23).ClearContents

 

[T77XDD]

Re : Format nombre et VBA

Nickel, Merci