Bonjour,
j'ai un macro qui selectionne une colonne
je detecte si les deux premier caratctere sont egale a ET
si tel est le cas je recupere du texte a cote des cas
maleureusement pour une raison de disposition mes cases de la colonne G sont fusionner




la detection de la case se passe bien mais lors de l'ofset je ne retrouve pas par exemple,
la case "CommandeLocale" je ne la retrouve pas si je joue avec mon offset
NewTag.Offset(1, -1).Value?? différente de Commande locale
pourtant mon ofset et bon...??



Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
For Each NewTag In FeuilBdN1.Range("G8:G10000")
extraire = Left(NewTag, 2)
 
If extraire Like "ET" Then   'Recherche la Chaine "ET" dans la Colonne G -> New TAG
Index = Index + 1
    FeuilCSV.Cells(Index, 1).Value = "Variable"
    FeuilCSV.Cells(Index, 2).Value = NewTag.Offset(0, 0).Value & "_dhm" 'Name
    FeuilCSV.Cells(Index, 3).Value = "Discrete"
    FeuilCSV.Cells(Index, 4).Value = "External"
    FeuilCSV.Cells(Index, 5).Value = "0"
    FeuilCSV.Cells(Index, 6).Value = NewTag.Offset(0, -2).Value & NewTag.Offset(1, -2).Value & ": ET " & NewTag.Offset(1, -1).Value 'Comment
 
etc......