pb macro remplissage cellules

[crovax39]

bonjour,

Je vous explique mon objectif final: j'ai programmé une série de calcule dans la feuille 1 pour remplire un certain nombres de cellules (un calendrier se trouvant sur la feuille 2), on obtient dans une cellule (disons BB3) quelque chose comme: L4:L23 par concatenation. Dans une macro je dit de remplir en rouge les cellule Req1 (avec
Req1=Range("BB3").Text ps: j'ai essayé avec .Value également), or une erreur survient lorsque je lance la macro :"Erreur d'exécution '1004': la méthode 'Range' de l'objet'_global' à échoué". En débogage si je place ma souris sur Req1 je vois:
Req1= "L4:L23"

voilà la macro:

Sub Remplissage_calendrier()
'
'
'
Sheets("Feuil1").Activate
Req1 = Range("BB3").Text
Sheets("Feuil2").Activate
Range("& Req1 &").Select <= sa se bloque içi à l'exécution
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
Range("A1:B1").Select
End Sub


Merci pour votre interrêt et vos réponses 😉 😉 , cordialement crovax39

 

[Guest]

Re : pb macro remplissage cellules

Bonjour,

Range(Req1).Select

Ou

If Range("BB3")<>"" And Not IsNumeric(Range("BB3")) then Range(Range("BB3").Text).Select

A+

 

[crovax39]

Re : pb macro remplissage cellules

merci, ta première proposition était la bonne, ^^, merci et bonne continuation