XL 2013 Problèmes de guillemets sur plage dynamique.select

[hemerode]

Bonjour à tous

J'ai cette macro que j'aimerai faire en mode dynamique avec une itération for i= 0 to 30 step 10
Comme vous pouvez le voir, c'est une sélection multiple.

Range("A11:A16,D11:N16").select

Range("""" & "A" & 11 + i & ":A" & 16 + i, "D" & 11 + i & ":N" & 16 + i & """").Select

J'ai du mal à placer les guillemets.

Merci pour vos contributions.

 

[sylvanu]

Bonjour Hemerode,
Essayez simplement ça :

Range("A" & 11 + i & ":A" & 16 + i & ",D" & 11 + i & ":N" & 16 + i).Select

 

[Hasco]

bonsoir,

Ouvrez la fenêtre exécution (CTRL+G) et lancez ceci, qui utilise deux façons de le faire.

Sub truc()
    Dim adresse As String
    Dim i
    i = 2
    '
    ' Par concaténation
    adresse = "A" & 11 + i & ":A" & 16 + i & ",D" & 11 + i & ":N" & 16 + i
    Debug.Print 1, adresse
    Range(adresse).Select
    '
    ' Par remplacement
    adresse = Replace(Replace("A11:A16,D11:N16", "11", 11 + i), "16", 16 + i)
    Debug.Print 2, adresse
    '

End Sub

 

[hemerode]

adresse = "A" & 11 + i & "" & 16 + i & ",D" & 11 + i & ":N" & 11 + i Debug.Print 1, adresse

Merci pour ton aide. La fenetre d’exécution pour la concaténation est ok. Parcontre lorsque j'utilise .select je n'ai pas le résultat attendu.

 

[Hasco]

Re,

Pourtant j'ai testé avant de posté et Range(adresse).Select fonctionnait (le deuxième).
si vous mettez adresse.Select ça ne peut pas marcher. adresse est un STRING (chaine de caractères) et pas un objet RANGE (cellule, plage de cellule, selection de cellule)

Cordialement