Pb sélection plage avec macro

Re : Pb sélection plage avec macro

Bonsoir Fredennes,

Tu devrais pouvoir essayer comme ça :
Sinon, si on veut réduire ce code à une seule ligne :
Cordialement,

Re : Pb sélection plage avec macro

Salut
Une autre vision du code

Sub test()
Worksheets("Base_CA").Activate
var1 = Range("B" & Range("A65536").End(xlUp).Row).address(0,0)
var2 = Range("B" & Range("B65536").End(xlUp).Row + 1).address(0,0)
c = (var1 & ":" & var2)
Range(c).Select
End Sub[/QUOTE]

ou en une seule
Range("B" & Range("A65536").End(xlUp).Row & ":B" & Range("B65536").End(xlUp).Row + 1).Select


Ton problème :

var1 = Range("B" & Worksheets("Base_CA").Range("A65536").End(xlUp).Ro w)
var1 = valeur de la cellule B3 (A1, A2, A3 non vide)
var2 = Range("B" & Worksheets("Base_CA").Range("B65536").End(xlUp).Ro w + 1)
Var2 = valeur de la cellule B2 (B1 non vide)

Range("B1") = Range("B1").Value

Si tu t'obligeais à déclarer tes variables, tu aurais sans doute eu une incompatibilité de type
donc si tu veux définir une plage,(la différence de colonne entre A et B, d'après ce que je comprends), il faut que tu construises le texte qui sert à la définition : si B1 = 1

Range("B1") = Cells(1,2) = Range("B1").Value = cells(1,2).value = 1
Range("B1").address = cells(1,2).address = "$B$1"
Range("B1").address(0,0) = cells(1,2).address(0,0) = "B1"

Après, c'est comme les formules sous Excel
Range("B1").address(0,0) & ":" & cells(2,5).address = "B1:$E$2"

A+

Re : Pb sélection plage avec macro

Merci bcp

Bonne journée