[VBA-E] Offset et Cellule Fusionnées
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
http://img293.imageshack.us/img293/8858/tabqf9.th.jpg
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:
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...... |
