Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel code macro

code macro

2 réponses
Avatar
MarcT
Bonjour,
J'ai ce code qui permet d'ouvrir des classeurs quand je click la colonne
B. J'aimerai pouvoir limiter la zone de click à B2:B20, j'ai essayé
différent trucs, l'enregistreur, je n'arrive à rien !!! à part
sélectionner la zone en question
merci d'avance cordialement
Marc

Private Sub Worksheet_SelectionChange(ByVal zz As Range)
If zz.Column <> 2 Then Exit Sub
If MaVariable = "Deja" Then Exit Sub
Ouvrerécapavecmacro
End Sub

un pb identique : j'ai une macro qui détermine une zone d'impression
comment lui faire sélectionner plusieurs champs
actuellement:ActiveSheet.PageSetup.PrintArea = "$A$4:$Y$56"
et je voudrai aussi A1:A2. J'ai essayé de rajouter à côté ça veut pas
... ça m'énerve je n'y comprends rien ...
merci à vous
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel
Bonjour.
Essaie :
Private Sub Worksheet_SelectionChange(ByVal zz As Range)
Dim Plage As Range
Set Plage = Intersect(zz, Range("b2:b20"))
If Plage Is Nothing Then Exit Sub
'If MaVariable = "Deja" Then Exit Sub
MsgBox "gagné"
End Sub
Cordialement.
Daniel

"MarcT" a écrit dans le message de news:

Bonjour,
J'ai ce code qui permet d'ouvrir des classeurs quand je click la colonne
B. J'aimerai pouvoir limiter la zone de click à B2:B20, j'ai essayé
différent trucs, l'enregistreur, je n'arrive à rien !!! à part
sélectionner la zone en question
merci d'avance cordialement
Marc

Private Sub Worksheet_SelectionChange(ByVal zz As Range)
If zz.Column <> 2 Then Exit Sub
If MaVariable = "Deja" Then Exit Sub
Ouvrerécapavecmacro
End Sub

un pb identique : j'ai une macro qui détermine une zone d'impression
comment lui faire sélectionner plusieurs champs
actuellement:ActiveSheet.PageSetup.PrintArea = "$A$4:$Y$56"
et je voudrai aussi A1:A2. J'ai essayé de rajouter à côté ça veut pas ...
ça m'énerve je n'y comprends rien ...
merci à vous


Avatar
MarcT
Bonjour.
Essaie :
Private Sub Worksheet_SelectionChange(ByVal zz As Range)
Dim Plage As Range
Set Plage = Intersect(zz, Range("b2:b20"))
If Plage Is Nothing Then Exit Sub
'If MaVariable = "Deja" Then Exit Sub
MsgBox "gagné"
End Sub
Cordialement.
Daniel

"MarcT" a écrit dans le message de news:


Bonjour,
J'ai ce code qui permet d'ouvrir des classeurs quand je click la colonne
B. J'aimerai pouvoir limiter la zone de click à B2:B20, j'ai essayé
différent trucs, l'enregistreur, je n'arrive à rien !!! à part
sélectionner la zone en question
merci d'avance cordialement
Marc

Private Sub Worksheet_SelectionChange(ByVal zz As Range)
If zz.Column <> 2 Then Exit Sub
If MaVariable = "Deja" Then Exit Sub
Ouvrerécapavecmacro
End Sub

un pb identique : j'ai une macro qui détermine une zone d'impression
comment lui faire sélectionner plusieurs champs
actuellement:ActiveSheet.PageSetup.PrintArea = "$A$4:$Y$56"
et je voudrai aussi A1:A2. J'ai essayé de rajouter à côté ça veut pas ...
ça m'énerve je n'y comprends rien ...
merci à vous




Merci bcp c ce que je cherchais ... c vraiment compliqué de trouver la

bonne formulation !!! merci de ton aide.
cordialement
marc