XL 2016 Sélection de plages de cellules multiples

[Street filou]

Bonsoir à tous

je cherche à corriger la syntaxe si dessous pour arriver à faire la même chose que : Range("i3:k3,M3:O3").Select (sélection de deux plages)

mais avec la variable i
sauf que le code ci dessous ne fonctionne pas !

Range("H" & i + 1 & ":Q" & i + 1, "S" & i + 1 & ":AA" & i + 1").Select

je dois surement faire une erreur toute simple d'écriture, mais impossible à trouver !

si quelqu’un voudrait bien me donner un petit coup de main svp, ça serait super sympa ... Merci par avance
Bonne soirée à tous

 

[Staple1600]

Bonsoir

Essaies comme ceci

Sub test()
i = 3
Range("H" & i + 1 & ":Q" & i + 1 & ",S" & i + 1 & ":AA" & i + 1).Select
MsgBox Range("H" & i + 1 & ":Q" & i + 1 & ",S" & i + 1 & ":AA" & i + 1).Address
End Sub

 

[Street filou]

Rhoooo extra !!! merci beaucoup c'est top !
ça fonctionne super bien !
bonne fin de soirée

 

[Staple1600]

Bonsoir le fil,

Une autre syntaxe possible

Sub test_2()
Dim rng As Range
i = 3
'Range("H" & i + 1 & ":Q" & i + 1 & ",S" & i + 1 & ":AA" & i + 1).Select
'MsgBox Range("H" & i + 1 & ":Q" & i + 1 & ",S" & i + 1 & ":AA" & i + 1).Address(0, 0)
Set rng = Union(Cells(i, "H").Resize(, 10), Cells(i, "S").Resize(, 9)).Offset(1)
MsgBox rng.Address(0, 0)
rng.Select
End Sub

 

[Street filou]

Bonsoir le fil,

Une autre syntaxe possible

Sub test_2()
Dim rng As Range
i = 3
'Range("H" & i + 1 & ":Q" & i + 1 & ",S" & i + 1 & ":AA" & i + 1).Select
'MsgBox Range("H" & i + 1 & ":Q" & i + 1 & ",S" & i + 1 & ":AA" & i + 1).Address(0, 0)
Set rng = Union(Cells(i, "H").Resize(, 10), Cells(i, "S").Resize(, 9)).Offset(1)
MsgBox rng.Address(0, 0)
rng.Select
End Sub

 

[Street filou]

Bonjour Staple1600

Pourriez vous m'aider à faire la même chose mais à partir d'une cellule active avec des offset pour décaler la sélection
c'est pour remplir et modifier deux tableaux en parallèle. Du genre :

sélection de la première plage : [activecell, activecell. offset(0,4)] et de la deuxième plage : (sur la même ligne) activecell.offset(0,6),activecell.offset(0,10) avec un .select à la fin.

et le tout en une seule ligne de code.

comme mercredi, je ne dois pas m'y prendre comme il le faut ... j'ai galéré toute la soirée ... 😕

Merci par avance si vous aviez la réponse, car ça simplifierais beaucoup mon code ...
bonne journée

 

[xUpsilon]

Bonjour,

As tu changé quelque chose au code qu'il t'avait soumis ? Normalement, changer uniquement les Cells(x,x) par des ActiveCell et changer les offsets est suffisant pour faire compiler, je ne vois pas où il pourrait y avoir une erreur. A moins que tu aies changé qqchose.

Bonne continuation

 

[Staple1600]

Bonsoir le fil, Street filou, xUpsilon

Street filou
Il est peut-être temps de joindre un fichier exemple (allégé et anonimysé) pour qu'on y voit plus clair, non?
😉

 

[eriiic]

Bonjour à tous,

et une 3ème façon que j'aime bien :

Range("i1:k1,M1:O1").Offset(i-1).Select

eric

 

[Street filou]

Bonsoir à tous
Je reviens un peu tard, ...
Déjà un grand merci, car j'ai appris beaucoup de chose avec vos exemples.
toutefois avec les "activecell" et les offsets ... à priori je ne suis pas doué ! 😕
Globalement ce que j'ai fais ça fonctionne, mais à mon avis ça doit pouvoir beaucoup se simplifier !

(pour info : je souhaite partir de la cellule active, avec des offsets car dans mon projet c'est plus simple à traiter.
ci joint un extrait pour exemple
si vous avez une minute pour jeter un œil ... ça serait cool.
Merci par avance
bonne soirée à tous
filou

 

[Staple1600]

Bonsoir le fil

Street filou
Si j'ai bien compris le pitch de ta question 😉
Essaies ce code pour le bouton Ajouter (en lieu et place du tien)

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
[G1:O1].Copy: Cells(Rows.Count, "G").End(3).PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
End Sub

PS: Si tu utilisais un tableau structuré , le format se réplique automatiquement de ligne en ligne (et les formules aussi, si il y en a)
Si le coeur t'en dit, voir par exemple ce tuto

 

[patricktoulon]

bonsoir
on prends un racourci 😉

Sub test()
Dim p as range
i = 3
Set p = Union([H:Q].Rows(i + 1), [S:AA].Rows(i + 1))
MsgBox p.Address
End Sub