Dites donc qu'est-ce-que je pose comme questions aujourd'hui !
J'ai une boite de dialogue où je saisis 2 données :
Si je saisis 1 et 4 je lui demande de les 4 cellules à droite à partir de la cellule où je me trouve.
J'ai écrit ce code :
sub BtnComparer_Click()
call comparer_Tables(PosCol1,PosCol2)
unload me
end sub
sub comparer_Tables(Pos1, Pos2)
cells (Pos1, Pos2).range("A11")
end sub
Range fonctionne bien si j'ai saisis 4 à la deuxiéme position. Le problème c'est que je peux très bien saisir 6 ou 8...
Est-il possible d'écrire Range en valeur relative ou une autre formule pour dire "sélectionner autant de cellules (Pos2) à partir de celle où je me trouve" ?
===> cells (Pos1, Pos2).range("A11") ??? que cherches-tu à faire ?
..@suivre...
@+Thierry
PS Dans cette phrase en plus il manque le verbe !! Si je saisis 1 et 4 je lui demande de ?????? les 4 cellules à droite à partir de la cellule où je me trouve
ou encore, si tu veux utiliser l'index de ligne et de colonne que tu sembles passer à la macro comparr_tables
Range(Cells(pos1, pos2), Cells(pos1, pos2).Offset(, 3)).Select
Pour le verbe il fallait lire 'sélectionner'. Désolé.
En fait pour être plus précis je veux sélectionner un certain nombre de cellules à droite de celle où je me trouve.
Par exemple, si je suis en A5 et que dans ma boite de dialogue j'ai saisis 1 et 4, je demande que la cellule où je me trouve et les 3 à droite soient sélectionnées.
Dans le cas présent, si je mets Activecell().range("A11") çà marche bien, forcément... (les cellules A55 sont sélectionnées).
Mais si je saisis dans ma boite de dialogue 1 et 5, activecell().range ("A11") ne sélectionne encore que les cellules A55. Or il faudrait que soit sélectionnées les cellules A5:E5.
Juste si tu veux voir une autre méthode plutôt que de taper dans des textbox mais en utilisant la souris pour déplacer ta sélection depuis le UserForm....