Bonjour,

J'ai un gros soucis.

Je souhaiterai copier/coller un smiley d'un classeur à un autre.
Je voudrais grâce à une macro le detecter automatiquement dans la feuille.
Dans mon classeur j'ai 3 feuilles et le code marche nikel sur les deux premières feuilles mais sur la troisième il bug il me dit :

Erreur d'éxécution '13' :
Incompatibilité de type.

Puis lorsque je vais revoir mon code je met la souris sur la ligne en jaune et cela me dit :

f1.cells(j, k) = Erreur 2023


Voici mon code juste pour la recherche du smiley et le copier/coller :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
For j = 2 To 100
 
       For k = 1 To 100
 
           If f1.Range(f1.Cells(j, k), f1.Cells(j, k)).Value Like f1.Range("I1").Value Then
 
                f1.Range(f1.Cells(j, k), f1.Cells(j, k)).Copy
                f2.Paste Destination:=f2.Range(f2.Cells(i, 3), f2.Cells(i, 3))
                f2.Range(f2.Cells(i, 3), f2.Cells(i, 3)).Value = "K"
                f2.Range(f2.Cells(i, 3), f2.Cells(i, 3)).Font.Name = "Wingdings"
                f2.Range(f2.Cells(i, 3), f2.Cells(i, 3)).Font.Size = 12
                f2.Range(f2.Cells(i, 3), f2.Cells(i, 3)).Font.ColorIndex = 45
 
                 k = 100
                 j = 100
 
            End If
 
        Next k
 
Next j
Ce que je ne comprend vraiment pas c'est qu'il marche pour les deux premières feuilles.

Merci de bien vouloir m'aider.

Benjycool