Mise en forme

[a10]

je recherche des reponse afin d'avoir un filtre et une police plus grande
garder le curseur toujours en haut

a+

voici le code qui est dans la feuille 1
Option Explicit
Private Sub Worksheet_Change(ByVal R As Range)
If R.Count > 1 Then Exit Sub
If Intersect(R, Cells.SpecialCells(xlCellTypeAllValidation)) Is Nothing Then Exit Sub
'tout se passe en colonne où sont copiées les valeurs initiales
Cells(Columns(2).Find(R, , , xlWhole).Row, 2) = ""
Range("B10", Cells(Rows.Count, 2).End(xlUp)).Sort [B10], 1
End Sub

 

[a10]

Re : Mise en forme

Bonjour,


Oui à la fin ma liste doit être vide.

J'ai une base qui a une formule pour me donner le N° de la colonne C de la feuille 1
J'ai une formule dans la feuille base colonne d pour me donner les mois qui reste à faire
J'ai fait cette macro ci_dessous que j'active en cliquant sur un bouton (feuille 1)

' Macro1 Macro
'

'
Range("J3:J13").Select
Selection.Copy
Range("K3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("K2").Select
End Sub


Peut on mettre ce code ci_dessus dans le code de la feuille 1 afin de mettre à jour la base et donc la listbox


a+

 

[a10]

Re : Mise en forme

bonsoir

parfois quand je clique sur un autre onglet ou que j'active une macro ma listbox1 est inactive ( dans mon fichier final qui est tres lourds)

je dois faire mode creation
propriete
ciquer sur la liste box afin de faire apparaitre le contour avec les ronds dans les extrmites et recliquer sur le mode de creation

peut on faire une macro qui me fasse ces opératins afin de palier à cette anomalie?

a+

 

[a10]

Re : Mise en forme

bonjour

quand je clique sur le bouton bleu pour lancer la macro sur mon fichier il se bloque à

ListBox1.Visible = True

dans ce code:
Private Sub ListBox1_Click()
ActiveCell = ListBox1.Text
ListBox1.Visible = True
[A1].Select
End Sub


mais impossible de le refaire sur ce fichier d'exemple 111 1


pourquoi?

 

[a10]

Re : Mise en forme

bonsoir

je n'ai pas de macro , code dans mon fichir

quand j'ouvre mon fichier la cellule 1 /4 et 8 sont en fond vert car il y a un d dans la feuille2
si je met un d dans la colonne 15

rien ne se passe

a+

 

[a10]

Re : Mise en forme

bonjour

le dernier post n'a rien a voir avec ce sujet.

il faut lire le message du 17/09/13 à 21h27


a+

 

[a10]

Re : Mise en forme

bonjour,

comment mettre à jour une liste box ( retirer de ma liste box 1) les valeurs qui ont ete mises dans ma feuille.

Voir le fichier 111 1

a+

 

[phlaurent55]

Re : Mise en forme

Re,

une autre manière de procéder mais sans possibilité d'augmenter la taille des caractères de la liste

à+
Philippe

 

[a10]

Re : Mise en forme

bonjour

1/ comment nommer la liste?
dans le code il y a ce nom:liste

mon code s'arrête:

ActiveSheet.Shapes("liste").Visible = True

ActiveSheet.Shapes("liste").Visible = True

2/ la police est trop petit quand ma liste est trop grande

a+