Bonjour à tous,
j'ai un petit souci avec le code suivant; il fonctionne très bien sur presque l'ensemble de mes cellules hormis une ou apparemment, il y a soit une couleur qu'il ne détecte pas soit plusieurs couleurs. Je reçois le message suivant: Erreur d'execution "94", "Utilisation incorrecte de Null" lorsque j'arrive sur CoulPolice = ActiveCell.Font.ColorIndex
Je joins le fichier, les deux cellules pour lesquelles le code ne fonctionne pas sont les suivantes: A12, A13 par exemple.
Pouvez-vous m'aider. Grand merci.
SLTS
Dim CoulPolice As Integer
Sheets("NewsCountries").Select
i = 1 ' Colonnes
j = 10 'Lignes
For j = 10 To 100
Cells(j, i).Activate
CoulPolice = ActiveCell.Font.ColorIndex
If ActiveCell.Text Like "*France*" Or ActiveCell.Text Like "*France Country*"
etc. etc.
j'ai un petit souci avec le code suivant; il fonctionne très bien sur presque l'ensemble de mes cellules hormis une ou apparemment, il y a soit une couleur qu'il ne détecte pas soit plusieurs couleurs. Je reçois le message suivant: Erreur d'execution "94", "Utilisation incorrecte de Null" lorsque j'arrive sur CoulPolice = ActiveCell.Font.ColorIndex
Je joins le fichier, les deux cellules pour lesquelles le code ne fonctionne pas sont les suivantes: A12, A13 par exemple.
Pouvez-vous m'aider. Grand merci.
SLTS
Dim CoulPolice As Integer
Sheets("NewsCountries").Select
i = 1 ' Colonnes
j = 10 'Lignes
For j = 10 To 100
Cells(j, i).Activate
CoulPolice = ActiveCell.Font.ColorIndex
If ActiveCell.Text Like "*France*" Or ActiveCell.Text Like "*France Country*"
etc. etc.