application.screenupdating qui se déclenche pas

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:

---

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.

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

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.

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

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

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:

---

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

ha bon et si tu essayais quelque chose qui ressemble à

Code:

---

1 2 3

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

---

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:

---

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

---

quand tu as

Code:

---

1 2 3

AAA.select 'ou AAA.activate

---

suivit de

Code:

---

selection.BBBBB

---

tu met

Code:

---

AAA.BBBB

---

donc dans ton code

Code:

---

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

---

Code:

---

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 ;=)

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

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

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.

Citation:

---

Envoyé par david_atx

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

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

Code:

---

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.

Bonjour tous,
Attention...

Code:

---

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

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

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

Citation:

---

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

---

.

Citation:

---

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:

---

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+

re ;)

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

cordialement,

Didier