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

XL 2019 Affecter une valeur à une cellule en fonction de la valeur de la cellule précédente

  • Initiateur de la discussion Initiateur de la discussion AlexC
  • Date de début Date de début
A

AlexC

XLDnaute Nouveau
Bonjour à tous,

Je suppose que ma question est assez basique mais je n'arrive pas à trouver de réponse satisfaisante sur internet...
Comme indiquer dans le titre j'aimerais affecter une valeur à une cellule en fonction de la valeur de la cellule précédente. Par exemple, si une cellule contient la lettre "E", j'aimerais que les 5 cellules qui suivent contiennent elles aussi la lettre "E". Si une cellule contient la lettre "D", j'aimerais que les 20 cellules qui suivent contiennent la lettre "D".

Existe-t-il une formule pour réaliser cela ?

Merci d'avance et bonne journée
 
Solution
Bonjour AlexC, GALOUGALOU,

Voyez le fichier joint et cette macro dans le code de la feuille :
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub 'si sélections multiples
Dim a, b, i As Variant
a = Array("D", "E") 'à adapter
b = Array(20, 5) 'à adapter
i = Application.Match(Target, a, 0)
If IsNumeric(i) Then Target.Resize(, b(i - 1)) = a(i - 1)
End Sub
On peut entrer des lettres en minuscules.

A+
Trier par date Trier par votes

job75

XLDnaute Barbatruc
Vous avez raison.

Chez moi sur le fichier du post #21 la revalidation en A1 (ou d'une autre cellule) suffit pour le recalcul des formules.

Mai si j'efface puis remets la formule en B1 de la feuille Références en effet ça ne suffit plus.

J'avoue ne pas comprendre le pourquoi de ces comportements.

Il faut alors entrer 2021 en A1 puis revenir en 2020 pour que le recalcul des formules se fasse.

On pourrait éviter ce va et vient en rendant volatile la fonction MFC :
VB: 
Function MFC(cel As Range, feries As Range) As Double
Application.Volatile
'-----'
Mais je ne le recommande pas car alors toutes les formules se recalculent quand on modifie une cellule quelconque du fichier et comme je l'ai dit cela prend 1,5 seconde.
 
Vote positif 0 Vote négatif
A

AlexC

XLDnaute Nouveau
J'avais justement essayé de passer en 2021 puis de revenir en 2020 mais rien ne changeait....

Il faut donc que j'insère votre complément de VBA c'est bien ça ?

Merci encore de prendre de votre temps pour m'aider !
 
Vote positif 0 Vote négatif
A

AlexC

XLDnaute Nouveau
Si j'ai bien compris votre post, vous ne conseillez pas cette méthode car le temps de recalcule est long. Toutefois, le temps de calcul n'est pas vraiment un problème dans mon cas, il faut seulement que la formule fonctionne...

J'ai vérifié que mes formules soient bien en automatiques, c'est le cas.
J'ai vérifié la liaison en B1, elle est faite.
J'ai revalidé A1, rien ne se produit….
J'ai essayé en rajoutant votre complément de VBA rien de se produit non plus...

Pourtant j'ai seulement modifié cette partie :
a = Array("E", "D", "P", "G") 'modifiable
b = Array(5, 20, 20, 5) 'modifiable
c = Array(0.6, 0.25, 0.4, 0.5) 'modifiable

Mais la formule tourne comme si aucun de mes changements n'a été pris en compte…

Je comprends bien que je dois vous ennuyer avec toutes mes questions et j'en suis réellement désolée… je pensais pouvoir obtenir le calendrier qu'on m'a demandé de réaliser puisqu'on était si prêt du but.. mais si même vous ne comprenez pas "le pourquoi de ces comportements" je ne sais pas comment je pourrais comprendre cela toute seule ^^' tant pis...
 
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Bonsoir AlexC,

Vous jouez les apprentis sorciers, ce n'est plus du tout le même fichier :

- la MFC sur la plage C7:ND50 n'est pas du tout correcte

