inserer variable dans une plage de cellules

[Ataahualpa]

Bonjour
Je solicite votre aide inserer une variable dans un objet range.
J'ai essayé plusieurs solutions, avec sans guillemets espace etc...


Sub Macro3()
Lin = ActiveSheet.UsedRange.Rows.Count
ActiveCell.FormulaR1C1 = "=NETWORKDAYS(RC[5],RC[6],Fériés)"
Selection.NumberFormat = "General"
Selection.AutoFill Destination:=Range("A4:A & lin")
End Sub

 

[tototiti2008]

Re : inserer variable dans une plage de cellules

Bonjour Ataahualpa,

à tester :

Selection.AutoFill Destination:=Range("A4:A" & lin)

 

[Guest]

Re : inserer variable dans une plage de cellules

Bonjour,

Sub Macro3()
Lin = ActiveSheet.UsedRange.Rows.Count
ActiveCell.FormulaR1C1 = "=NETWORKDAYS(RC[ " & X & " ],RC[" & Y & "],Fériés)"
Selection.NumberFormat = "General"
Selection.AutoFill Destination:=Range("A4:A & lin")
End Sub

Où X et Y, doivent être les numéros de colonne idoines, que je te laisse calculer.

A+

[edit] autant pour moi, j'avais pas vu que la demande concernait la dernière ligne! Oups! Warf! et splash!

 

[Robert]

Re : inserer variable dans une plage de cellules

Bonjour Ataahaulpa, bonjour le forum,

peut-être comme ça :

Sub Macro3()
Lin = ActiveSheet.UsedRange.Rows.Count
ActiveCell.FormulaR1C1 = "=NETWORKDAYS(RC[5],RC[6],Fériés)"
Selection.NumberFormat = "General"
Selection.AutoFill Destination:=Range("A4:A" & lin)
End Sub

Édition :

Bonjour Tototiti, Hasco, on s'est croisé

 

[Guest]

Re : inserer variable dans une plage de cellules

RE tous,

Je viens de voir que tu avais ouvert un autre post sur le sujet, la prochaine fois essaye d'éviter ce genre de chose.

A+

 

[Ataahualpa]

Re : inserer variable dans une plage de cellules

J'ai essayé vos solution sans succés.
autre aidé?

 

[Guest]

Re : inserer variable dans une plage de cellules

re,

Alors là tu ne peux pas echapper au fameux "fichier joint"!

A+

 

[tototiti2008]

Re : inserer variable dans une plage de cellules

Bonjour Hasco, Bonjour Robert,
Re,

sans fichier difficile à dire...
Robert et moi avont supposé que c'est la variable Lin que tu voulais utiliser dans ta plage de cellules, et c'est pourquoi nous t'avons proposé :

Selection.AutoFill Destination:=Range("A4:A" & lin)

à noter que la 2ème guillemet est plcée différement de ton code original.

Hasco t'a proposé une solution pour intégrer des variables dans la formule Networkdays.

Peux-tu déjà nous dire dans quelle direction il faut aller ?
les réponses du type : "ça ne marche pas !", c'est souvent un peu court.

 

[Guest]

Re : inserer variable dans une plage de cellules

Hello,

Ben TotoTiti, t'es pas Devin??????😀

A+

 

[tototiti2008]

Re : inserer variable dans une plage de cellules

Re,

Eh non, Hasco, comme d'autres l'ont souvent dit avant moi, "Ma boule de cristal est en réparation"... 😉

 

[Ataahualpa]

Re : inserer variable dans une plage de cellules

Ci-joint le fichier.
Le but du code est de recopier la formule suivant le nombre de ligne.

 

[tototiti2008]

Re : inserer variable dans une plage de cellules

re,

et donc, qu'est-ce qui ne marche pas dans

Selection.AutoFill Destination:=Range("A4:A[SIZE=3][COLOR=red][B]"[/B][/COLOR][/SIZE] & lin)

à la place de

Selection.AutoFill Destination:=Range("A4:A & lin")

??

 

[Ataahualpa]

Re : inserer variable dans une plage de cellules

Re

Désoler,Je deconne
J'avais oublié indiqué la cellule de départ(Range("A4").Select).

Merci
A+