Créer une macro avec boucle sur sélection

Bonjour,

Je suis débutant en VBA et je voudrais savoir comment faire une boucle sur une sélection de valeur. Voici plus exactement ce que je souhaite faire :
Sélectionner avec ma souris un ensemble de ligne (par exemple de D5 à D10) puis je lance ma macro.
Cette dernière doit pouvoir faire une boucle sur chaque élémentv dfe ma sélection afin de réaliser mon traitement (sur D5 puis D6...D10). Dans mon exemple c'est donc une boucle de 5 à 10. Il faut également que je puisse justement récupérer la valeur de ma sélection afin dy apporter les modifications necessaire. Est-ce clair ou faut-il plus de détails ?
Merci par avance.

Ostik

Bonjour,
Pour ta 1ère réflexion :

Citation:

---

Sélectionner avec ma souris un ensemble de ligne (par exemple de D5 à D10) puis je lance ma macro.

---

tu vas partir avec des select, ce qui est déconseillé, si je reprends ton exemple :

Code:

---

1 2 3 4 5 6 7

Sub exemple() Dim i As Integer, aChanger As String For i = 5 To 10 aChanger = InputBox("changement", "titre", Range("D" & i)) Range("D" & i) = aChanger Next i End Sub

---

J'ai oublié un détail si tu cliques sur "annuler" pour ne pas changer la valeur :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub exemple() Dim i As Integer, aChanger As String, anul As String For i = 5 To 10 aChanger = Range("D" & i) anul = InputBox("changement", "titre", Range("D" & i)) If anul <> "" And anul <> aChanger Then Range("D" & i) = anul End If Next i End Sub

---

Merci beaucoup pour ta réponse.
Je peux savoir pourquoi est-ce déconseiller ?
Le problème c'est que je n'ai pas trop le choix car en faite mon fichier excel possède déja des données et je dois lui ajouter manuellement a la suite des données dejà traitées les nouvelles. il ne faut pas que ma macro s'exécute sur toutes les données de la colonne D mais seulement sur les nouvelles que je vien d'insérer.

Je dois également préciser que je ne sais pas combien de donner seront a traiter, ça peut très bien être 10 puis 12 pour demain or dans ton exemple la boucle itère seulement de 5 à 10. Il faudrait que je sois capable de connaître le nombre d'éléments préselectionnés quand je lance ma macro.

Encore merci

je me suis contenté de faire un exemple

Citation:

---

...exemple la boucle itère seulement de 5 à 10...

---

si tu tiens à selectionner avant, adaptes comme ça :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub exemple() Dim cel As Range, aChanger As String, anul As String For Each cel In Selection aChanger = cel anul = InputBox("changement", "titre", cel) If anul <> "" And anul <> aChanger Then cel = anul End If Next cel End Sub

---

Merci beaucoup cela marche très bien (réponse très rapide :D)
ca correspond exactement à mes attentes.

Bonne fin de soirée