Discussion :

[arkorrigan]

Bonjour à tous,

Je cherche à répéter une macro sur plusieurs cellules.
En gros, je voudrais qu'après avoir effectuer son action, la macro se répète sur la cellule inférieure et ce jusqu'à la fin du fichier.
Je crois que c'est un système de boucle mais mes connaissances en VBA commencent à être un peu loin !!!
Merci de m'aider

[soubichat]

bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub macro()
    Selection.Value = "coucou"
End Sub
 
Sub laboucle()
    Dim cell As Range
    For Each cell In Range("A1:A1000")
        cell.Select
        Application.Run "macro"
    Next cell
End Sub

ce code fonctionne s'il est noté dans un module
cordialement

[Qwazerty]

Salut
Autant éviter les select dans le code, cela ralenti son exécution.

Code :

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

1
2
3
4
5
6
7
8
Sub laboucle()
    Dim cell As Range
    'Stopper le rafraichissement
    Application.screenUpdating = false 'il se remet a true a la fin de la procédure en cours
    For Each cell In Range("A1:A1000")
        cell.Value = "coucou"
    Next cell
End Sub

Si on souhaite interagir sur la cellule via une autre procédure ou fonction, on passera simplement la cellule en paramètre a cette procédure/fonction.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub macro(TheCel as range)
    TheCel .Value = "coucou"
End Sub
 
Sub laboucle()
    Dim cell As Range
    Application.screenupdating = false
    For Each cell In Range("A1:A1000")
        macro Cell
    Next cell
End Sub

a++
Qwaz