Discussion :

[Benjycool]

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

[ouskel'n'or]

Ce n'est pas un smiley que tu copies, c'est un caractère K auquel tu appliques la police Wingdings... Alors pourquoi ne pas simplement "l'écrire" dans la cellule de destination et lui appliquer la police ?

[ucfoutu]

Bonjour,

Au passage (bien que n'ayant rien à voir directement avec le problème)
Il y a sur cette ligne un Like surprenant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If f1.Range(f1.Cells(j, k), f1.Cells(j, k)).Value Like f1.Range("I1").Value Then

Pourquoi un Like (plus lent) et non un = (plus direct) ?
Un Like ne serait ici juistifié que si la cellule contenait un filtre (avec caractères génériques) à utiliser !

[Benjycool]

ok c'est bon sa marche

merci