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 ?
A voir également:
- Rechercher une cellule dans un calcul
- Rechercher ou saisir une url - Guide
- Rechercher une chanson - Guide
- Aller à la ligne dans une cellule excel - Guide
- Calcul km marche à pied gratuit - Télécharger - Sport
- Rechercher une image - Guide
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:
Il faut modifier comme suit:
Bonne suite
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
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.