RESOLU : problème de compatibilité range/cells

[Jubei1]

Bonjour, à tous et joyeux st valentin !

Quelqu'un aurait il en ce jour joyeux l'extrème amabilité de m'expliquer pour quoi ce passage de mon script ne marche pas????????

Worksheets("Suivi").Select
Range("F1").Select
Selection.NumberFormat = "dd"
Range("E5").Select
Do
ActiveCell.Offset(1, 0).Select
Loop Until ActiveCell.Value = Range("F1").Value
ligne = ActiveCell.Row

Range(Cells(ligne - 1, 8), Cells(ligne - 1, 70)).AutoFill Destination:=Range(Cells(ligne, 8), Cells(ligne, 70)) 'c'est ici que ça marche pas

Range("F1").Select
Selection.NumberFormat = "m/d/yyyy"

PS : la solution Range("G" & ligne - 1 & ":BR" & ligne - 1).AutoFill Destination:=Range("G" & ligne & ":BR" & ligne)
ne marche pas non plus...

 

[Pierrot93]

Re : problème de compatibilité range/cells

Bonjour,

sans voir ce que valent tes variables difficile à dire... petite info sur la méthode "autofill", extrait de l'aide vba :

Destination Objet Range obligatoire. Les cellules à remplir. La destination doit inclure la plage source.

bonne journée
@+

 

[Jubei1]

Re : problème de compatibilité range/cells

La variable "ligne" est le numéro de ligne correspondant la cellule ou se trouve la date du jour. Cette variable changera au fur et à mesure.

En écoutant ton conseil j'obtient tout simplement ceci :

Range(Cells(ligne - 1, 8), Cells(ligne - 1, 70)).AutoFill Destination:=Range(Cells(ligne - 1, 8), Cells(ligne, 70))

L'instruction marche.

Je te remercie Pierrot93.
à bientot