Quelqu'un pourrait-il m'aider? Disons i4: i est mon lastrow et ActiveCell dans g remplira la formule.
4 Réponses :
Vous avez une adresse incorrecte dans la "gamme" de l'autofill. Cela pourrait fonctionner, mais c'est loin d'être parfait (juste un point de départ pour vous aider):
Dim Lastrowzxc As Long
Lastrowzxc = Range("I4").CurrentRegion.Rows.Count
Range("G" & Rows.Count).End(xlUp).Offset(1).Select
ActiveCell.FormulaR1C1 = "=IF(RC[2]<0,""40"",""50"")"
Selection.AutoFill Destination:=Range(Cells(2, 7), Cells(Lastrowzxc, ActiveCell.Column))
J'essaie le code mais sa méthode de la méthode d'autofil de la classe de plage a échoué.
Quelle est la valeur de lastrowzxc?
Gamme ("I4"). Actualregion.rows.count, la dernière cellule de "I" a de la valeur.
Que je peux voir. Quelle est la valeur réelle (numéro). Combien de lignes avez-vous dans votre région?
Le numéro de valeur de mes lignes n'est pas corrigé, cela dépend de nos fichiers de lignes extraites.
Je comprends que :) Mais quand vous obtenez l'erreur - quel est le nombre de lignes?
Bonjour Sir Pawel - Merci d'avoir répondu à ma question. Je l'ai eu merci beaucoup! J'ai déjà résolu! :)
Supposons i4: i20 code> est la plage à remplir et g4 code> contient la formule, c'est ce que vous devriez faire: Range("I4:I20").FormulaR1C1 = Range("G4").FormulaR1C1
Il n'y a pas de dernière gamme spécifique Sir Van.
Essayez cela, cela fonctionne pour moi:
Dim Lastrowzxc As Long
Lastrowzxc = ActiveSheet.Range("I4").currentRegion.Rows.Count
Range("G" & ActiveSheet.Rows.count).End(xlUp).Offset(1).Select
Selection.FormulaR1C1 = "=IF(RC[2]<0,""40"",""50"")"
Selection.AutoFill Destination:=Range(Range(ActiveCell.Address), Cells(Lastrowzxc, ActiveCell.Column))
Pourquoi la peine de sélectionner des gammes? C'est une mauvaise pratique.
Je ne comprends pas tout à fait ce que votre objectif est que vous sélectionnez la cellule sous la dernière cellule de Col G. Je suppose que vous souhaitez commencer à la dernière ligne de Col G jusqu'à la dernière ligne de Col I? Si oui ..: