Rechercher une cellule dans un calcul
Clem
-
Clem -
Clem -
Bonjour,
Je souhaite automatiser par macro sur excel une division.
Comment fait-on pour faire rechercher la dernière cellule non vide d'un tableau dans une formule de calcul (ici une division) ?
Voici ma formule actuellement :
ActiveCell.FormulaR1C1 = "=GoogleAdsense!R[48]C/'testmacro'!R[-27]C"
Range("B40").Select
Je souhaite remplacer R[48]C par la dernière cellule non vide de ma colonne C.
Avez-vous des solutions ?
Je souhaite automatiser par macro sur excel une division.
Comment fait-on pour faire rechercher la dernière cellule non vide d'un tableau dans une formule de calcul (ici une division) ?
Voici ma formule actuellement :
ActiveCell.FormulaR1C1 = "=GoogleAdsense!R[48]C/'testmacro'!R[-27]C"
Range("B40").Select
Je souhaite remplacer R[48]C par la dernière cellule non vide de ma colonne C.
Avez-vous des solutions ?
2 réponses
-
bonjour,
tout d'abord , la recherche de la dernière ligne proposée par Morgothal ne fonctionne que pour Excel 2003 et antérieur
Pour la portabilité vers des versions supérieures, une possibilité est d'écrire:
Dim der_ligne As Long
der_ligne = Range("C" & Rows.Count).End(xlUp).Row
(source : http://www.commentcamarche.net/faq/32220-vba-derniere-ligne-non-vide-toutes-versions)
par ailleurs, dans l'écriture de la formule:ActiveCell.FormulaR1C1 = "=GoogleAdsense!" & der_ligne & "/'testmacro'!R[-27]C"
, der_ligne ne contient que le N° de ligne et non pas les coordonnées de la cellule.
Il faut modifier comme suit:ActiveCell.FormulaR1C1 = "=GoogleAdsense!C" & der_ligne & "/'testmacro'!R[-27]C"
Bonne suite-
Bonjour Paf et merci pour ces précisions.
Voici la formule qui s'affiche dans ma cellule après l'application de la macro.
=GoogleAdsense!$DQ:$DQ/testmacro!B13
or c'est bien la dernière cellule de la colonne C que je souhaite.
Y-a t'il une autre expression a ajouter ?
Je te remercie d'avance pour ton retour.
-
-
Bonjour,
on peut récupérer la dernière ligne non-vide avecder_ligne = Sheets("GoogleAdsense").Range("C65536").End(xlUp).RowEt la formule devient :ActiveCell.FormulaR1C1 = "=GoogleAdsense!" & der_ligne & "/'testmacro'!R[-27]C"
-------------------
Cordialement,
Clément
