Changer la plage de cellule sélectionnée en fonction d'une variable

Voilà mon code:

' Macro1 Macro

Dim n, a, b, m As Integer
n = 1441
m = 1479
a = 39

While a < 56

ActiveWindow.SmallScroll Down:=24
Range("D;n:D;m").Select
Selection.Replace What:="$M$6", Replacement:="$M$a", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2

n = n + 41
m = m + 41
a = a + 1

Wend

End Sub

Ne faites pas attention aux potentielles erreurs du reste du code mais pour l'heure j'aimerais juste savoir ce que je dois insérer entre D et n (ma variable) afin que celui-ci ne me sélectionne pas la colonne DN mais la colonne D et la ligne n.

J'espère avoir été clair.

Merci pour votre aide.

Bonjour,

celui-ci ne me sélectionne pas la colonne DN mais la colonne D et la ligne n.

En fonction de ce que vous écrivez, de D n à D m, je suppose

Peut être comme ceci :

Dim n As Integer, a As Integer, b As Integer, m As Integer
n = 1441
m = 1479
a = 39
While a < 56

    Range("D" & n & ":D" & m).Replace What:="$M$6", Replacement:="$M$" & a, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2

    n = n + 41
    m = m + 41
    a = a + 1
Wend

A voir si cela ne bugue pas sur l'instruction mais de base pour la colonne D selon votre demande -->

Range("D" & n & ":D" & m)

Attention que lorsque vous mettez --> Dim n, a, b, m As Integer, seule la variable m est Integer les autres sont en Variant

Cordialement

Merci beaucoup Dan ça fonctionne pour le range. Le code n'est pas encore bon mais je vais essayer de voir seul si je m'en sors.

Bonne fin de journée !

Ps: Merci aussi pour le Dim

Rechercher des sujets similaires à "changer plage selectionnee fonction variable"