Selection de cellules à la volée

Bonjour,

J'ai bricolé une macro qui agit sur plusieurs zones d'une feuille de calcul.

Pour l'instant, ces zones sont codées en dur et je dois les adapter à

chaque cas particulier. Je voudrais savoir s'il y a moyen de laisser

l'utilisateur sélectionner les cellules à traiter au cours du déroulement

de la macro.

Merci d'avance

Bonjour

Peux-tu nous mettre ton code ou mieux joindre ton fichier STP ?

A te relire

Amicalement

Nad

Nad-Dan a écrit :

Bonjour

Peux-tu nous mettre ton code ou mieux joindre ton fichier STP ?

Nad

Merci de t'intéresser à mon problème.

En fait le code n'a pas d'intérêt en lui-même. Il tourne et est suffisamment

moche pour que je n'ose pas le montrer en public

C'est juste qu'il contient des lignes du type :

Range("B11:B13").Select

Range("F4:F8").Select

etc...

que j'utilise pour piocher des infos sur la feuille de calcul.

Comme les "Range" en question varient d'une feuille à l'autre, j'aurais

aimé pouvoir éviter de modifier ma macro chaque fois que je l'utilise.

Ceci étant, c'est ce que j'ai fait en attendant une réponse et comme

j'ai presque fini mes calculs, ce sera plus par curiosité que la réponse

m'intéresse.

Merci

Salut,

je pense qu'avec un refEdit sur un userform, c possible... maintenant c un peu compliqué à mettre en place.... et encore plus sans fichier

Souri84

Re,

Essaye ce code :

Sub Plage()
'Macro par Nad & Dan pour Sanders le 26/06/2008

Dim depart As String, fin As String

depart = InputBox("Entrez la Cellule de départ", "Debut Plage")
fin = InputBox("Entrez la Cellule de fin", "Fin Plage")

Range(depart & ":" & fin).Select

Call ta_macro 'ici tu mets le nom de ta macro

End Sub

Amicalement

Nad

Merci à vous.

Salut le forum

Juste en complément au code de Nad

On peut faire directement une sélection de cellules dans un InputBox avec la souris.

Sub Plage_Select()

Dim MaPlage As Range

'Permet de sélectionner une plage avec la souris (Méthode InputBox)
    Set MaPlage = Application.InputBox _
        ("Sélectionnez la ou les cellule(s) à traiter !", "Plage source", Type:=8)

MaPlage.Select

End Sub

Mytå

• Dès que votre problème est résolu, merci de le marquer en tant que [Résolu]
  grâce à l'utilitaire se trouvant en bas de page, aperçu :

Impeccable, merci.

Bonjour à tous,

encore une bonne ficelle !, Mytå, "Ne nous quitte pas".

Claude.