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

Afficher le résultat de la cellule inférieure !

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion sebmaljean
  • Date de début Date de début

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
S

sebmaljean

XLDnaute Nouveau
Bonjour à tous,

je n'arrive pas à faire ma formule (Excel 2010), après plusieurs heures passées dessus ! :

Il s'agit d'un classeur avec 2 feuilles.

Feuil 1 : une liste de critères sur 50 lignes qui est fixe; mais pas forcément sur les même lignes (j'actualise chaque mois cette liste).
En effet; selon le mois, en dessous d'une (ou plusieurs) lignes (critère), une ligne "commentaire" apparaît

Ex sur la feuil 1 (le 1er mois):
A2: Présentation générale
A3: Affichage obligatoire
A4: Commentaire blablabla
A5: Publicité globale

le 2e mois:
A2: Présentation générale
A3: Affichage obligatoire
A4: Publicité globale
A5: Commentaire blablabla

sur la feuil2, j'ai la liste de tous les critères qui est fixe de A2 à A52 (présentation générale/affichage obligatoire/Publicité globale...) et je souhaite qu'en B2 à B52; si commentaire il y a; il s'affiche à coté du critère

Ex : 1er mois:
A2: Présentation générale B2: (rien)
A3: Affichage obligatoire B3: Commentaire blablabla
A4: Publicité globale B4: (rien)

le 2e mois:
A2: Présentation générale B2: (rien)
A3: Affichage obligatoire B3: (rien)
A4: Publicité globale B5: Commentaire blablabla

voila... le but est que le commentaire [qui s'affiche dans la feuil1 sur la ligne sous le critère] s'affiche en face du critère de façon automatique chaque mois en feuil2...

Je vous remercie de l'aide que vous pourrez m'apporter.

Si je ne suis pas précis; dites le moi svp 🙂

S.
 
Trier par date Trier par votes
Re : Afficher le résultat de la cellule inférieure !

Bonjour sebmaljean, et bienvenue sur le forum

il y a peut-être une solution à ton problème en cliquant ci-dessous au point 3C
Lien supprimé

à+
Philippe
 
Vote positif 0 Vote négatif
Re : Afficher le résultat de la cellule inférieure !

Bonsoir sebmaljean, salut Philippe 🙂

On peut supposer que les textes des cellules avec commentaire contiennent le mot "Commentaire", non ??

Alors entrer cette formule en B2 de Feuil2 :

Code: 
=SI(ESTNUM(CHERCHE("Commentaire";INDEX(Feuil1!A:A;EQUIV(A2;Feuil1!A:A;0)+1)));INDEX(Feuil1!A:A;EQUIV(A2;Feuil1!A:A;0)+1);"")
et la tirer vers le bas.

Fichier joint - vous auriez pu le faire, non ??

A+
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Afficher le résultat de la cellule inférieure !

Bonsoir le fil, le forum,

Cette macro (Alt+F11) permet de renseigner entièrement Feuil2 (colonne A + Colonne B) :

Code: 
Sub Transfert()
Dim tablo, i As Long, plage As Range
tablo = Range("A2:B" & [A65536].End(xlUp).Row + 1)
For i = 1 To UBound(tablo) - 1
  If InStr(tablo(i + 1, 1), "Commentaire") Then
    tablo(i, 2) = tablo(i + 1, 1)
    tablo(i + 1, 1) = ""
  Else
    tablo(i, 2) = ""
  End If
Next
With Feuil2.[A2:B2].Resize(UBound(tablo)) 'Feuil2 = CodeName
  .Parent.[A2:B65536].ClearContents 'RAZ
  .Value = tablo
  Set plage = .Columns(1).SpecialCells(xlCellTypeBlanks)
  Intersect(plage.EntireRow, .EntireColumn).Delete xlUp
  .Parent.Activate
End With
End Sub
Fichier joint.

A+
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Afficher le résultat de la cellule inférieure !

Bonjour le fil, le forum,

D'après le post #1 il y a peu de lignes à traiter.

Voici donc dans ce fichier (2) une solution entièrement par formules.

Il y a des formules matricielles mais elles sont dans les noms définis.

Donc en colonne A et B de Feuil2 pas besoin de validation matricielle.

A+
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Afficher le résultat de la cellule inférieure !

Re,

Pour être complet j'ai revu la solution VBA, de manière à conserver les cellules vides de la colonne A :

Code: 
Sub Transfert()
Dim tablo, i As Long, plage As Range
tablo = Range("A2:B" & [A65536].End(xlUp).Row)
For i = 1 To UBound(tablo) - 1
  If InStr(tablo(i + 1, 1), "Commentaire") Then
    tablo(i, 2) = tablo(i + 1, 1)
    tablo(i + 1, 1) = "#N/A"
  Else
    tablo(i, 2) = ""
  End If
Next
tablo(i, 2) = "" 'dernière ligne
With Feuil2.[A2:B2].Resize(UBound(tablo)) 'Feuil2 = CodeName
  .Parent.[A2:B65536].ClearContents 'RAZ
  .Value = tablo
  On Error Resume Next 'si aucun commentaire
  Set plage = .Columns(1).SpecialCells(xlCellTypeConstants, 16)
  Intersect(plage.EntireRow, .EntireColumn).Delete xlUp
  .Parent.Activate
End With
End Sub
Fichier (2).

A+
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Afficher le résultat de la cellule inférieure !

Merci beaucoup, cette formule fonctionne très bien !

Job75, merci pour tout ceci;
pour info; le travail avec les noms définis ne fonctionne pas; car il se peut qu'il y ait plusieurs lignes de commentaires à la suite.

Ce que je ne savais pas faire; c'est le +1 dans la formule index/equiv pour "lire" la case inférieure.

Bonne journée; et bravo !
 
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

R
  • Résolu(e)
XL 2019 détection de dates sur la base de 2 tableaux
Réponses
2
Affichages
610
rh.finances
R
K
  • Question Question
XL 2019 [RESOLU] Ne pas afficher le résultat de la formule si rien dans colonne
Réponses
2
Affichages
1 K
Kris1775
K
D
  • Question Question
XL 2016 Suppression d'une valeur d'une cellule par comparaison avec une autre (entre 2 colonnes)
Réponses
8
Affichages
3 K
didcac
D
N
  • Question Question
Microsoft 365 Transposer lignes et colonnes
Réponses
4
Affichages
1 K
Niet
N
V
  • Résolu(e)
Microsoft 365 Afficher filtres appliqués par macro dans la cellule B3 directement et non par F5 puis Réinitialiser
Réponses
12
Affichages
1 K
VirginieG
V
L
  • Résolu(e)
XL 2016 Afficher le mois de la date la plus récente d'un tableau
Réponses
2
Affichages
902
loicoss
L
B
  • Question Question
XL 2016 le combobox n'affiche pas toute la ligne de résultat après sélection
Réponses
1
Affichages
2 K
bastringue
B
T
  • Question Question
XL 2019 RESOLU : obtenir une valeur provenant d'une requête SQL dans une cellule
Réponses
4
Affichages
2 K
tibofo
T
J
  • Question Question
XL 2016 Cumuler le contenu de 3 cellules en lignes en une seule cellule
Réponses
9
Affichages
1 K
Jo Mortu
J
J
  • Question Question
XL 2016 Recherche de code VBA pour macro complexe entre fichier
Réponses
2
Affichages
1 K
Justine B
J
C
  • Question Question
Microsoft 365 Affichage qui fluctue et gene la sélection de cellule
Réponses
1
Affichages
976
capc93
C
H
  • Question Question
Microsoft 365 Incrémenter une variable en fonction de la ligne où se trouve le bouton de commande
Réponses
1
Affichages
2 K
Staple1600
A
  • Question Question
Lire une colonne et remplir une autre en fonction du contenu de la 1ère
Réponses
2
Affichages
1 K
Ark30
A
E
  • Question Question
XL 2013 Comparaison de 2 colonnes sur 4 lignes systématiquement
Réponses
3
Affichages
895
Eric32000
E
S
  • Question Question
Cellule contient l’un des mots de la liste
Réponses
3
Affichages
942
Modeste
R
  • Question Question
Ajustement automatique de la hauteur de ligne en fonction du résultat d'une formule
Réponses
3
Affichages
5 K
Watson1er
W
K
  • Question Question
Somme des valeurs max de chaque plage de date
Réponses
8
Affichages
2 K
djidji59430
Z
  • Question Question
Afficher le résultat d'une déduplication
Réponses
5
Affichages
1 K
Bebere
B
W
  • Question Question
Multi concatenation de 2 listes entrent elles
Réponses
2
Affichages
633
Yaloo
Y
G
  • Question Question
affichage de la valeur d'une cellule par clic sur case d'option dans userform
Réponses
5
Affichages
2 K
gloub
G
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…