Placer une valeur dans la dernière ligne non vide

Résolu/Fermé
Signaler
Messages postés
167
Date d'inscription
mercredi 18 avril 2018
Statut
Membre
Dernière intervention
24 mars 2020
-
Messages postés
167
Date d'inscription
mercredi 18 avril 2018
Statut
Membre
Dernière intervention
24 mars 2020
-
bonjour

comment peut on placer une valeur dans la dernière ligne non vide ? (par VBA)

en effet je voudrai placer ma valeur de :

p1 dans la dernière cellule non vide cells(i,18),dp1 dans cells(i,19), v1 dans cells(i,20), v2 dans cells(i,21), p1 dans cells(i,22)

sachant que "i" c'est la ligne , elle commence de 7


j'ai vraiment besoin de votre aide

merci d'avence

1 réponse

Messages postés
16122
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
1 décembre 2021
1 563
Bonjour,

deniere cellules non vide (ici colonne F)

derlig = Range("F" & Rows.Count).End(xlUp).Row
Messages postés
16122
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
1 décembre 2021
1 563
Re,

Vous vouliez la premiere cellule vide pas la derniere cellule non vide...............................
Messages postés
167
Date d'inscription
mercredi 18 avril 2018
Statut
Membre
Dernière intervention
24 mars 2020

re

merci
pour linstant vous mavez beaucoup aide
jai tous ce quil faut pour mon calcul

merci monsieur
Messages postés
167
Date d'inscription
mercredi 18 avril 2018
Statut
Membre
Dernière intervention
24 mars 2020

re

sil vous plait, j'ai une autre question ,

jai cree 2 tableau dans execl

le premier il commence de la colonne B jusquq la colonne P, et le deuxieme tableau de la colonne R jusqua V

sachant que le nombre de ligne de ces 2 tableaux sont differents ( le tableau 1 contients plus de ligne que le 2 eme tableau)

ce que je veux faire c de recuperer la derniere cellule (V) non vide ,( qui se trouve dans le 2 eme tableau)

j'ai mis le code suivant :

y = Sheets("Feuil1").Cells.Find("*", Range("A1"), , , xlByRows, xlPrevious).Row 'retourne la dernière ligne non vide de la feuille Feuil1

valDerniereCel = Sheets("Feuil1").Cells(y, 14)

(et je crois que c vous qui me l'avez donne),

le probleme c que par exemple

le tableau 1 contient 10 ligne
le 2 eme tableau contient 2 ligne

quand je mis ce code, il recupere pas la derniere cellule non vide de 2 eme tableau

alors le resultat c toujour 0

merci
Messages postés
16122
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
1 décembre 2021
1 563
Re,

y = Sheets("Feuil1").Cells.Find("*", Range("A1"), , , xlByRows, xlPrevious).Row 'retourne la dernière ligne non vide de la feuille Feuil1 

(et je crois que c vous qui me l'avez donne),
Non, ceci donne le nombre de cellules non vide colonne A en partant de A1, si vous mettez A10, vous verrez la différence.....Mais toujours colonn e A

'recup derniere valeur colonne V
 With Worksheets("feuil1")       'nom de feuille a adapter...........................
        x = .Range("V" & .Range("V" & Rows.Count).End(xlUp).Row)
End With


derniere ligne/colonne utilisée de la feuille
derlig = Cells.Find("*", , , , xlByRows, xlPrevious).Row
dercol = Cells.Find("*", , , , xlByColumns, xlPrevious).Column
Messages postés
167
Date d'inscription
mercredi 18 avril 2018
Statut
Membre
Dernière intervention
24 mars 2020

bonjour

merci beaucoup