Discussion :

[ostik]

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

[casefayere]

Bonjour,
Pour ta 1ère réflexion :

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 :

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

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 :

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

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

[ostik]

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

[casefayere]

je me suis contenté de faire un exemple

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

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

Code :

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

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

[ostik]

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

Bonne fin de soirée