Formule et Derniere ligne non vide d'une colonne
Bonjour,
Débutant en Excel, je cherche une solution a un petit problème.
Je souhaite inscrire dans la cellule H8 une formule dépendant de la dernière cellule non vide d'une colonne.
En recherchant sur internet, je trouve des solutions pour étendre une formule sur toute une colonne, ce qui n'est pas ce qui m’intéresse.
pour cela, j'ai
' recherche de la derniere ligne non vide du fichier
Dim DernLigne As Long
DernLigne = Range("A" & Rows.Count).End(xlUp).Rowmon soucis vient de l’intégration de la variable "DernLigne" a ma formule
Range("H8").Formula = "=MIN(C9, C & DernLigne))"qui ne fonctionne pas évidement
idem
Range("H8").Formula = "=MIN("C9:C" & DernLigne)"Cela doit pas être compliquer, mais je cale.
Merci par avance, de vos solutions.
bonjour
pour la derniere cel si texte
=equiv("z*z; la colonne)
si chiffre
= equiv(9^9;lacolonne )
si les 2 cas
=sommeprod(max((la plage<>"")*(ligne(de la plage)))
si pas ça ????
cordialement
merci de te pencher sur mon pb,
en recherchant EQUIV, je tombe sur le lien
http://boisgontierjacques.free.fr/pages_site/equivindex.htm
désolé, mais je ne vois pas le rapport avec mon pb
une solution "brute" serait
Range("H8").Formula = "=MIN(C9, C65535)"mais je préférerais intégrer la variable "DernLigne" au lieu de prendre la colonne entiere.
re
as-tu essayé =min(range"c9:c"&derlign&")
bonjour,
avec
Range("H8").Formula = "=min(range"C9:C"&DernLigne&")"j'ai l'erreur : "Erreur de syntaxe"
avec
Range("H8").Formula = "=min(Range("C1:C" & DernLigne))"idem
Bonjour,
Tu as beaucoup de cellules sur la dernière ligne ?
car derligne aura toujours pour valeur le numéro de la ligne .
ce code pas très propre te donnera les valeurs de la dernière ligne enregistrée avec leur valeur :
x = Sheets("Feuil1").Range("A65530").End(xlUp)
y = Sheets("Feuil1").Range("B65530").End(xlUp)
Z = Sheets("Feuil1").Range("C65530").End(xlUp)
ou x prendra la valeur de la dernière cellule non vide de la colonne A, y de de la colonne B et z de C, ensuite tu adaptes ta formule avec
Range("H8").Formula = "=min(range"C9:C"& x & y & z") et plus bien sûr ...
Cdlt
Bonjour civo,
avec tes indications, je me retrouve donc avec
Range("H8").Formula = "=min(range"C9:C"& DernLigne")mais j'ai "erreur de syntaxe"
Non,
relis bien ce que j'ai écris, pour ta formule, tu as besoin des cellules de la dernière ligne non vide, nous sommes d'accord ?
si tu utilises derlign, celles-ci aura pour valeur le numéro de la dernière ligne non vide .
juste avant le code de ta formule, tu attribues les valeurs des cellules de la dernière ligne non vide avec :
x = Sheets("Feuil1").Range("A65530").End(xlUp) ' x sera donc égal à la dernière cellule non vide de la colonne A
y = Sheets("Feuil1").Range("B65530").End(xlUp) ' y sera donc égal à la dernière cellule non vide de la colonne B
z = Sheets("Feuil1").Range("C65530").End(xlUp) ' z sera donc égal à la dernière cellule non vide de la colonne C et ainsi de suite
Tu remplaces donc derlign par les valeurs attribuées à x y z etc ...
pour avoir un code dans ce type là : Range("H8").Formula = "=min(range"C9:C"& x & y & z etc ")
C'est un code vba et non une formule puisque dans ton premier post, le code copié est en vba (:
Cdlt
donc
si bien compris, je dois utiliser
Z = Sheets("Feuil1").Range("C65530").End(xlUp)
Range("H8").Formula = "=min(range"C9:C"& z")"j'obtiens : erreur "fin d'instruction attendu" (sur C9)
pour rappel, je veux, depuis ma macro, écrire en H8 la formule me donnant le minimum de la colonne C en commençant a ligne 9 et se terminant a la dernière ligne non vide (de la colonne C)
Sinon,
Range("H8").Formula = "=MIN(C9, C65535)"fonctionne
Tant mieux si ça fonctionne (:
Cdlt
Range("H8").Formula = "=MIN(C9, C65535)"Fonctionne
mais j'aurais voulu utiliser la variable "DernLigne"
Mais !!
Derligne aura pour valeur le numéro de la dernière ligne où il y a des données ni plus ni moins, dans quel but un numéro de ligne te sera utile ?
Range("H8").Formula = "=MIN(C9, C65535)"fonctionne
mais j'aurais préféré utiliser la variable "DernLigne"
désolé pour le double post
le numéro de la dernière ligne m'aiderait a trouve le minimum de la colonne C
de la ligne "9"
a la ligne "DernLigne"
Bon on va passer par l'exemple ce sera plus parlant met ce code
DernLigne = Range("A1048576").End(xlUp).Row
msgbox DerLigne
Bonne journée
ton code me donne une boite de dialogue vide
pardon j'ai fait une faute de frappe
DernLigne = Range("A1048576").End(xlUp).Row
msgbox DernLigne
Avec la faute de frappe en moins (:
effectivement dans
msgbox DernLignecela me donne le numéro de la dernière ligne non vide