Mettre une variable dans le range d'une macro

[fabibi001]

Bonsoir le forum !

Voilà, je m'essaie aux macros et je coince sur l'insertion d'une valeur variable dans le Range de ma macro mais ... je n'y parviens pas.

Vous trouverez en commentaire ce que j'essaie de faire. Je voudrais définir le B17:H17 pour qu'il varie en fonction de certains critères se trouvant dans ma sheet1.

Vous constaterez que je suis pas le king de la macro

J'ai fait une recherche dans le forum mais sans trouver réellement ce que je voulais.

Quelqu'un pour m'aiguiller svp ?

Merciiiiiiiiiiiii

PS : Je vous joins le fichier concerné en annexe



Sub Macro1()
'
' Macro1 Macro
'
'

'
Sheets("Sheet1").Select
Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select
Sheets("Sheet1").Activate
'Range ("(B(10+COUNTA(B11:B25)):H(10+COUNTA(B11:B25))").Select
'Range("B(P12.value):H(P12.value)").Select
Range("B17:H17").Select
Selection.AutoFill Destination:=Range("B17:H18"), Type:=xlFillDefault
Sheets("Sheet1").Select
Range("A2").Select
End Sub

 

[kjin]

Re : Mettre une variable dans le range d'une macro

Bonsoir,

Vous constaterez que je suis pas le king de la macro

Ca je ne sais pas, par contre en ce qui concerne l'explication du pb....
A+
kjin

 

[fabibi001]

Re : Mettre une variable dans le range d'une macro

Génial ça marche super !!!

Merci Jean-Marcel !

 

[fabibi001]

Re : Mettre une variable dans le range d'une macro

Re
ce que j'aurai fait :

 dernièreLigne = Range("B25").End(xlUp).Row
    Range("B" & dernièreLigne & ":H" & dernièreLigne).Select

Bête question

Ca sert à quoi ?

 

[phlaurent55]

Re : Mettre une variable dans le range d'une macro

Bonjour à tous,

dernièreLigne = Range("B25").End(xlUp).Row

pour plus de sécurité au cas où le tableau prendrait plus d'ampleur, il devient alors nécassaire de remplacer 25 par une valeur beaucoup plus grande ( 65535 ) par exemple

bonne fin de journée à tous