Effacement des règles

[AlainM]

Bonjour à toutes et à tous

Je souhaiterais savoir comment ne plus faire apparaître les règles chiffres et lettres situés en haut et à gauche d'une feuille.

Merci de votre aide.

-------------------------------------------------------------------------------------------

D'autre part j'avais posé une question en ce qui concerne la possibilité de créer dans un tableau un lien qui m'emmène sur les données d'une autre feuille.
J'ai eu la réponse, exceptionnelement par mail par 123bondeal et je l'en remercie. Je poste ici le résultat de sa réponse, on ne sait jamais ca peut servir :

Sub hyper()
'
' hyper Macro
' Création de liens en fonction des formules
'

ScreenUpdating = False
Range("Situation!A65536").Select
Selection.End(xlUp).Select
x = ActiveCell.Row
If x >= 3 Then
For Each cell In Range("A3:A" & x)
cell.Select
z = Right(cell.Formula, Len(cell.Formula) - 1)
cell.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=z
Next cell
End If
End Sub

Merci encore et bonne journée à tout le monde.
@lain

 

[Eric D]

Bonjour Alain,

Dans "Outils" sélectionne "Options" puis décoche "En-têtes de ligne et de colonne"

Bonne journée,
Eric

 

[AlainM]

Bonjour à toutes et à tous

Merci pour ces renseignements Eric.

@lain

 

[AlainM]

Liens internes

Bonjour à toutes et à tous,

Je reviens sur cette procédure qui m'a été fourni sur le forum. Tout fonctionne lorsque je prends l'exemple des deux fichiers liés mais quand je le mets dans mon classeur général qui contient toutes les applications celà ne fonctionne plus. On a l'impression que les liens se crées puisqu'il passe en bleu souligné mais lorsque je clique dessus ils ne m'emmènent pas sur l'autre feuille à l'emplacement désiré.
Je dois surement oublier quelque chose, quelque part, mais où ?


ScreenUpdating = False
Range("Situation!A65536").Select
Selection.End(xlUp).Select
x = ActiveCell.Row
If x >= 3 Then
For Each cell In Range("A3:A" & x)
cell.Select
z = Right(cell.Formula, Len(cell.Formula) - 1)
cell.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=z
Next cell
End If
End Sub

Désolé 123bondeal mais je suis un mauvais élève je crois -
Merci de bien vouloir me dire où je pêche. Je peux envoyer le fichier par e-mail, je dis celà car il est un peu gros pour passer sur le forum.

Merci à tout le monde pour votre aide.
@lain