Changer le format des cellules dans différentes collonnes

Version imprimable

04/01/2014, 19h33
ChNoirhomme

Changer le format des cellules dans différentes collonnes

Bonsoir,

je suis nouveau dans la programmation VBA avec Excel, et j'aimerai votre aide
J'ai un tableau et je voudrais changer le format des cellules dans différentes colonnes. En commençant avec les cellules de la colonnes C et un pas de 3 colonnes je voudrais une numérotation avec 2 chiffres après la virgule.
Ensuite en commençant avec les cellules de la colonnes D et un pas de 3 colonnes je voudrai un format hh:mm.

Je vous remercie déja de votre aide, mais pour que je sois moins idiot après qu'avant pouvez vous commenter les différentes opération.

Vous êtes super, bonne année et merci:ccool:
04/01/2014, 21h54
nibledispo

changer de format

Bonsoir,

pourquoi en VBA alors que tu peux le faire directement sur la feuille Excel en sélectionnant les colonnes entières ?

Menu ACCUEIL/POLICE/NOMBRE

Cordialement
05/01/2014, 04h53
ChNoirhomme

1 pièce(s) jointe(s)

Voila ou j'en suis :oops::oops::cry::cry:

changer de format

Bonjour,

Si tu tiens vraiment à faire en VBA, ceci devrait te convenir :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub FormatCellule()
Dim celselect As Range
Dim DerCol As Integer
Dim NumCol As Integer
Sheets("20FHEssais").Activate  ' pour le cas ou tu rajouterais des feuilles
DerCol = Range("A65536").SpecialCells(xlCellTypeLastCell).Column
 
For NumCol = 3 To DerCol +3 Step 3 ' +3 car selon le nombre une colonne pourrait ne pas être traitée
    Set celselect = Range(Cells(3, NumCol), Cells(65536, NumCol))
    celselect.NumberFormat = "0.00"
    celselect.Offset(0, 1).NumberFormat = "hh:mm"
Next
End Sub

Cordialement,

06/01/2014, 04h43
nibledispo

résolu

Bonjour,

Les messages privés ne dispensent pas de cliquer sur "résolu"

Cordialement,