Référence à une cellule nommée dans une macro
Résolu
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
Configuration: Windows XP Internet Explorer 7.0
2 réponses
-
Contributeurbonjour,
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 -
Bonjour,
Merci bien pour la réponse. C'est en effet, ce que je recherchais.
