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

Remplir automatiquement une cellule en fonction d'une mfc ou d'un valeur

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

Niquido

XLDnaute Junior
Bonjour à tous,

Mon soucis je souhaite avoir dans ma colonne en jaune le numéro de la semaine qui suis ma mise en forme noire sur chaque ligne.
Si il n'y en à pas mettre TBP
Voir fichier joint pour mieux comprendre

Si vous trouvez une solution sans utiliser la mise en forme de mes cellules en noire ==> il faut en gros prendre la dernière semaine + 1 après la dernière valeur différentes de 0

Résolution par macro ou non au choix

Par avance merci et dsl pour les explication louches!!!
n'hésitez pas à m'en demander plus
 

Pièces jointes

Trier par date Trier par votes
Re : Remplir automatiquement une cellule en fonction d'une mfc ou d'un valeur

Bonsoir niquido,

Je ne sais pas si on peut qualifier de "louches" tes explications ... mais peu claires, ça c'est sûr 😱

Avec ce que j'ai cru comprendre, essaie, en D3:
Code: 
=SI(SOMME($E3:$J3)=0;"TBP";"CW"&INDEX($A$1:$J$1;1;MAX(SI($E3:$J3>0;COLONNE($E3:$J3)))+1))
Attention, valider avec Ctrl+Shift+Enter, puis recopier vers le bas
 
Vote positif 0 Vote négatif
Re : Remplir automatiquement une cellule en fonction d'une mfc ou d'un valeur

Bonjour,

Une piste en VBA sans utilisation des MFCs (on supprime donc toutes les "Mises en Forme Conditionnelles").
Copiez le code suivant dans la fenêtre de code de la feuille concernée.
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Plage As Range
Dim R As Range
Dim C As Range
Dim Semaine As Range
Dim i&
Dim k&
Dim numLig&
'---
Set Plage = Range(Cells(3, 5), Cells([a65536].End(xlUp).Row, [iv1].End(xlToLeft).Column))
Set R = Application.Intersect(Target, Plage)
If R Is Nothing Then Exit Sub
'---
Plage.Interior.Color = xlNone
For i& = 1 To Plage.Rows.Count
  Set R = Range(Plage.Cells(i&, 1), Plage.Cells(i&, Plage.Columns.Count))
  numLig& = R.Row
  Set C = R
  '---
  On Error Resume Next
  For k& = C.Columns.Count To 1 Step -1
    If C(1, k&) = 0 Then
      Set C = C.Resize(1, k& - 1)
      If Err <> 0 Then
        Set C = Nothing
        Err.Clear
        Exit For
      End If
    Else
      Exit For
    End If
  Next k&
  '---
  If C Is Nothing Then
    Range("d" & numLig& & "") = "TBP"
  Else
    C.Interior.Color = vbBlack
    Set Semaine = Cells(1, C.Columns.Count + 4).Offset(0, 1)
    Range("d" & numLig& & "") = "CW" & CStr(Semaine)
  End If
  On Error GoTo 0
Next i&
End Sub
Chaque changement dans la plage concernée (E3:J9 dans votre exemple) déclenche la procédure évènementielle.
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Remplir automatiquement une cellule en fonction d'une mfc ou d'un valeur

Merci bien ça marche !!!

J'ai bien fait attention à faire ce que tu m'a dis pour valider la formule mais juste pour info personnel ça fait quoi exactement ?
 
Vote positif 0 Vote négatif
Re : Remplir automatiquement une cellule en fonction d'une mfc ou d'un valeur

Bonjour Niquido, PMO2,
Niquido à dit:
J'ai bien fait attention à faire ce que tu m'a dis pour valider la formule mais juste pour info personnel ça fait quoi exactement ?
Cliquez pour agrandir...

