Adaptation macros Résolu

Question

Bonjour à tous et à toutes.
Voiçi le problème:
Mon dossier comprend vingt tableaux dont dix huit sont utilisés pour le moment.
Ils sont répartis dans le même feuillet.
Pour faciliter la recherche du tableau désiré,j'ai enregistré une macro par tableau,et celà fonctionne très bien.
Mais,j'ai d'autres dossiers ,dans lesquels,j'ai enregistré d'autres  macros selon la lême procédure.
Cette procédure demande l'attribution d'une touche de raccourçi,pour chaque macro:une lettre de l'alphabet.
En jouant avec les majuscules et les minuscules,j'y suis arrivé,mais je n'ai plus de possibilité pour continuer.
Je ne suis pas suffisamment compétent pour concocter moi-même une macro qui puisse commander les
actions décrites dans les deux extraits çi-dessous:


 Touche de raccourci du clavier: Ctrl+c
'
    Range("r11").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 5287936
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("B25").Select
End Sub
Sub index03()
'
' index03 Macro
'
' Touche de raccourci du clavier: Ctrl+d
'
    Range("b40").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 5287936
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("G52:H52").Select
End Sub

Quelqu'un pourrait-il me donner une solution ?
Dans l'affirmative,je lui en serait très reconnaissant 

Je suis sur Vista et Excel 2007

A plus

Bremic83.

bremic83 · Answer

Bonjour à tous.

Mon problèmeest certainement d' ordre mineur,mais,le moins qu'on puisse en dire est qu'il ne passionne pas les foules.

Je propose aujourd'hui une macro que j'ai concoctée moi-même,mais que je n'arrive pas à faire fonctionner.
A chaque tentative,et recherches dans "aide",(aide à laquelle,je n'ai rien compris !),je me retrouve avec la fenêtre d'erreur: "erreur 400 "(Je suis sur Excel 2007)
En désespoir de cause,j'appelle au secours,en espérant qu'une âme charitable prendra ma demande en considération.
Merçi

Bremic83



Sub finop()
'
'Finop Macro
'
'touche de raccourci du clavier:Ctrl+z
'
'
 Range("X12").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With


 Range("AW12").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With


  Range("BS12").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With


Range("X42").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With


Range("AW42").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With


Range("BS42").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With


Range("X95").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With


Range("AW95").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With


Range("BS95").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With


 Range("X132").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With


Range("AW132").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With


 Range("BS132").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With


Range("X162").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With


Range("AW162").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With


Range("BS162").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    
    
Range("x193").selest
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
        
    End With


Range("t1").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With

End Sub

michel_m · Answer

Bonjour,
Il y a certainement beaucoup de forumeurs qui ont regardé ton message mais apparemment aucun, je me sens moins seul, ne semble avoir compris ce que tu veux faire...

Tel que je vois les choses:
tu cherches à atteindre une cellule dans un  des tes 18 tableaux par une commande personnalisée par tableau (à te proposer...) que tu mets en forme définitivement (couleur par exemple) puis tu sélectionne une cellule ou une plage (utilité ?)

Dis toi bien que nous avons que ce que tu as écris pour essayer de t'aider. Comme le dit un vieux proverbe ringard " un problème bien posé Etc."
si tu tu prends pas un peu de recul vis à vis de ce  truc, qui t'énerve et  te prend la tête, pour nous l'expliquer, tu risques  vraiment  de rester seul. ce serait dommage.

michel_m · Answer

OK, c'est clair!

cette macro-démo ( xL2003) est à compléter et adapter à tes cellules "cible" 
Lorsque tu cliques dans la zone U2:U20 tu te déplaces à l'endroit voulu par la lettre

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'délimite la zone de l'événement  (U2:U20 à adapter )
If Intersect(Target, Range("U2:U20")) Is Nothing Then: Exit Sub

Select Case Target
Case Is = "A"
    Range("B2").Select
Case Is = "B"
    Range("D4").Select
    '.......pour tes autres lettres: pour saisir tape case="lalettre" XL marque automatiquement case is=
Case Is = "S"
    Range("AA2").Select
End Select
End Sub

a copier-coller dans module feuille concerné.installation:
copier 
clic droit sur le nom d'onglet
visualiser code
coller
complète et adaptes
ci joint maquette
https://www.cjoint.com/?hzw33tXOL1

Adaptation macros

3 réponses

Discussions similaires

Newsletters