Si cellule égale à
Bonjour j’ai poster aussi ce message sur le site Excel download
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
Salut Judoka,
Je trouve ta demande assez imprécise ; d'ailleurs tu n'as reçu de réponse ni d'un côté, ni de l'autre, ce qui semble confirmer mon idée.
L'idéal serait d'avoir ton fichier à disposition (un fichier simplifié sans données confidentielles irait très bien) et deux ou trois mots d'explication sur ce que tu veux faire.
Je ne peux, par exemple, pas savoir à quel endroit introduire l'instruction =si([Planning_EP.xlsm]ep2019!$C$6=6 si je ne sais pas ce que tu veux réaliser.
Cordialement.
Bonjour merci de prendre du temps
je peux pas mettre les fichiers helas mais je vais essayer d'etre precis
je voudrais que "si([Planning_EP.xlsm]ep2019!$C$6=6" alors qu'il m’exécute tout ce qu'il y a dans la macro et si y a pas la cellule equal à 6 alors il me fait rien
j’espère avoir ete plus clair
merci
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
Un fichier modèle ou un "fichier anonymisé" peut toujours être placé sur le Forum
Comme explication complémentaire, tu n'as fait que répéter ce que tu avais déjà dit.
Là je dois travailler à l'aveugle et c'est peu "prenant".
Essai la modification suivante :
Dim plage1 As Range, plage2 As Range, jour, c As Range, j As Variant
if ([Planning_EP.xlsm]ep2019!$C$6=6 Then
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
End If
Chez moi j'ai une erreur sur la ligne if ([Planning_EP.xlsm]ep2019!$C$6=6 Then, mais sans fichier, je ne cherche pas plus loin.
Amicalement.
j'essayerai et je te redit ca mais merci beaucoup
j'essayerai et je te redit ca
J'aime bien l'adage : "Les belles promesses rendent les fous joyeux''
Amicalement.
salut j'ai essayer ca marche merci
promesse tenue