Coordonnées de cellule contenues dans une variable suite

Version imprimable

Bonsoir,

J'ai été confronté à un petit souci de syntaxe dans une variable et j'ai été gentiment dépanné par Bertrand et BBil, qu'ils en soient remercier.

J'ai pensé appliquer la même solution à un autre cas, mais ça ne fonctionne pas.

J'explique.
Dans une macro, je dois marquer une plage de cellule en vue de faire des sous-totaux.
Je connais les cellules de première et dernière colonne pour la ligne du haut mais la ligne de fin étant aléatoire, j'utilise la méthode classique qui consiste à plonger à la fin du fichier pour remonter jusqu'à la dernière ligne et ainsi connaître la deuxième partie des coordonnées de mon instruction RANGE.

Voici ce que je fais avec la méthode RC:
Code:

1 2 3 4 5 6 7 Application.Goto Reference:="R65536C1" Selection.End(xlUp).Select L = Application.ActiveCell.Row C = Application.ActiveCell.Column Range "(R6C1:R" & L & "C" & C & ").Select"
Inutile de vous dire que j'ai déclaré mes variables et déplacé le dernier guillemet un peu partout, ça ne fonctionne pas.

J'ai essayé une variante:
Code:

1 2 3 4 5 6 Application.Goto Reference:="R65536C1" Selection.End(xlUp).Select Coord = Application.ActiveCell.Address Range "(A6:" & Coord & ")".Select
Là aussi, j'ai déclaré mes variables et déplacé le dernier guillemet un peu partout, ça ne fonctionne pas.

Une idée ?

Merci d'avance.

Henri

27/08/2012, 08h43
Supermichou
Bonjour,

et avec ça ?

Code:

Range(ActiveCell, "A6").Select

ou

Code:

Range(Selection, "A6").Select

ou encore
Code:

1 2 pointdedepart = ActiveCell.Address Range(pointdedepart, "A6").Select
Michel

Bonjour,

Evite les Select et ActiveCell.

Un petit exemple en créant un objet Range:

Code:

1
2
3
4
5
6
7
Sub test()
  Dim rToHandle As Range
  With Sheets("Feuil1")  ' A adapter, évidemment
    Set rToHandle = Range(.Cells(6, 1), .Cells(.Rows.Count, 1).End(xlUp))
  End With
  MsgBox rToHandle.Address
End Sub

28/08/2012, 10h20
Henri1830
Bonjour Michel, Alain,

Mille mercis pour vos réponses.

L'une et l'autre fonctionne.
Cependant, celle d'Alain me pose un petit problème; j'explique le contexte.

Je marque une première plage de cellules depuis A4 jusqu'à la colonne J dernière ligne.
Je fais un sous-total.

Ensuite, je dois à nouveau marquer l'ensemble des cellules avec la particularité que 2 sous-totaux se sont insérés (raison pour laquelle je dois réévaluer l'emplacement de ma dernière ce qui explique l'origine de ma question) avec pour particularité que je ne dois pas prendre en compte les deux dernières lignes du tableau qui sont mon dernier sous-total et le total général.

Malheureusement, en appliquant ta solution, Alain, il englobe aussi les totaux.

J'ai contourné le problème en m'inspirant de la solution de Michel:
Code:

1 2 3 4 5 6 Application.Goto Reference:="R65536C1" Selection.End(xlUp).Select Selection.End(xlToRight).Select PointdArrivee = ActiveCell.Address Range("A4", PointdArrivee).Select
C'est certainement moins élégant que la formule d'Alain dont je ne comprends pas toutes les arcanes, mais avec ça je fais face à tous les cas de figure, à moins qu'Alain me sorte une solution de rechange, ce dont je ne serais pas surpris... :D

Merci en tout cas à vous deux, j'ai appris tant par l'une que par l'autre.
Et merci également aux organisateurs de ce forum, c'est vraiment ce qui s'appelle être utile à la société.

Bonne journée !

Henri

Bonjour,

