Dans la macro suivante, j'essaie dans la destination de dire =E0 Excel
de partir de la cellule active et de copier la formule jusqu'=E0 la
fin...
Sub SumClo()
With ActiveSheet
DerA =3D Sheet2.[A65536].End(3).Row
End With
[A65536].End(3).Offset(3, 0).Select
ActiveCell.Formula =3D "=3D'Closed'!B3"
ActiveCell.Select
Selection.AutoFill Destination:=3DRange("$A:$A$" & DerA & ""),
Type:=3DxlFillDefault
'Ici le
probl=E8me...au lieu de $A:$A$, faudrait que ce soit la cellule active
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Trirème
Bonjour Denys,
Selection.AutoFill Destination:=Range("$A:$A$" & DerA & ""), Type:=xlFillDefault 'Ici le problème...au lieu de $A:$A$, faudrait que ce soit la cellule active
Tu peux essayer Range(ActiveCell.Address & ???) Dans quelle colonne es-tu à ce moment là ? Et à quelle ligne ? J'ai l'impression que tu veux recopier vers le haut. Non ?
Tu peux aussi essayer ActiveCell.Offset(L,C).Resize(lig) avec certainement lig = ActiveCell.Row - DerA
Cordialement, Trirème, dubitatif
Bonjour Denys,
Selection.AutoFill Destination:=Range("$A:$A$" & DerA & ""),
Type:=xlFillDefault
'Ici le
problème...au lieu de $A:$A$, faudrait que ce soit la cellule active
Tu peux essayer Range(ActiveCell.Address & ???) Dans quelle colonne es-tu à
ce moment là ? Et à quelle ligne ? J'ai l'impression que tu veux recopier
vers le haut. Non ?
Tu peux aussi essayer ActiveCell.Offset(L,C).Resize(lig) avec certainement
lig = ActiveCell.Row - DerA
Selection.AutoFill Destination:=Range("$A:$A$" & DerA & ""), Type:=xlFillDefault 'Ici le problème...au lieu de $A:$A$, faudrait que ce soit la cellule active
Tu peux essayer Range(ActiveCell.Address & ???) Dans quelle colonne es-tu à ce moment là ? Et à quelle ligne ? J'ai l'impression que tu veux recopier vers le haut. Non ?
Tu peux aussi essayer ActiveCell.Offset(L,C).Resize(lig) avec certainement lig = ActiveCell.Row - DerA
Cordialement, Trirème, dubitatif
Denys
Bonjour Trirème,
Je serai toujours sur une ligne différente dans la colonne A, et je dois recopier vers le bas....Jusqu'à présent, ça ne fonctionne pas....
Merci pour ton aide
Denys
Bonjour Trirème,
Je serai toujours sur une ligne différente dans la colonne A, et je
dois recopier vers le bas....Jusqu'à présent, ça ne fonctionne pas....
Je serai toujours sur une ligne différente dans la colonne A, et je dois recopier vers le bas....Jusqu'à présent, ça ne fonctionne pas....
Merci pour ton aide
Denys
Trirème
Je crois comprendre que tu veux copier une formule 3 lignes sous la dernière cellule de la colonne A et ceci jusqu'en bas.
Essaie ceci :
With ActiveSheet DerA = [A65536].End(3).Row ' DerA ne peut pas être sup. à 65533 sinon erreur dans l'instruction suivante End With [A65536].End(3).Offset(3, 0).Resize(65536 - DerA - 2).Formula = "='Closed'!B3"
Cordialement, Trirème
Bonjour Trirème,
Je serai toujours sur une ligne différente dans la colonne A, et je dois recopier vers le bas....Jusqu'à présent, ça ne fonctionne pas....
Merci pour ton aide
Denys
Je crois comprendre que tu veux copier une formule 3 lignes sous la dernière
cellule de la colonne A et ceci jusqu'en bas.
Essaie ceci :
With ActiveSheet
DerA = [A65536].End(3).Row
' DerA ne peut pas être sup. à 65533 sinon erreur dans l'instruction suivante
End With
[A65536].End(3).Offset(3, 0).Resize(65536 - DerA - 2).Formula = "='Closed'!B3"
Cordialement,
Trirème
Bonjour Trirème,
Je serai toujours sur une ligne différente dans la colonne A, et je
dois recopier vers le bas....Jusqu'à présent, ça ne fonctionne pas....
Je crois comprendre que tu veux copier une formule 3 lignes sous la dernière cellule de la colonne A et ceci jusqu'en bas.
Essaie ceci :
With ActiveSheet DerA = [A65536].End(3).Row ' DerA ne peut pas être sup. à 65533 sinon erreur dans l'instruction suivante End With [A65536].End(3).Offset(3, 0).Resize(65536 - DerA - 2).Formula = "='Closed'!B3"
Cordialement, Trirème
Bonjour Trirème,
Je serai toujours sur une ligne différente dans la colonne A, et je dois recopier vers le bas....Jusqu'à présent, ça ne fonctionne pas....