J'ai une erreur d'éxecution 13 incompatibilité type sur la ligne suivante:
If Sheets(1).Cells("C26").Value = "" And Sheets(c).Cells("Q252").Value <> Sheets(c).Cells("AD252").Value Then
Le but de mon programme est de copié certaine valeur dans des cellules quand certain critère sont remplis.
Voici mon programme en entier:
Sub Increment()
Range("J27").Select
ActiveCell.Value = ActiveCell.Value + 10
If Sheets(1).Cells("C26").Value = "" And Sheets(c).Cells("Q252").Value <> Sheets(c).Cells("AD252").Value Then
Sheets(c).Range("N12").Value = Sheets(1).Range("C26").Value
Sheets(c).Range("N17").Value = Sheets(1).Range("C27").Value
End If
End Sub
Pour la condition
il faut remplacer tes cells par Range
Sub macro()
If (ActiveSheet.Range("C26").Value) = "toto" _
And (ActiveSheet.Range("Q252").Value) <> (ActiveSheet.Range("AD252").Value) Then
MsgBox ("toto")
Else
MsgBox ("titi")
End If
End Sub
Ton erreur 13 venait effectivement du Cells, ce qui prouve de façon accablante que ce forum est plein d'experts qui s'ignorent.
L'erreur 13 masquait l'erreur 9, qui vient vient probablement du Sheets(c). La variable c n'est peut-être pas numérique, ou elle pointe une feuille inexistante. Si c est le nom d'une feuille, il faut écrire Sheets("c").