Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Affectation d'une variable à un objet Range

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion bcesoll
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
B

bcesoll

Guest
bonjour,

je bloque dans une macro EXCEL sur l'affectation d'une variable à un objet Range.

En fait je veux que cet objet se modifie automatiquement en fonction de la macro.

mon code sheets(FEUILLE).range("VARIABLE")

quel code utiliser pour que RANGE face référence à cette VARIABLE.

MERCI
 
Trier par date Trier par votes
Re : Affectation d'une variable à un objet Range

Re,

Code: 
Private Sub Worksheet_SelectionChange(ByVal [B]cell[/B] As Range)
donc target est à remplacer par cell dans toute la procédure.
Voir le code corrigé et simplifié.
Veux-tu vraiment passer par la feuille 2 et les cellules nommées ?
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Affectation d'une variable à un objet Range

re,

voici ton code corrigé:
Si tu change Target en 'cell' comme tu l'as fait dans la déclaration de procédure, il faut le changer partout sinon cela ne marche pas.

Dans ton tableau tu as aussi une erreur pour 7 tu l'as écrit SETP et le nom correspondant est SEPT. Choisit l'un ou l'autre mais pas les deux.

Code: 
Private Sub Worksheet_SelectionChange(ByVal [SIZE=3][COLOR=red]Target[/COLOR][/SIZE] As Range)
 'Si plus d'une cellule sélectionné-> sortir
    If Target.Cells.Count > 1 Then Exit Sub
    'Si Target est dans "A1:A19" et n'est pasvide
    If Not Intersect(Target, Range("A1:A19")) Is Nothing And Target <> "" Then
        'Si c'est une valeur numérique
        If IsNumeric(ActiveCell) Then
          'Comprise entre 1 et 10 incluse
            If CLng(ActiveCell) >= 1 And CLng(ActiveCell) <= 10 Then
                '10 sélectionner la cellule active'
                MONCHOIX = CLng(ActiveCell)
                '20 reporter le choix sur la feuille 2'
                Sheets("feuil2").Range("MONCHOIX") = MONCHOIX
                Sheets("feuil2").Range("NUMEROLIGNE").FormulaR1C1 = "=VLOOKUP(MONCHOIX, TABLEAU,2,FALSE)"
                '30 seléctionner la ligne en fonction du choix'
                CHOIX_LIGNE = Application.VLookup(MONCHOIX, Sheets("feuil2").Range("TABLEAU"), 2, False)
                '40 afficher la ligne choisie"
                MsgBox (CHOIX_LIGNE)
                '50 vérifier les cellules vides'
                If IsNumeric(ActiveCell) Then
                    If CLng(ActiveCell.Value) >= 1 And CLng(ActiveCell.Value) <= 10 Then
                        '....j'exécute le code
                    End If
                End If
                '60 masquer la ligne choisie
                MONCHOIX = Target
                With Sheets("Feuil2")
                    .Range("NUMEROLIGNE") = CHOIX_LIGNE
                    .Range("MONCHOIX") = MONCHOIX
                End With
                Range(CHOIX_LIGNE).Rows.Hidden = False
            End If
        End If
    End If
End Sub

A+
 
Vote positif 0 Vote négatif
Re : Affectation d'une variable à un objet Range

Re,

@kjin 😉
Code: 
With Range(CHOIX_LIGNE)
        If .Rows.Hidden = True Then
            .Rows.Hidden = False
        Else
            .Rows.Hidden = True
        End If
    End With
peut se pemplacer par :
Code: 
With Range(CHOIX_LIGNE)
        .Rows.Hidden = Not .Rows.Hidden
    End With
 
Vote positif 0 Vote négatif
Re : Affectation d'une variable à un objet Range

Pour aller plus loin je souhaite mettre une condition à l'affichage de la ligne lorqu'on double click.

