inserer variable dans une plage de cellules

tototiti2008

XLDnaute Barbatruc

• 7 Octobre 2009

• #2

Re : inserer variable dans une plage de cellules

Bonjour Ataahualpa,

à tester :

Code:

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

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 7 Octobre 2009

• #3

Re : inserer variable dans une plage de cellules

Bonjour,

Code:

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!

 

Dernière modification par un modérateur: 7 Octobre 2009

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 7 Octobre 2009

• #4

Re : inserer variable dans une plage de cellules

Bonjour Ataahaulpa, bonjour le forum,

peut-être comme ça :

Code:

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é

 

Dernière édition: 7 Octobre 2009

Vote positif 0 Vote négatif

G

Guest

Guest

• 7 Octobre 2009

• #5

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+

 

Vote positif 0 Vote négatif

A

Ataahualpa

Guest

• 7 Octobre 2009

• #6

Re : inserer variable dans une plage de cellules

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

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 7 Octobre 2009

• #7

Re : inserer variable dans une plage de cellules

re,

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

A+

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 7 Octobre 2009

• #8

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)

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 7 Octobre 2009

• #9

Re : inserer variable dans une plage de cellules

Hello,

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

A+

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 7 Octobre 2009

• #10

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"... 😉

 

Vote positif 0 Vote négatif

A

Ataahualpa

Guest

• 7 Octobre 2009

• #11

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.

 

Pièces jointes

• Classeur2.xls

  41 KB · Affichages: 68
• Classeur2.xls

  41 KB · Affichages: 75
• Classeur2.xls

  41 KB · Affichages: 88

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 7 Octobre 2009

• #12

Re : inserer variable dans une plage de cellules

re,

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

Code:

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

à la place de

Code:

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

??

 

Vote positif 0 Vote négatif

A

Ataahualpa

Guest

• 7 Octobre 2009

• #13

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+

 

Vote positif 0 Vote négatif