Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Fonction range sur une plage de cellule - dernière cellule non vide

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
T

Tahititin

XLDnaute Occasionnel
Bonjour à tous,

Je travaille acuellement sur un fichier excel permettant de synthètiser le contenu de plusieurs onglets (tous identiques) sur un onglet unique. Mon soucis est que sur ces onglets servant de base, j'ai un champ "indice"' (A33 à A36) qui peut aller de 0 à 3 qui est rempli (ou pas) sur les colonnes correspondantes (B33 à B36 et H33 à H36) en fonction des demandes. je ne parvient pas, dans l'onglet synthèse, à faire en sorte qu'il me selection le dernier indice complété.
Je vous joins le fichier pour mieux comprendre

Merci d'avance pour votre aide
 

Pièces jointes

Trier par date Trier par votes
Re : Fonction range sur une plage de cellule - dernière cellule non vide

Bonjour Tahititin,

Dans Worksheet_Activate :

Code: 
'---
            lig = 33 + Application.Max(Sheets(x).Range("A33:A36"))
            Range("P" & x) = Sheets(x).Range("A" & lig) 'Indice
            Range("Q" & x) = Sheets(x).Range("B" & lig) 'Commentaire MOE'
            Range("R" & x) = Sheets(x).Range("H" & lig) 'Suite à donner'
'---
A+
 
Vote positif 0 Vote négatif
Re : Fonction range sur une plage de cellule - dernière cellule non vide

Bonjour Job75
et merci pour ce retour. cela ne fonctionne cependant pas comme je le voudrais. Il me prends bien la dernière ligne non vide de la colonne indice 'A' sur les onglets ('P' sur la synthèse) par contre cela ne fonctionne pas sur les colonnes 'B' et 'H' des onglets respectivement 'Q' et 'R' de la synthèse. J'ai cru que cela était du à la déclaration de valeur 'Lig' qui "tape" uniquement sur A33 à A36 et non sur les autres colonnes... j'ai donc essayé ça :

------
lig = 33 + Application.Max(Sheets(x).Range("A33:A36"))
Range("P" & x) = Sheets(x).Range("A" & lig) 'Indice
lid = 33 + Application.Max(Sheets(x).Range("B33:B36"))
Range("Q" & x) = Sheets(x).Range("B" & lid) 'Commentaire MOE'
lic = 33 + Application.Max(Sheets(x).Range("H33:H36"))
Range("R" & x) = Sheets(x).Range("H" & lic) 'Suite à donner'
------

mais ça ne fonctionne pas j'ai toujours dans la synthse la première ligne (B33 et H33) qui s'affiche.


Merci de ton aide
 
Vote positif 0 Vote négatif
Re : Fonction range sur une plage de cellule - dernière cellule non vide

Re,

Pas très cohérent ce que vous voulez faire.

Mais si vraiment vous voulez la dernière valeur de chaque colonne A B H :

Code: 
Dim x As Byte, c As Range
'---
            Range("P" & x).Resize(, 3) = "" 'RAZ
            Set c = Sheets(x).Range("A33:A36").Find("*", , xlValues, , , xlPrevious)
            If Not c Is Nothing Then Range("P" & x) = c 'Indice
            Set c = Sheets(x).Range("B33:B36").Find("*", , xlValues, , , xlPrevious)
            If Not c Is Nothing Then Range("Q" & x) = c 'Commentaire MOE
            Set c = Sheets(x).Range("H33:H36").Find("*", , xlValues, , , xlPrevious)
            If Not c Is Nothing Then Range("R" & x) = c 'Suite à donner
'---
A+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
975
Nel'
N
X
  • Question Question
XL 2016 Gestion RH (renvoie de la valeur de la premier cellule d'une liste quand en fin de liste la cellule est vide)
Réponses
6
Affichages
903
xsara63
X
T
  • Résolu(e)
XL 2016 problème d'apparition automatique non voulue d'une série de date dans une colonne de tableau
Réponses
3
Affichages
536
therse
T
K
  • Question Question
XL 2016 Recherche première et dernière cellule sur une plage avec récupération d'une valeur sur colonne
Réponses
4
Affichages
705
kbimbim
K
L
  • Question Question
Microsoft 365 Report de valeur d'une cellule dans une autre cellule en fonction de la dernière cellule non vide d'une ligne
Réponses
1
Affichages
1 K
sylvanu
N
  • Question Question
XL 2016 Renommer une feuille en fonction d'une cellule d'autre feuille
Réponses
10
Affichages
1 K
Nando71
N
S
  • Résolu(e)
Microsoft 365 VBA pour copier/coller une plage de cellule dans un autre onglet en fonction de la date
Réponses
8
Affichages
1 K
Sylvain. B
S
C
  • Résolu(e)
XL 2013 Copier une plage d’une feuille, coller sur une autre feuille en utilisant la 1re cellule non vide
Réponses
5
Affichages
958
Hasco
S
  • Résolu(e)
Microsoft 365 Effacer une même plage de cellule sélectionnée sur plusieurs feuille
Réponses
6
Affichages
1 K
ShrekL
S
L
  • Résolu(e)
Microsoft 365 Macro copie de lignes entières d'un onglet général vers onglets détaillés à partir d'une colonne oui/non
Réponses
9
Affichages
2 K
job75
B
  • Question Question
Microsoft 365 Ajouter des bordures en fonction d'une autre cellule non vide et un fond de couleur une ligne sur 2
2
Réponses
26
Affichages
2 K
Staple1600
V
  • Question Question
Microsoft 365 lier une ligne sur la première cellule de la ligne
Réponses
0
Affichages
772
Varona Rodriguez
V
P
  • Résolu(e)
XL 2019 Copier-coller une plage de cellule fixe sur une autre feuille
Réponses
6
Affichages
1 K
Pieerre69
P
C
  • Question Question
XL 2010 Faire varier la cellule en fonction de la date dans une fonction Si
Réponses
4
Affichages
1 K
CASPE
C
A
  • Question Question
Outil de suivi de demandes
Réponses
0
Affichages
7 K
Arpopa
A
K
  • Question Question
Selectionner une plage jusqu'a la dernière cellule non vide dans une fonction
Réponses
14
Affichages
13 K
Karlito91170
K
T
  • Question Question
Sur une plage de cellule défini, connaitre les chiffres non inclus ....
Réponses
5
Affichages
835
CISCO
D
  • Question Question
XL 2013 Sélectionner une plage jusqu'a la dernière cellule non vide
Réponses
4
Affichages
3 K
desmonts
D
M
  • Question Question
Sélection plage de cellule discontinue - cellules verrouillées non sélectionnées
Réponses
0
Affichages
1 K
Manuz
M
P
  • Question Question
Sélectionner une place à partir de la dernière cellule non vide d'une colonne
Réponses
5
Affichages
1 K
HachemCress
H
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…