- positionne-toi en D8 (où tu as collé la formule)
- clique dans la barre de formule. Les accolades qui étaient apparues quand tu as fait Ctrl+Shift+Enter vont disparaître ... ne te tracasse pas!
- sélectionne cette partie de la formule: SI($E8:$J8>0;COLONNE($E8:$J8)) attention à bien sélectionner les parenthèses aussi
- appuie sur F9: tu devrais voir apparaître une petite matrice, composée de FAUX et l'un ou l'autre chiffre. Dans la plage de E8 à J8, Excel repère les cellules dont la valeur est supérieure à 0 et, pour les cellules où cette condition est vérifiée, il retourne le ou les n° de colonne. En D8, ça devrait donner {FAUX.6.FAUX.8.FAUX.FAUX} 6 et 8 sont les deux colonnes (F et H) où les valeurs sont >0
- appuie sur Esc, pour ne pas "bousiller" ta formule (faute de quoi, la petite matrice de FAUX et de chiffres figurerait en tant que telle dans la formule, en remplacement de la portion de formule évaluée)
-Comme tu veux la dernière colonne non-vide, MAX donne le 8, dans le cas présent (si tu veux t'en convaincre, sélectionne MAX(SI($E8:$J8>0;COLONNE($E8:$J8))), appuye sur F9 ... et n'oublie pas de faire Esc, quand tu auras vu apparaître le '8'!). Le '+1' permet de donner le n° de colonne qui suit!
-Enfin, Index renverra le contenu de la colonne 9, dans la plage A1:J1

L'explication est suffisamment complète? 🙂
 
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
XL 2016 Afficher un "X" dans un tableau semaine en fonction d'un récurrence Horaire
Réponses
2
Affichages
307
nicobush
N
Y
  • Résolu(e)
XL 2013 Colorier une cellule en fonction d'une valeur
Réponses
3
Affichages
658
Yvan1
Y
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
821
Nel'
N
  • Suggestion Suggestion
Texte Définir les propriétés d'une cellule ou d'un Range (couleurs, fonte, ..., valeur) dans une formule
Réponses
0
Affichages
1 K
Dudu2
J
  • Question Question
XL 2019 mettre une couleur en arrière plan dans une cellule en fonction de la valeur d'une autre cellule
Réponses
1
Affichages
821
JLR67
J
A
  • Question Question
XL 2016 Masquer une ligne ou une colonne en fonction de la valeur d'une cellule...
Réponses
11
Affichages
1 K
job75
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
  • Question Question
XL 2016 Copier la mise en forme d'une cellule MFC
Réponses
1
Affichages
1 K
AtTheOne
A
  • Résolu(e)
Microsoft 365 Remplir une cellule en fonction de la valeur d'une autre cellule
Réponses
8
Affichages
4 K
AlizeL
A
C
  • Résolu(e)
Microsoft 365 SI remplissage cellule (MFC) ALORS transposer la réponse dans une colonne
Réponses
3
Affichages
2 K
Chaine
C
H
  • Question Question
XL 2019 Récupérer une valeur en abscisse et ordonnée d'un tableau en fonction de la valeur dans le tableau, qui elle dépend d'une autre cellule.
Réponses
8
Affichages
2 K
yal
Y
  • Résolu(e)
XL 2019 Copier une ligne en fonction d'une de la valeur d'une cellule dans une autre feuille.
Réponses
6
Affichages
1 K
Zhavina
Z
  • Résolu(e)
Microsoft 365 Afficher valeur d'une cellule d'un classeur en fonction d'une autre cellule d'un autre classeur
Réponses
8
Affichages
2 K
Zaka67
Z
  • Question Question
XL 2010 Effacer le contenu d'une cellule, si une autre cellule à une valeur de 0 ou est vide.
Réponses
7
Affichages
2 K
DAVID-44-
J
  • Question Question
Microsoft 365 Récupération de lignes de plusieurs feuille sur une seule en fonction d'une valeur de cellule
Réponses
6
Affichages
2 K
jireu
J
L
  • Résolu(e)
XL 2019 Définir le format d'une MFC en fonction de la mise en forme d'une cellule existante.
Réponses
2
Affichages
1 K
ludovicL
L
B
  • Résolu(e)
XL 2016 Selectionner date la plus proche au supérieur de la date d'aujourd'hui
Réponses
5
Affichages
1 K
babacool22
B
A
  • Question Question
Microsoft 365 Masquage conditionnel de lignes en fonction d'une valeur atteinte, ou si une cellule est vide
Réponses
2
Affichages
962
Averti
A
Z
  • Question Question
XL 2019 Rapatriement de donnée d'un onglet vers un autre onglet en fonction d'une valeur identique
Réponses
2
Affichages
2 K
Zlataa21
Z
  • Question Question
Microsoft 365 Reporter une cellule en fonction de la valeur d'une autre
Réponses
6
Affichages
3 K
Nico888
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…