ex : vérifier avant d'afficher la ligne 1 (UN) que la cellule (CHAMP1) est non vide.
- si CHAMP1 vide alors afficher "vide" et laisser masqué lign 1 (UN)
- si CHAMP1 renseigné affichée ligne 1 (UN) le contenu de CHAMP1

.......................................................
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A1:A" & Range("A65000").End(xlUp).Row)) Is Nothing Then
Cancel = True

MONCHOIX = Target

With Sheets("Feuil2")
CHOIX_LIGNE = Application.VLookup(MONCHOIX, .Range("TABLEAU"), 2, False)
CHOIX_CHAMP = Application.VLookup(MONCHOIX, .Range("TABLEAU"), 3, False)

.Range("NUMEROLIGNE") = ""
.Range("MONCHOIX") = MONCHOIX

If IsError(CHOIX_LIGNE) Then Exit Sub
.Range("NUMEROLIGNE") = CHOIX_LIGNE
.Range("NOMCHAMP") = CHOIX_CHAMP
End With

With Range(CHOIX_LIGNE)
.Rows.Hidden = Not .Rows.Hidden
End With

End If

End Sub
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Résolu(e)
XL 2021 Problème réaffectation variable Objet
Réponses
2
Affichages
245
treza88
M
  • Résolu(e)
Microsoft 365 Trouver une valeur dans une colonne
Réponses
7
Affichages
567
mikeduff
M
J
  • Résolu(e)
Microsoft 365 Collage valeur Erreur d'exécution 1004
Réponses
7
Affichages
222
Magic_Doctor
L
  • Question Question
XL 2021 Mise en forme conditionnelle à partir d'autre colonne
Réponses
7
Affichages
362
CHRIS1945
C
  • Question Question
Microsoft 365 VBA : Problème de reconnaissance de variable avec fonction FIND
Réponses
2
Affichages
331
Dranreb
  • Question Question
Microsoft 365 Excel VBA: manipuler des fichiers partagés via Teams / Sharepoint
Réponses
2
Affichages
136
Eric 888
  • Question Question
XL 2019 Application.Run
Réponses
3
Affichages
258
Atiom
E
  • Résolu(e)
Microsoft 365 Reduire Temps Execution Code
Réponses
5
Affichages
491
eric72
E
  • Question Question
Microsoft 365 Initialisation d'une variable tableau à partir d'une plage de cellules
2
Réponses
17
Affichages
891
job75
C
  • Question Question
XL 2021 Exporter des données vers une autre feuille...
Réponses
7
Affichages
207
sylvanu
S
  • Résolu(e)
XL 2021 enregistrer xltm en xlsm avec chemin automatiquement
2
Réponses
27
Affichages
600
TooFatBoy
S
  • Question Question
Microsoft 365 TCD avec pourcentage en fonction d'une variable
Réponses
6
Affichages
452
chris
L
  • Résolu(e)
Microsoft 365 Erreur d'exécution 1004 : la méthode select de la classe Worksheet a échoué
Réponses
7
Affichages
272
LaurentVasseur
L
N
  • Résolu(e)
XL 2013 Somme VBA sur plusieurs ligne
Réponses
8
Affichages
320
Nico77
N
A
  • Question Question
XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé
Réponses
1
Affichages
589
sylvanu
N
  • Question Question
Microsoft 365 TEXTBOX pour filtrer un TCD
Réponses
6
Affichages
405
Hecatonchire
H
A
  • Résolu(e)
XL 2019 Remplacer un mot et ajouter une couleur
Réponses
7
Affichages
612
Attila451
A
G
  • Question Question
Microsoft 365 Valider automatiquement un message d'alerte
Réponses
4
Affichages
398
GG Delcroix
G
M
  • Résolu(e)
XL 2021 Problème d'activation d'une macro pour transférer des valeurs d'une feuille 1 à une feuille 2
Réponses
3
Affichages
423
MATLEA
M
  • Question Question
Microsoft 365 Fonction SI
2
Réponses
23
Affichages
440
aspect
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…