Discussion :

[dev_php51]

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......

[zazaraignée]

T'as essayé de mettre tes cellules "Centrées sur plusieurs colonnes" plutôt que de les fusionner ?

[Gorfael]

Salut dev_php51 et le forum
Pour ma part, ton problème est insoluble :
- une image ? Toi, tu as peut-être de bons yeux, ou une loupe, mais ce n'est pas mon cas et j'ai pas envie de me faire ch...
- Un extrait de ta macro : on doit deviner le reste ? Index c'est quoi ? le doigt à coté de majeur

Pour résoudre, réflèchit à ce qu'on pourrait faire pour faire pour te nuire si tu donnais un fichier d'essai avec "ET AAA", "ET BBB"
La sécurité n'est pas de tout cacher, mais de cacher ce qu'il faut et pas le reste

Cel as range

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cel.Offset(0, (-1) * (Cel.Offset(0, -1).MergeArea.Columns.Count))

A+

[dev_php51]

Merci de ta réponse , je vais tester tous sa ...
pour l'image je n'avais pas vérifier desoler