Bonjour !
J ai cré une petite macro dont l'objet est de tester l'existence d'un lien
Il faut qu'elle s'assure qu'il y ait une valeur dans une case
si oui, elle doit vérifier que le lien est valable. Si le lien est valable, alors elle passe à la ligne suivante, sinon, elle doit ecrire "erreur de lien" dans une case
et si il n'y a pas de valeur dans la case, elle doit passer à la ligne suivante.
j'ai
Dim Lig As Long
For Lig = 2 To Range("L" & Cells.Rows.Count).End(xlUp).Row
If Range("Q" & Lig) = "" Then
Next Lig
Else
If VerifHyperlink(Range("L" & Lig)) = True Then
Range("Q" & Lig) = ""
Else
Range("Q" & Lig) = "Lien pdf invalide"
End If
End If
Next Lig
MAis quand je lance la macro, il me dit "Next sans For"
Ja suis (très) très nulle en vba, je coirs que c'est simplissime, mais je ne vois pas ce que c'est...
Est ce que l'un peut m'aider?
Merci beaucoup !
J ai cré une petite macro dont l'objet est de tester l'existence d'un lien
Il faut qu'elle s'assure qu'il y ait une valeur dans une case
si oui, elle doit vérifier que le lien est valable. Si le lien est valable, alors elle passe à la ligne suivante, sinon, elle doit ecrire "erreur de lien" dans une case
et si il n'y a pas de valeur dans la case, elle doit passer à la ligne suivante.
j'ai
Dim Lig As Long
For Lig = 2 To Range("L" & Cells.Rows.Count).End(xlUp).Row
If Range("Q" & Lig) = "" Then
Next Lig
Else
If VerifHyperlink(Range("L" & Lig)) = True Then
Range("Q" & Lig) = ""
Else
Range("Q" & Lig) = "Lien pdf invalide"
End If
End If
Next Lig
MAis quand je lance la macro, il me dit "Next sans For"
Ja suis (très) très nulle en vba, je coirs que c'est simplissime, mais je ne vois pas ce que c'est...
Est ce que l'un peut m'aider?
Merci beaucoup !