Discussion :

[Elstak]

coucou,

ma question est peut etre bete mais je voudrai mettre tout les contenus de la colonne A en gras

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Worksheets("Valeur_LMDV_sem" & Num_Semaine).Columns("A").Select
Selection.Font.Bold = True
Worksheets("Valeur_LMDV_sem" & Num_Semaine).Columns("A").Deselect

ce code fonctionne (les 2 premiere lignes) mais ensuite je voudrai ne plus avoir la colonne A de selectionnée (j'ai donc tenté un deselect, j'etait content il m'avait mis le D en gros "Deselect" jme suis di youpi c ca mais non )

[titou007]

et tester un basic:
application.cutcopymode =false
après avoir fait ton travail sur ta selection?

[Elstak]

Bah j'ai pas d'erreur d'execution mais j'ai pas ce que je veux non plus (la selection est tourjours là)

idée suivante !!

[SfJ5Rpw8]

ben tu sélectione autre chose...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

range("A1").select

[chmod777]

a mon avis t es toujours oblige de selectionner quelque chose

[Elstak]

Et oui bbil, j'ai tenté ca, selectionner une cellule quelconque mais j'ai une erreur je ne comprend pas...

voici un peu de mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
If (val = 1) Then
  Sheets.Add after:=Sheets(Sheets.Count)
  Sheets(Sheets.Count).Name = "Valeur_LMDV_sem" & Num_Semaine
  Worksheets(Numfeuille).Range(Cells(63, 1), Cells(64, Nbvaleur)).Cut Worksheets(Sheets.Count).Range("b1:b1")
  Worksheets("Valeur_LMDV_sem" & Num_Semaine).Columns("A").Select
  Selection.Font.Bold = True
  Worksheets("Valeur_LMDV_sem" & Num_Semaine).[A1].Value = "blabla"
  Worksheets("Valeur_LMDV_sem" & Num_Semaine).[A2].Value = "blabla"
  Worksheets("Valeur_LMDV_sem" & Num_Semaine).[A3].Value = "blabla"
  'redimensionnement de la largeur des colonnes remplies
  Worksheets("Valeur_LMDV_sem" & Num_Semaine).Columns().EntireColumn.AutoFit
  Range("A1").Select
 
End If

et j'ai une erreur sur la derniere ligne et tout va bien si je la supprime...

Je pourrai tres bien mettre les cellules 1 par 1 en gras mais il risque certainement d'en avoir d'autres...

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("Feuille").cells(1,1).select

Alors jemefe, on fait des blagues ?

A+

[SfJ5Rpw8]

Et oui bbil, (...)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
(..)
  Worksheets("Valeur_LMDV_sem" & Num_Semaine).Columns().EntireColumn.AutoFit
  Range("A1").Select
 
End If

et j'ai une erreur sur la derniere ligne et tout va bien si je la supprime..

Pourquoi sur toutes les lignes tu précise la feuille et pas sur la derniére !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Worksheets("Valeur_LMDV_sem" & Num_Semaine).Range("A1").Select

[Elstak]

Hého,

donc le code suivant marche bien :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("Valeur_LMDV_sem" & Num_Semaine).Cells(1, 1).Select

C'est vrai je sais pas pourquoi je selectionnais plus la feuille...

En tout cas merci