XL 2013 Créer une Macro pour mettre en surbrillance toute la Ligne/Colonne

Disiz4K · 6 Mai 2021

Bonjour,
Je cherches à créer un un accès dans la barre d'outil qui appelle une macro pour activer ou non la mise en surbrillance de toute la colonne/ligne sélectionné, exemple un clique ça active, second clique ça désactive.
J'ai réussi mais je n'ai pas trouvé comment appeler une macro qui est dans une WorkSheet, il faudrait la mettre dans "module" mais étant donné que c'est un event de feuille je ne sais pas si c'est possible, merci à vous.

J'utilise ça actuellement dans worksheet :

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 Cells.Interior.ColorIndex = xlColorIndexNone
 Target.EntireColumn.Interior.ColorIndex = 37
 Target.EntireRow.Interior.ColorIndex = 37
 Target.Interior.ColorIndex = xlColorIndexNone
 
End Sub

Compte Supprimé 979 · 6 Mai 2021

Bonjour Disiz4k

Bien sur que c'est possible

Dans la feuille

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 Call MaSub(Target)
End Sub

Dans un module

Code:

Sub MaSub(ByVal Target As Range)
 Cells.Interior.ColorIndex = xlColorIndexNone
 Target.EntireColumn.Interior.ColorIndex = 37
 Target.EntireRow.Interior.ColorIndex = 37
 Target.Interior.ColorIndex = xlColorIndexNone
End Sub

@+

fanch55 · 6 Mai 2021

Bonjour,
Etes-vous vraiment sûr que c'est bien ce que vous voulez faire ?
Car vous interdisez de ce fait toute couleur dans votre feuille .

Compte Supprimé 979 · 6 Mai 2021

fanch55 à dit:
Bonjour,
Etes-vous vraiment sûr que c'est bien ce que vous voulez faire ?
Car vous interdisez de ce fait toute couleur dans votre feuille .

Mais à ma connaissance c'est la seule solution pour mettre en surbrillance ligne/colonne

Après on peut faire une moulinette usine à gaz

Disiz4K · 6 Mai 2021

BrunoM45 à dit:

Bonjour Disiz4k

Bien sur que c'est possible

Dans la feuille

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Call MaSub(Target)
End Sub

Dans un module

Code:

Sub MaSub(ByVal Target As Range)
Cells.Interior.ColorIndex = xlColorIndexNone
Target.EntireColumn.Interior.ColorIndex = 37
Target.EntireRow.Interior.ColorIndex = 37
Target.Interior.ColorIndex = xlColorIndexNone
End Sub

@+

Merci de votre réponse, mais du coup ça m'oblige à avoir quelque chose dans la worksheet ?
Enfaite L'idée c'était de faire un fichier XLSM une sorte de "banque de macro" et après avec une barre d'outil mettre des boutons pour activer ou non ce que je veux, j'ai pensé à une macro qui irait écrire directement dans la worksheet et un autre bouton pour la vider, je vais aller me renseigner d'avantage pour voir ce qui est possible

fanch55 à dit:
Bonjour,
Etes-vous vraiment sûr que c'est bien ce que vous voulez faire ?
Car vous interdisez de ce fait toute couleur dans votre feuille .

