Séléction limitée de cellule

[belerofon]

Salut les copains,
je continue mon apprentissage d'Excel et VBA et cet après midi je me demandais si un petit bout de code permettrais dans une feuille concernée de limiter la sélection de cellules...
En fait j'ai un formulaire non modal qui me permet de renseigner des cellules de mon tableur en sélectionnant un range de cellule du tableur puis en cliquant sur une legende faite de Labels... Mais pour eviter des bugs galere a fixer, il faudrait que la selection du l utilisateur soit limitée a 2 cellules, par exemple en cliquant sur A1 , la selection serait automatiquement (A1;B1)... Toute autre selection serait limitée a la premiere cellule en haut a gauche de la selection plus la cellule directement à sa droite...

Je continue de plancher, si quelqu'un peut me depatouiller avant que je ne trouve, ce serait sympa...
Bon dimanche les copains
Juju

 

[Jacou]

Re : Séléction limitée de cellule

Bonjour Belerofon,
du genre Range(ActiveCell, Cells(ActiveCell.Row, ActiveCell.Column+1)).Select
Bonne journée

 

[belerofon]

Re : Séléction limitée de cellule

Effectivement tip top...
merci pour ton extreme reactivite
Juju

 

[belerofon]

Re : Séléction limitée de cellule

Question subsidiaire :
Comment ferait tu pour ne selectionner qu une cellule sur deux d une selection?
Par exxemple un utilisateur selectionne A1:A10 , la selection deviendrait : A1,A3,A5,A7,A9 ?

 

[Jacou]

Re : Séléction limitée de cellule

Bonsoir,
en utilisant le code suivant :

nb = Selection.Rows.Count
lig = ActiveCell.Row
col = ActiveCell.Column
ActiveCell.Select
For i = lig + 2 To lig + nb Step 2
Union(Selection, Cells(i, col)).Select
Next i

Bonne nuit

 

[belerofon]

Re : Séléction limitée de cellule

Merci mon Jacou, tu déchires pas mal
j'avais pas encore utilisé cette association de Union et de selection... Ca va me plaire je crois
Il se peut que je rebloque a l avenir, je te donnerais un petit coup de sonnette si besoin...
En esperant pouvoir te rendre la pareille un jour...
Juju