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

[Krovax]

ha bon et si tu essayais quelque chose qui ressemble à

Code :

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

1
2
3
        Worksheets("Blanc").range("F1") = "Champs"
        Worksheets("Blanc").range("B1:B65536").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Worksheets("Blanc").range("F1"), Unique:=True
        Do

[Nako_lito]

ok, c'est bon c'est ca.

Derniere question:

J'ai fais une macro automatique sur excel qui me tri mes feuilles (donc y'a le code qui suit x autant de feuille)

Comment je peux remplacer le "Sheets("Rq Old").Select ?

J'avais tenté de virer la premiere ligne et de mettre direct
Feuil4.Cells.Select et le reste qui va bien.
Mais ca fonctionne pas.

Le code:

Code :

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

1
2
3
4
    Sheets("Rq Old").Select
    Cells.Select
    Selection.Sort Key1:=Range("D2"), Order1:=xlAscending, Header:=xlYesGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
    Range("A1").Select

[Krovax]

quand tu as

Code :

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

1
2
3
AAA.select
'ou 
AAA.activate

suivit de

Code :

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

selection.BBBBB

tu met

Code :

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

AAA.BBBB

donc dans ton code

Code :

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

    Sheets("Rq Old").Cells.Sort Key1:=Range("D2"), Order1:=xlAscending, Header:=xlYesGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal

[david_atx]

Code :

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

Sheets("Rq Old").Cells(colonne, ligne).Sort Key1:=Range("D2"), Order1:=xlAscending, Header:=xlYesGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal

et ca devrait rouler sans select

et a la fin le range("A1").select c'est pour ???

edit corrigé merci krovax ;=)

[Krovax]

Pour davide
1- les balise !!!!!
2- cells défini l'ensemble des cellules d'une feuille si on ne lui donne aucun argument

[david_atx]

eh mince j'suis au boulot alors je vais vite et j'oublie les balises

et merci pour le cells j'étais pas sur
J'aide avec mes pttis moyens et des fois je ferais mieux de m'abstenir je sais ^^

[Nako_lito]

les

range("A1").select c'etait pour avant, comme je revenais tjrs sur la feuille 2, je voulais pas etre sur une ligne random donc je me callais sur la case A1, juste de l'esthétique pour quand on ré-ouvrait le fichier.

[Krovax]

J'aide avec mes pttis moyens et des fois je ferais mieux de m'abstenir je sais ^^

Surtout ne t'abstiens pas regarde mes premier message j'en ai dit des bêtise avant d'arriver a faire quelque truc bien. Et par chance pour nous il y a toujours des gens qui sont véritablement calé qui passe si ca coince

[Nako_lito]

Quand j'exécute le code a Krovax, j'ai ca:

Code :

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

Sheets("Requetes").Cells.Sort Key1:=Range("D2"), Order1:=xlAscending, Header:=xlYesGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal

avec un joli fond jaune.

Erreur: Référence de tri non valide. Vérifiez qu'elle se trouve bien parmis les données a trier et que la zone Trier n'est pas identique ou vide.

[LeForestier]

Bonjour tous,
Attention...

Code :

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

AAA.BBBB

Ne va pas dans toutes les circonstances et certaines fonctions ne vont pas avec select, il faut employer Activate.
Eh oui encore... les mystères d'excel..
Idem pour Cells, faudrait probablement une plage déterminée.
Mais comme j'ai pas le fichier, difficile de tester
A+

[Didier Gonard]

Bonjour,

Normalement, il devrait il y avoir un autre plantage, la constante xlYesGuess de l'argument Header pour moi n'existe pas, tu as le choix entre :

xlGuess; xlNO; xlYes ?

cordialement,

Didier

[LeForestier]

Re, probablement excel 2007 ?
Dans l'aide..

Sort.Propriété Header
Indique si la première ligne contient des informations sur l'en-tête. Type de données XlYesNoGuess en lecture/écriture

.

Remarques
xlNo est la valeur par défaut. Vous pouvez spécifier xlGuess si vous souhaitez qu'Excel tente de déterminer l'en-tête.

Et si c'est bien excel 2007, la procédure est différente..

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
    'Applying sort.
    With ActiveWorkbook.Worksheets(ActiveSheet.Name).Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("A2:A11"), _
            SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .SetRange Range("A1:A11")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

A+

[Didier Gonard]

re

J'ai apparemment les mêmes paramètres à ce niveau en 2003 et 2007 !

cordialement,

Didier