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

XL 2016 si cellule =

  • Initiateur de la discussion Initiateur de la discussion judoka0209
  • 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 !

judoka0209

XLDnaute Occasionnel
Bonjour je voudrais une petite aide sur ma formule je voudrais integrer ça
=si([Planning_EP.xlsm]ep2019!$C$6=6 alors

Sub ep2019_33100()
'equipe A
Dim plage1 As Range, plage2 As Range, jour, c As Range, j As Variant
Set plage1 = [[Planning_ep.xlsm]ep2019!F7:BE7]
Set plage2 = [[Planning_ep.xlsm]ep2019!F2:BE2] 'ligne 2 et non pas 5
jour = Array("jeu") 'liste à adapter
With Application
.ScreenUpdating = False
Range("C14:NC14").ClearContents
For Each c In Range("C14:NC14")
If UCase(c.Offset(-9)) = "A" Then 'M,A,N
If IsNumeric(.Match(c.Offset(-12), jour, 0)) Then
i = .Match(c.Offset(-11), plage2)
If IsNumeric(i) Then
If UCase(plage1(i)) = "A" Then
c = 6 'equipe
c.Select
Selection.Interior.Color = 255
Selection.Font.ThemeColor = xlThemeColorDark1
End If
End If
End If
End If
Next
End With
sinon vide
merci
 
Dernière édition:
- 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éponses
4
Affichages
213
Réponses
5
Affichages
293
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…