IF Cellules fusionnées

[soso9393]

Bonjour,
Je bloque sur un code qui touche des cellules fusionnées.
Je souhaiterai récupérer une valeur depuis un onglet (“Y”), si dans les cellules fusionnées (B15:B19), j’ai “CC”.
Je tombe sur un message d’erreur “incompatibilité de type, erreur d’exécution 13”, je pense c’est liée à la manière je nomme les cellules fusionnées…

Worksheets(“X”).Activate
If Sheets(“Y”).Range(“B15:B19”) = “CC” & Range(“C15”) = “Total” Then
Sheets("X).Cells(15, Columns.Count).End(xlToLeft).Offset(, 1).Select
Selection.Value = Sheets(“X”).Range(“D15”) / 1000
Else
MsgBox “Mismatch”
End If

[Mimimathy]

Bonjour,
En VBA le & commercial n’existe pas remplacer par AND
et les feuil “Sheets” doivent être entre parenthéses et guillemets --> Sheets("…")

[soso9393]

Merci, j’ai corrigé mais j’ai tjrs la même erreur

[Mimimathy]

Re,

Teste comme ceci en supposant que les cellules B15 à B19 sur feuil “Y” sont fusionnées

Worksheets("X").Activate
    If Sheets("Y").Range("B15") = "CC" And Sheets("Y").Range("C15") = "Total" Then
      Sheets("X").Cells(15, Columns.Count).End(xlToLeft).Offset(, 1).Select
      Selection.Value = Sheets("X").Range("D15") / 1000
    Else
      MsgBox "Mismatch"
    End If

[soso9393]

meric bcp ca marche !!!