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

Rechercher des sujets similaires à "egale"