Visual basic macro

Question

Bonjour,

            Je lance une perche a qqu'un qui vouldrais bien m'aidé 5-10 min a me dire a quoi devrais ressembler la macro pour copier le 1er montant en sous-total... ce montant n'étant pas toujours a la meme hauteur dans page cela complique les choses pour moi qui a fait de la programation il y plus de 20 ans.

Ici c'est ma commande que j'ai fait quand le sous total est toujours sur la meme ligne ca va bien.

Sub copiersoustotal()
'
    With Session
        .SetSelectionStartPos 13, 57
        .ExtendSelectionRect 13, 63
        .CopySelection
    End With
End Sub




Et voici le genre de documents avec lequel je travail(c'est pas excel)




Merci
          EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici : ICI 

Merci d'y penser dans tes prochains messages.

yg_be · Answer

bonsoir, suggestion:
Sub copiersoustotal()
'
    dim i as integer, nlig as integer
nlig=0
With Session
    for i = 5 to 22  'on cherche sur les lignes de 5 à 22 
       if .GetDisplayText(i,11,9)="SUB-TOTAL" then 'si sub-total est présent à partir de la colonne 11
          nlig=i
          exit for
       end if
    next i
    if nlig >0 then
        .SetSelectionStartPos nlig, 57
        .ExtendSelectionRect nlig, 63
        .CopySelection
    end if
    End With
End Sub

Visual basic macro

1 réponse

Discussions similaires

Newsletters