offset en range

[Profane]

Bonjour a tous
je suis toujours sur ma problématique référence relative vers référence absolue
en clair, avant j'importais un fichier ou les colonnes étaient toujours à la même place, ...ce qui n'est plus le cas
et donc j'aimerai adapter ce code pour que le code offset -1, renvoi plutot sur une colonne nommé via le range
voici le code et d'avance merci
@+

'On récupére la valeur sur la colonne "commande"
'on envoi le resultat sur la colonne précédente 'à la base du code la colonne routeur
Sub SplitDT()
With Sheets("DT")
For Each c In Range("Commande")
If c.Value Like "*" & "CPE" & "*" Then
'c.Offset(, -1) = Mid(c, InStrRev(c, "CPE100901291") + 12) ' ancien code
c.Offset(, Routeur) = Mid(c, InStrRev(c, "CPE100901291") + 12) ' nouveau code mais la syntaxe est incorrecte
Else
'c.Offset(, -1) = "NR" ' ancien code
c.Offset(, Routeur) = "NR" ' nouveau code mais la syntaxe est incorrecte

End If
Next c
End With
End Sub

 

[fhoest]

Re : offset en range

Bonjour,
quelle est la déclaration de la variable routeur elle doit être integer ou long. voir dans le code comment elle est instancié puis sa valeur au passage de ce code.
A+

Bonjour Efgé, voilà après avoir lu la solution parfaite de Efgé je ne sais quoi ajouté.

 

[Profane]

Re : offset en range

Bonjour fhoest
routeur est un range, nommé dynamiquement
ce qui est etrange c'est qu'avec le code "c.Offset(, Routeur)", j'obtiens le resultat correct MAIS dans le range d'origine Commande (il se substitue a l'ancien....), et je souhaite l'obtenir dans le range routeur...
@+

 

[Efgé]

Re : offset en range

Bonjour Profane, Bonjour fhoest

Si il s'agit d'écrire dans la plage nommée Routeur sur la même ligne que la cellule C trouvée :

Sheets("DT").Range("Routeur")(C.Row, 1) = "C'est ici"

Cordialement

 

[Profane]

Re : offset en range

Bonjour Efgé
merci c'est exactement ça,ca fonctionne parfaitement
je suis une quiche...
@+