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
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