Affectation d'une variable à un objet Range

[bcesoll]

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

 

[Lii]

Re : Affectation d'une variable à un objet Range

Re,

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 ?

 

[Guest]

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.

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+

 

[kjin]

Re : Affectation d'une variable à un objet Range

Re, bonjour à tous,
A tester avec double-click
A+
kjin

 

[Lii]

Re : Affectation d'une variable à un objet Range

Re,

@kjin 😉

With Range(CHOIX_LIGNE)
        If .Rows.Hidden = True Then
            .Rows.Hidden = False
        Else
            .Rows.Hidden = True
        End If
    End With

peut se pemplacer par :

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

 

[kjin]

Re : Affectation d'une variable à un objet Range

Re,
Et oui Lii, on ne se refait pas
Juste pour compléter le précédent
A+
kjin

 

[bcesoll]

Re : Affectation d'une variable à un objet Range

Merci à tous pour votre contribution à ce fil !🙂🙂🙂

 

[bcesoll]

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