Macro : Code if left avec condition

[roidurif]

Bonjour,

J'ai un probleme avec le code Left dans ma macro, ca ne fait pas ce ke je lui demande.
Pour chaque celulle de la colonne BG, si dans la celulle:

Si la celulle n'est pas vide et ne commence pas par Http, alors mettre l'extension dans la celulle en face.

Si la celulle commence pas http alors, alors mettre URL dans la celulle en face.

Cela ne fait ce ke je souhaite.

With Sheets("Cat")
For Each c In Worksheets("cat").Range("BG2:BG" & dlgn) 

If c.Value <> "" And Not UCase(Left(.Range(c), 4)) = "http" Then c.Offset(, 1) = UCase(Right(c, 3))
If UCase(Left(.Range(c), 4)).Value = "http" Then c.Offset(, 1) = "URL"
If c <> "" Then c.Offset(, 3) = Cells(2, 1)

Next c
End With

Merci de votre aide

 

[Fo_rum]

Re : Macro : Code if left avec condition

Salut

3 remarques :
la variable "dlgn" est-elle initialisée ?
Ucase(...) transforme en majuscule donc tu devrais plutôt écrire ="HTTP"
.Range(c) devrait être remplacé par c (du for each c in Range...)

 

[Efgé]

Re : Macro : Code if left avec condition

Bonjour roidurif, Fo_rum
En plus des remarques de Fo_rum, je pense que

Then c.Offset(, 1) = UCase(Right(c, 3))

Devrait être

c.Address.Offset(0, 1) = ....

et que

Then c.Offset(, 1) = "URL"

Devrait être

Then c.Address.Offset(0, 1).Value = "URL"

Tout ça à tester
Cordialement

 

[roidurif]

Re : Macro : Code if left avec condition

Merci bcp pour votre aide