Consolidation de lignes Excel via VBA

Bonjour,

Je me doute bien que les données ne sont pas à une adresse constante. C'était un exemple.
Ce code ci-dessous est plus clair ?

Code:

---

MsgBox ActiveSheet.range("A1").CurrentRegion.Address(ReferenceStyle:=True, external:=True)

---

ou encore (même si je ne suis pas partisan d'utiliser l'objet Selection sauf dans des cas extrêmes

Code:

---

MsgBox Selection.CurrentRegion.Address(ReferenceStyle:=True, external:=True)

---

et n'est-il pas possible de rentrer dans l'argument "Sources" de la méthode "Consolidate" l'adresse renvoyée par ce "MsgBox" ? Stocker ce message dans une variable et l'indiquer comme source de la méthode. Ainsi le code s'adapterait à tous les fichiers non ?

Bonjour,

Le code que j'ai utilisé avec un MsgBox est un EXEMPLE
Un MsgBox ne peux pas renvoyer une valeur autre que le numéro du bouton sur lequel l'utilisateur a cliquer en revanche la fonction InputBox le peut.
Cherche un peu de ce côté là, on ne peut tout de même pas faire tout le travail pour toi. C'est un club d'entraide ici.

[EDIT]
Tu peux aussi regarder du côté des procédures événementielles de la feuille (Double clic par exemple)

[EDIT2]
Deux exemples avec la méthode InputBox de l'objet Application à adapter
Exemple 1 : Tu sélectionnes une plage et la méthode InputBox renvoie un objet Range

Code:

---

1 2 3 4

Sub Exemple_1() Dim rng As Range Set rng = Application.InputBox("Sélectionner la plage", Type:=8) MsgBox rng.Address

---

Exemple 2 : On sélectionne une ou plusieurs cellules et ensuite on prend la région

Code:

---

1 2 3 4 5

Sub Exemple_2() Dim rng As Range Set rng = Application.InputBox("Sélectionner une ou plusieurs cellules de la liste", Default:=ActiveCell.Address, Type:=8) MsgBox rng.CurrentRegion.Address(ReferenceStyle:=xlR1C1, External:=True) End Sub

---