Condition/ If and
t
Bonjour, je suis débutant en VBA et je n'arrive pas à réaliser une macro assez simple.
Ma condition est la suivante : Si la valeur de la colonne AC est égal à #N/A et la colonne A de la même ligne n'est pas vide alors...
Mon code est le suivant :
Dim T1, T2 As Worksheet
Set T1 = Worksheets("sheet1")
finalrow = T1.Cells(Rows.Count, 1).End(xlUp).Row
For x = 2 To finalrow
If Cells(x, 29) = "#N/A" And Cells(x, 1) <> "" Then
J'ai une erreur d'execution "13" "incompatible de type" sur la ligne : If Cells(x, 29) = "#N/A" And Cells(x, 1) <> "" Then mais je ne sais pas pourquoi...
Si quelqu'un a la solution je suis preneur!
Merci d'avance
Ma condition est la suivante : Si la valeur de la colonne AC est égal à #N/A et la colonne A de la même ligne n'est pas vide alors...
Mon code est le suivant :
Dim T1, T2 As Worksheet
Set T1 = Worksheets("sheet1")
finalrow = T1.Cells(Rows.Count, 1).End(xlUp).Row
For x = 2 To finalrow
If Cells(x, 29) = "#N/A" And Cells(x, 1) <> "" Then
J'ai une erreur d'execution "13" "incompatible de type" sur la ligne : If Cells(x, 29) = "#N/A" And Cells(x, 1) <> "" Then mais je ne sais pas pourquoi...
Si quelqu'un a la solution je suis preneur!
Merci d'avance
Bonjour,
Le souci c'est que quand tu utilises Cells(x,1) ça renvoie la propriété Value qui ici ne va pas renvoyer du texte, au lieu de renvoyer "#N/A" ça va renvoyer une variable de type Error, comme elle ne sera pas comparable à ton texte, tu vas avoir une incompatibilité de type.
Un moyen de contourner ça c'est de faire appel à la propriété Text.
Ce qui donne:
If Cells(x, 29).Text = "#N/A" And Cells(x, 1) <> "" ThenSi tu avais juste cherché à savoir si c'était une erreur, quelle que soit l'erreur, tu aurais aussi pu utiliser IsError()
Pas de souci!