Référence à une cellule nommée dans une macro
Résolu
flinst02
-
flinst02 -
flinst02 -
Bonjour,
Voici ma question:
Afin d'éviter les problèmes de non fonctionnalité d'une macro, j'ai nommée ma cellule par un nom.
Je veux ensuite prendre cette cellule comme référence pour appliquer la macro au bon endroit.
Je mets les lignes de code que j'ai écrite jusqu'à maintenant afin que ca soit parlant.
Sub Test()
If Range("Test").Value = "Test" Then
Range("A5:A10").Select
With Selection
.Value = "Voila"
End With
End If
End Sub
Ce que je veux donc faire c'est simplement remplacé Range("A5:A10") par quelque chose du genre Range("Test+1: Test+10") (si on considère que Test est le nom de la cellule A4).
Avez-vous quelque chose à me proposer?
Merci d'avance
Voici ma question:
Afin d'éviter les problèmes de non fonctionnalité d'une macro, j'ai nommée ma cellule par un nom.
Je veux ensuite prendre cette cellule comme référence pour appliquer la macro au bon endroit.
Je mets les lignes de code que j'ai écrite jusqu'à maintenant afin que ca soit parlant.
Sub Test()
If Range("Test").Value = "Test" Then
Range("A5:A10").Select
With Selection
.Value = "Voila"
End With
End If
End Sub
Ce que je veux donc faire c'est simplement remplacé Range("A5:A10") par quelque chose du genre Range("Test+1: Test+10") (si on considère que Test est le nom de la cellule A4).
Avez-vous quelque chose à me proposer?
Merci d'avance
A voir également:
- Référence à une cellule nommée dans une macro
- Aller à la ligne dans une cellule excel - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Bloquer une cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
- Reference pto - Accueil - Box & Connexion Internet
2 réponses
bonjour,
si j'ai bien pigé, tu veux sélectionner les 11 cellules en dessous de ta sélection ?
dim lig as long
lig=range("test").row
with range(cells(lig+1,1),cells(lig+10,1))
.value= "voila"
end with
Les "select-selection sont inutiles, bouffent de la mémoire et ralentissent considérablement la macro.
en espérant que...
Michel
si j'ai bien pigé, tu veux sélectionner les 11 cellules en dessous de ta sélection ?
dim lig as long
lig=range("test").row
with range(cells(lig+1,1),cells(lig+10,1))
.value= "voila"
end with
Les "select-selection sont inutiles, bouffent de la mémoire et ralentissent considérablement la macro.
en espérant que...
Michel