[VBA-E]deselectionner une selection

Version imprimable

31/03/2006, 15h05
Elstak

[VBA-E]deselectionner une selection
coucou,

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

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 :( )
31/03/2006, 15h08
titou007

et tester un basic:
application.cutcopymode =false
après avoir fait ton travail sur ta selection?
31/03/2006, 15h11
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 !! :D
31/03/2006, 15h17
SfJ5Rpw8

ben tu sélectione autre chose...

Code:

range("A1").select
31/03/2006, 15h18
chmod777

a mon avis t es toujours oblige de selectionner quelque chose

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:

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...

31/03/2006, 15h47
ouskel'n'or

Code:

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

Alors jemefe, on fait des blagues ? :wink:

A+
31/03/2006, 17h03
SfJ5Rpw8
Citation:
Envoyé par Elstak

Et oui bbil, (...)

Code:

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:

Worksheets("Valeur_LMDV_sem" & Num_Semaine).Range("A1").Select
03/04/2006, 08h58
Elstak

Hého,

donc le code suivant marche bien :

Code:

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 :lol: