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

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 13 Avril 2022

• #2

Bonjour Hemerode,
Essayez simplement ça :

VB:

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

 

Vote positif 0 Vote négatif

Solution

Hasco

XLDnaute Barbatruc

Repose en paix

• 13 Avril 2022

• #3

bonsoir,

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

VB:

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

 

Dernière édition: 13 Avril 2022

Vote positif 0 Vote négatif

H

hemerode

XLDnaute Junior

• 13 Avril 2022

• #4

Hasco à dit:

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

Cliquez pour agrandir...

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.

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 13 Avril 2022

• #5

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

 

Dernière édition: 13 Avril 2022

Vote positif 0 Vote négatif