Discussion :

[Esculape]

Bonjour le forum!

J'ai une question assez spécifique relative à l'utilisation d'un AutoFill.

Au sein d'une macro je souhaite remplir une plage de donnée (myRange) avec une formule.
Je place ma formule dans la cellule H7, puis tente de la recopier avec AutoFill dans myRange.

Mon problème: la formule est bien copiée sur une plage de donnée mais il manque la première colonne et la première ligne adjacentes à la cellule H7.
Cela doit sûrement être lié, mais j'ignore pourquoi.

Merci d'avance pour vos réponses et votre aide !!


Voici le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub essai()
 
Dim derniereLigne As Long
Dim myRange As Range
 
 
derniereLigne = Range("C7").End(xlDown).Row
 
Set myRange = Range(Cells(7, 8), Cells(derniereLigne, 10))
 
Range("H7").FormulaR1C1 = "=SUMIFS(Data_CA!C25,Data_CA!C10,RC4,Data_CA!C4,R1C3,Data_CA!C24,R6C)"
 
Range("H7").AutoFill Destination:=myRange
 
 
End Sub

Bonne journée,

Esculape.

[BENNASR]

ajouter après 2 Dim :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
with sheets("....")
/
/
/
end with
end sub

aussi ajouter un point avant Range

essayer ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub essai()
With Sheets("Data_CA")
Range("H7:H" & [F65536].End(xlUp).Row).FormulaR1C1 = "=SUMIFS(Data_CA!C25,Data_CA!C10,RC4,Data_CA!C4,R1C3,Data_CA!C24,R6C)"
End Sub

[cerede2000]

@BENNASR : Ton code change le fonctionnement de ce que cherche à faire @Esculape

Il regarde dans la colonne C pour déterminer sa plage de donnée, hors avec ton code tu regarde dans la colonne H.....

[BENNASR]

Merci cerede2000 je crois que ca débloque non ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Sub essai()
With Sheets("Data_CA")
Range("H7:H" & [C65536].End(xlUp).Row).FormulaR1C1 = "=SUMIFS(Data_CA!C25,Data_CA!C10,RC4,Data_CA!C4,R1C3,Data_CA!C24,R6C)"
End Sub

[Esculape]

Merci BENNASR pour ta réponse!
Cela fonctionne bien sur la colonne H jusqu'à la dernière ligne (que l'on compte sur la colonne C).

Cependant je cherche à ce que la formule s'applique aussi sur plusieurs colonnes tout en utilisant la définition de plage via myRange.
Et en utilisant cette méthode, j'avais le problème précédemment cité:

Mon problème: la formule est bien copiée sur une plage de donnée mais il manque la première colonne et la première ligne adjacentes à la cellule H7.

Je ne vois toujours pas comment faire.
J'ai bien essayé ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Range("H7:H" & [C65536].End(xlUp).Row).FormulaR1C1 = "=SUMIFS(Data_CA!C25,Data_CA!C10,RC4,Data_CA!C4,R1C3,Data_CA!C24,R6C)"
 
Range("H7").AutoFill Destination:=myRange

avec toujours avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
derniereLigne = Range("C7").End(xlDown).Row
 
Set myRange = Range(Cells(7, 8), Cells(derniereLigne, 10))

Mais j'ai toujours la première ligne adjacente à H7 qui n'est pas complétée et le code m'a l'air un peu compliqué pour la simplicité de ce que je souhaite réaliser...


Esculape.

[BENNASR]

désolé de dire que j'ai pas compris toutefois et si c'est possible posté un petit classeur exemple et je vais essayer de t'aider malgré que chui débutant en VBA aussi