Je ne comprends pas bien ton problème.

Voici pour mettre dans un Range tout le tableau à traiter (jusque colonne J).
A faire avant d'écrire les totaux.
Le MsgBox n'est là que pour contrôle. A supprimer, bien entendu.
Code:

1 2 3 4 5 6 7 Sub test() Dim rToHandle As Range With Sheets("Feuil1") ' A adapter, évidemment Set rToHandle = Range(.Cells(6, 1), .Cells(.Rows.Count, 1).End(xlUp).Offset(0, 9)) End With MsgBox rToHandle.Address End Sub
Après, même si tu ajoutes des totaux sous ce tableau, le Range aura toujours la même taille.

Citation:

Envoyé par AlainTech

Evite les Select et ActiveCell.

Tu peux créer autant de Ranges que tu veux: Un tableau, une colonne, une ligne ou même une seule cellule.

L'avantage est que tu peux y faire référence quelles que soient les manipulations qui aient pu être faites après leur création.

29/08/2012, 18h42
Henri1830
Bonsoir Alain,

Encore merci pour ton suivi.

Je viens de procéder à quelques essais en interprété et je me suis rendu compte de mon erreur.
En fait, il faut chaque fois reprendre toute la plage de données, sous-totaux et totaux généraux compris et Excel gère le truc.

Moi, je voulais ne reprendre que les données sans les derniers sous-totaux et totaux généraux.
Ça fonctionne, mais ça génère deux fois les totaux généraux ce qui tout compte fait, est inutile.

Si j'ai bien compris, ton instruction :
Code:

1 2 Set rToHandle = Range(.Cells(6, 1), .Cells(.Rows.Count, 1).End(xlUp).Offset(0, 9))
permet de créer un Range, mais pour le marquer, est-ce qu'on utilise :
Code:

1 2 Range rToHandle.Select
Sous-question.
Ici, je peux déterminer facilement la colonne de fin.
Si je dois estimer ma ligne et ma colonne de fin, comment puis-je faire ?

Une dernière question le "With Sheets / End With" est nécessaire si on est déjà dans la bonne feuille ?

D'avance mille mercis pour ton aide.

Henri

Citation:
Envoyé par Henri1830
mais pour le marquer, est-ce qu'on utilise :
Code:

1 2 Range rToHandle.Select
Mais pourquoi "marquer"?
Je t'ai déjà dit qu'il faut éviter de sélectionner. Il faut apprendre à "penser objet".

De plus, rToHandle est un objet Range. Si tu tiens absolument à le sélectionner, il suffit d'écrire

Code:

rToHandle.Select

Pour le copier, tu fais

Code:

rToHandle.Copy

Pour le "vider" (supprimer le contenu et la mise en forme des cellules qui le composent):

Code:

rToHandle.Clear

Citation:

Sous-question.
Ici, je peux déterminer facilement la colonne de fin.
Si je dois estimer ma ligne et ma colonne de fin, comment puis-je faire ?

Une méthode parmi plein d'autres:
Code:

1 2 3 4 5 6 7 8 9 10 Sub CreationObjetRange() Dim iLastColumn As Long Dim iLastRow As Long Dim rToHandle As Range With Sheets("Feuil1") iLastColumn = .Cells(1, .Columns.Count).End(xlToLeft).Column ' En supposant que ta ligne 1 permet de déterminer la dernière colonne utilisée iLastRow = .Cells(.Rows.Count, 1).End(xlUp).Row ' En supposant que ta colonne 1 (A) permet de déterminer la dernière ligne utilisée Set rToHandle = Range(.Cells(1, 1), .Cells(iLastRow, iLastColumn)) ' En supposant que la première cellule du Range est en A1 End With End Sub
Citation:

Une dernière question le "With Sheets / End With" est nécessaire si on est déjà dans la bonne feuille ?

Quand tu dis "on est" tu veux dire "on a sélectionné"...
Relis ce que je t'ai répété à propos de sélectionner.