Discussion :

[Nako_lito]

Bonjour,
alors, j'ai un projet VBA qui s'ouvre et dans la méthode activate de mon formulaire j'affiche une feuille et a partir de ce point je veux que les utilisateur ne voit que cette feuille (fond blanc, question de confidentialité), mais le probleme est que la methode application.screenupdating ne passe jamais a false.

je met le bout de code correspondant, sans doute que j'ai oublié qqc, mais quoi ? that's the question.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub UserForm_Activate()
    Dim i As Integer 
    ........
    Worksheets("Blanc").Select
    ........   
    With ActiveWindow
        .DisplayGridlines = False
        .DisplayHeadings = False
        .DisplayHorizontalScrollBar = False
        .DisplayVerticalScrollBar = False
        .DisplayWorkbookTabs = False
    End With
    Application.ScreenUpdating = False 
End Sub

Plus tard dans mon programme, une fonction m'oblige a selectionner une feuille pour appliquer des macro dessus et donc la feuille avec les données est selectionnée.
Je sais pas si j'ai été clair ^^, mais une petite aide serai la bienvenue.

par avance merci.

[david_atx]

pourquoi ne pas tout simplement mettre
application.screenupdating = false au début de la macro incriminé
et le remettre à true à la fin

Sinon tu es obligé de faire des select dans ton code ?
tu peux pas directement pointé sur les cellules ou shapes ou autres dont tu as besoin comme ceci
sheets("nomdelafeuille").cells(ligne,colonne).value copy ou autre ??

[Nako_lito]

non je ne peux pas appliquer ta méthode de
sheets("feuil1").Cells(i,j).value

Et j'ai essayer de mettre au début de la macro, mais ca ne fonctionne pas.

[Krovax]

Tu es sur de ne pas avoir quelque part une macro qui te le met a true?
C'est l'erreur la plus fréquente donc regarde bien.

Sinon je serais curieux de savoir pourquoi tu ne peux pas utiliser
sheets("nomdelafeuille").cells(ligne,colonne).value

Les seuls select que j'utilise sont ceux qui me permette de signifier à l'utilisateur quelle cellule remplir ou empêcher la selection d'une cellule, les autre sont pratiquement tous inutile

[david_atx]

on est bien d'accord krovax

aussi le mieux serait que tu nous mette le bout de code où tu as tes select qu'on voit si on peut y faire quelquechose

[Nako_lito]

ca c'est un bout de code qui est utilisé pour filtrer les donnée et sur lequel il ne me semble pas possible de mettre sheets(i).cell(j,k) ou meme feuil5.range

Code :

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

1
2
3
4
5
6
7
If leFormulaire = "UserFormRechercheParChamps" Then
        [F1] = "Champs"
        [B1:B65536].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[F1], Unique:=True
        Do
            UserFormRechercheParChamps.ComboBoxChamps.AddItem Feuil5.Cells(i, 6)
            i = i + 1
        Loop While Feuil5.Cells(i, 6) <> ""

Je viens de découvrir la méthode application.screenupdating, donc il n'est pas possible que j'en ai mis ailleur