Effectivement, pour le moment c'était juste histoire de faire quelques test, il faudra que je retravailles ce bout de code pour conserver les couleurs d'un fichier et "additionner" les couleurs quand il y a déjà une couleur (c'est dans le but de gérer des fichiers avec énormément de donné et certains sont déjà en couleurs, pour faire ressortir un % par exemple)

Voilà voilà

fanch55 · 6 Mai 2021

Disiz4K à dit:
Effectivement, pour le moment c'était juste histoire de faire quelques test, il faudra que je retravailles ce bout de code pour conserver les couleurs d'un fichier et "additionner" les couleurs quand il y a déjà une couleur (c'est dans le but de gérer des fichiers avec énormément de donné et certains sont déjà en couleurs, pour faire ressortir un % par exemple)

S'il y a énormément de données, il faut éviter les entirerow qui vont ralentir ou faire planter Excel .

Disiz4K · 6 Mai 2021

fanch55 à dit:
S'il y a énormément de données, il faut éviter les entirerow qui vont ralentir ou faire planter Excel .

Pour le moment j'en ai jamais eu avec énormément de ligne c'est surtout très dense.

Je suis actuellement entrain de chercher un moyen de vider les "events" dans la worksheet d'excel histoire de faire un bouton "reset event" mais je ne trouve pas de moyen à pars supprimer la feuille ?

fanch55 · 6 Mai 2021

Si c'est le code dans la feuille que vous cherchez à supprimer,
dans le vbe de celle-ci, un Ctrl+a pour tout sélectionner un Suppr pour tout supprimer ..
Mais peut-être ne parlons-nous pas de la même chose ..

Disiz4K · 6 Mai 2021

C'est bien ça mais je souhaiterais une macro qui fait le ctrl A qui supprime tout par exemple un ActiveSheet.Clear mais ça n'existe pas

fanch55 · 6 Mai 2021

Une macro n'est pas suicidaire, elle ne peut pas se supprimer ....
Commencer à toucher en dynamique au code du classeur,
c'est s'exposer à beaucoup de tracas et de déboires ...

On parle bien du code, pas du contenu d'une feuille ?

Disiz4K · 6 Mai 2021

Oui oui du code, enfin je parle d'une macro (dans Module1) qui supprime le contenu de (Feui1),

Mon Module1:

VB:

Sub creationMacro()
Dim X As Integer

With ActiveWorkbook.VBProject.VBComponents("Feuil1").CodeModule
    X = .CountOfLines
    .InsertLines X + 1, "Private Sub Worksheet_SelectionChange(ByVal Target As Range)"
   
    .InsertLines X + 2, _
        "MsgBox ""La cellule sélectionnée: """ & Chr(38) & " Target.Address,,""Message"" "
    .InsertLines X + 3, "End Sub"
End With
End Sub

Sub sbDeleteASheet()

ActiveSheet.Clear

End Sub

Feuil1:

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox "La cellule sélectionnée: " & Target.Address, , "Message"
End Sub

Et donc supprimer le contenu de Feuil1

Je me posais une question une Macro qu'elle soit dans Module1 ou Feuil1 ça reste une macro ou elle porte un autre nom ?

Merci de vos réponses

Disiz4K · 6 Mai 2021

Je viens de trouver en faisant:

VB:

Sub SupprimerContenuFeuille()
Dim NomFeuille As String
 
NomFeuille = ActiveSheet.Name
 
With ActiveWorkbook.VBProject.VBComponents _
(ActiveWorkbook.Sheets(NomFeuille).CodeName).CodeModule
    .DeleteLines 1, .CountOfLines
    .CodePane.Window.Close
End With
 
End Sub

MACx · 16 Août 2022

BrunoM45 à dit:

Bonjour Disiz4k

Bien sur que c'est possible

Dans la feuille

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 Call MaSub(Target)
End Sub

Dans un module

Code:

Sub MaSub(ByVal Target As Range)
 Cells.Interior.ColorIndex = xlColorIndexNone
 Target.EntireColumn.Interior.ColorIndex = 37
 Target.EntireRow.Interior.ColorIndex = 37
 Target.Interior.ColorIndex = xlColorIndexNone
End Sub

@+

Bonjour,
Est-ce que cette solution fonctionne sur des tableaux ? (qui font déjà des mises en forme) Merci

XL 2013 Créer une Macro pour mettre en surbrillance toute la Ligne/Colonne

Disiz4K

XLDnaute Nouveau

Compte Supprimé 979

Guest

fanch55

XLDnaute Barbatruc

Compte Supprimé 979

Guest

Disiz4K

XLDnaute Nouveau

fanch55

XLDnaute Barbatruc

Disiz4K

XLDnaute Nouveau

fanch55

XLDnaute Barbatruc

Disiz4K

XLDnaute Nouveau

fanch55

XLDnaute Barbatruc

Disiz4K

XLDnaute Nouveau

Disiz4K

XLDnaute Nouveau

MACx

XLDnaute Occasionnel

Discussions similaires