Discussion :

[mauriceguillier]

Bonjour à tous,

Dans excel, si j'affecte un nom, bien sûr déjà défini, à une colonne et un autre nom à une ligne, puis-je faire référence à la cellule qui est à la croisée de cette ligne et de cette colonne.

En d'autres termes, puis-je écrire quelque chose du genre : "Range (Nom1, Nom2).select" ? Si oui, pouvez-vous me préciser la syntaxe exacte ?

Merci d'avance,
Cordialement,
Maurice GUILLIER

[pgz]

Bonjour.

Tu peux utiliser la méthode Intersect de l'objet Application.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim maPlage as Excel.Range
set maPlage = Application.Intersect(Range("nom1"), Range("nom2"))

maPlage représente alors la ou les cellules qui appartiennent à Nom1 et Nom2.

Cordialement,

PGZ

[MarcelG]

Bonjour Maurice,

Propriété "Intersect"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Public Sub ESSAI()
Intersect([MACOLONNE], [MALIGNE]).Select
End Sub

Si tu utilises cette cellule à plusieurs étapes de ton développement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Public Sub ESSAI()
 
Dim macellule as range
 
Set macellule = Intersect([MACOLONNE], [MALIGNE])
With macellule
  .select
   'etc.....
End With
 
End Sub

Cordialement

Marcel

[mauriceguillier]

Bonjour à vous deux,

Bizarre, bizarre !

Ce matin, j'ai écrit le code dans un fichier vierge et j'ai, me semble-t-il, bien pu affecter des valeurs à la croisée des colonnes nommées et des lignes nommées.

Cet après-midi, je me suis vu opposer un bug

Voici le code que j'ai écrit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub macro1()
ThisWorkbook.Sheets("Feuil1").Select
Intersect([guillier], [brioche]).Select
ActiveCell.FormulaR1C1 = 56
End Sub

Je me retrouve avec un pop-up "Erreur d'exécution 424 : Objet requis"

Merci à nouveau de votre aide
Cordialement,
Maurice

[MarcelG]

Bonsoir,

J'ai essayé ce code sans problème sur Excel 2003, en appliquant tes noms.

Sur quelle ligne de ton développement obtiens-tu un bug ?

Cordialement.

Marcel

[pgz]

Bonjour.

L'utilisation des méthodes Select allourdit et ralentit le code. Autre bizarrerie, si tu veux écrire 56 dans une cellule, pourquoi FormulaR1C1 et pas value? Avec formula il faut mettre la donnée en string, donc entre quotes.
Tu peux donc faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub toto()
 
Application.Intersect([Guillier], [Brioche]).Value = 56
End Sub

ou, si tu tiens à FormulaR1C1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub toto()
 
Application.Intersect([Guillier], [Brioche]).FormulaR1C1 = "56"
End Sub

En espérant que cela t'aide,

PGZ

[MarcelG]

Bonsoir Pgz,

J'ai essayé la méthode avec quote, et sans quote.
Cela donne le même résultat.

Y a-t-il une différence à ce sujet entre Excel 2003 et Excel 2007?

Bien à toi.

Marcel

[pgz]

Re,

As-tu essayé de remplacer ton code par l'une des 2 lignes que je te propose?

PGZ