- la formule en ligne 50 n'est pas du tout celle que j'ai donnée.

Donc je laisse tomber, j'ai résolu le problème au post #21 ça suffit.

A+
 
Vote positif 0 Vote négatif
A

AlexC

XLDnaute Nouveau
Re bonjour,

Au temps pour moi, j'avais dû en effet faire une erreur en reprenant votre fichier du post #21. J'ai recommencé mes modifications en repartant de votre post et tout fonctionne correctement ! Je ne sais pas ce que j'avais fait....

Désolé 1000 fois et merci énormément du temps que vous avez passé pour m'aider !

J'arrête donc officiellement de vous embeter

Bonne journée et prenez soin de vous en cette période difficile !
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

I
  • Résolu(e)
Microsoft 365 Exécuter une macro en fonction de la valeur d'une cellule
Réponses
12
Affichages
385
iliess
I
J
  • Question Question
XL 2010 définir un nom de cellule en fonction de la valeur d'une autre
Réponses
12
Affichages
848
jojo4738
J
M
  • Question Question
XL 2010 Supprimer les doublons contenant une valeur zéro avec trois conditions
Réponses
2
Affichages
470
Mody200
M
V
  • Question Question
XL pour MAC Changer de cellule automatiquement après avoir entré une valeur dans la cellule.
Réponses
7
Affichages
611
TooFatBoy
G
  • Question Question
XL 2016 Comment concaténer plusieurs dates (provenant d'une formule) de différentes cellules en une seule cellule?
Réponses
4
Affichages
240
JHA
J
  • Résolu(e)
Microsoft 365 Remplir une cellule avec la valeur d'une autre sous condition
Réponses
2
Affichages
293
Droopyougo
S
  • Résolu(e)
Microsoft 365 [RESOLU] Excel : Calcul de prix en fonction d'un type
Réponses
4
Affichages
228
JHA
J
E
  • Résolu(e)
Microsoft 365 Ajouter dans TS en fonction valeur de cellule
Réponses
8
Affichages
340
vgendron
L
  • Résolu(e)
Microsoft 365 Aide : Colorer une cellule en fonction de sa valeur
Réponses
2
Affichages
344
Leo98
L
P
  • Résolu(e)
XL pour MAC Problème de changement de couleur de la valeur d'une cellule
Réponses
2
Affichages
277
pvander
P
P
  • Question Question
XL 2016 Automatiser une formule RECHERCHEV avec un nom de fichier différent en fonction du résultat d'une cellule
Réponses
10
Affichages
725
Phil69970
P
  • Résolu(e)
Microsoft 365 Rechercher une valeur d'une cellule à partir d'un nom de feuille
Réponses
2
Affichages
341
paulng
P
O
  • Résolu(e)
Microsoft 365 Générer une heure aléatoire entre 2 heures données. Mais sans les secondes
Réponses
8
Affichages
309
Olihoes
O
C
  • Résolu(e)
Microsoft 365 Problème VBA lors de l'affichage de ligne masquée
2
Réponses
21
Affichages
685
Chris Linefield
C
W
  • Question Question
XL 2016 Mise en forme conditionnelle des cellules
Réponses
2
Affichages
247
mapomme
D
  • Question Question
XL 2016 Exporter au format PDF dans un dossier existant les colonnes ciblées et en filtrant les lignes qui contiennent une valeur quelconque.
Réponses
6
Affichages
663
Phil69970
B
  • Résolu(e)
Microsoft 365 Fonction cellule en décalage
Réponses
9
Affichages
555
BOILEAU
B
N
  • Question Question
XL 2013 Fixer la valeur d'une cellule saisie en fonction d'un nombre de décimal défini
Réponses
6
Affichages
283
mapomme
  • Question Question
XL 2019 NB.SI en faisant le distinguo entre majuscule et minuscule
Réponses
4
Affichages
417
Julie-F
C
  • Question Question
Microsoft 365 Est-il possible de concaténer dans une formule ?
Réponses
4
Affichages
365
Cougar
C
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…