Discussion :

[maxval18]

Bonsoir,

Je suis a la recherche d'un code VBA pour supprimer le quadrillage sur la feuille

Merci d'avance

Cordialement

Max

[helas]

Bonsoir,
Ainsi

Code :

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

1
2
 
ActiveWindow.DisplayGridlines = False

[maxval18]

Bonsoir Helas

Je te remercie le code marche Nickel mais je me suis mal expliquer. En faite j'ouvre un classeur via une listbox sur User que j'ai préalablement enregistrer avant et quand je rappel mon classeur avec le code suivant j'ai ma feuille qui viens toujours avec un quadrillage et c'est se quadriallage la que j'aimerais enlever ?

Code :

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

1
2
3
4
5
6
7
Private Sub ListBox1_Click()
 Dim wrk As Workbook
 
Set wrk = Application.Workbooks.Open(Label1.Caption & "\" & ListBox1.Text)
wrk.Activate
Unload Me
 End Sub

Si tu as un code je te remercie d'avance et bonne soirée

@+

Max

[mercatog]

Ajoute cette ligne

Code :

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

    wrk.Application.ActiveWindow.DisplayGridlines = False

[maxval18]

Bonsoir Mercatog,

Je te remercie Nickel j'ai voulu le mettre sur un code que tu ma fait il y a quelque temps mais sa ne marche pas ?

Voici le code en 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
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Private Sub CommandButton4_Click()
 
' copy sur la feuille FactureClients
Call SaveInfos(Sheets("Facture"), Sheets("FactureClients"), lRow)
 
'évite les basculements d'écrans
Application.ScreenUpdating = False
' bouton valider
nomfichier = ActiveWorkbook.Name
'ouverture nouveau classeur - 1 feuille - ne fonctionne pas sous XL97
défaut = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 1
Workbooks.Add
Application.SheetsInNewWorkbook = défaut
nomfichier1 = ActiveWorkbook.Name
'copie la feuille
Windows(nomfichier).Activate
Range("Zoneimpression").Copy
'colle dans nouveau fichier
Windows(nomfichier1).Activate
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
'protège les cellules
ActiveSheet.Range(Selection.Address).Locked = True
 
ActiveSheet.Range("A1").Select
'enregistre sous le répertoire Factures, selon numéro de facture
ChDir (ThisWorkbook.Path & "\Dossier_Factures")
'choix avec nom par défaut, possibilité de changer le nom ou annuler
 
'enregistrer avec le nom et le N° de facture
fermer = Application.GetSaveAsFilename(ActiveSheet.Range("I16") & "_" & ActiveSheet.Range("C11"), "Fichiers Excel,*.xls")
 
'si annulation
If fermer = False Then
Windows(nomfichier1).Activate
    ActiveWorkbook.Close Savechanges:=False
Exit Sub
End If
'sinon
ActiveWorkbook.SaveAs FileName:=fermer
ActiveWorkbook.Close
'retour sur modèle
'raz champ Aremplir
Range("Aremplir").ClearContents
'réautorise les basculements d'écran
Application.ScreenUpdating = True

Bonne soirée

Max