Visual basic macro

Fermé

CosmicMurder Messages postés 1 Date d'inscription samedi 24 avril 2010 Statut Membre Dernière intervention 22 février 2018 - Modifié le 22 févr. 2018 à 18:38
yg_be Messages postés 22720 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 avril 2024 - 22 févr. 2018 à 19:51

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.

A voir également:

Visual basic macro
Visual basic download - Télécharger - Langages
Microsoft 365 basic - Guide
Microsoft visual c++ runtime - Guide
Visual petanque - Télécharger - Sport
Macro word - Guide

1 réponse

Réponse 1 / 1

yg_be Messages postés 22720 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 avril 2024 1 476
22 févr. 2018 à 19:51

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

Discussions similaires

Site de confiance ou non ?

Discussions similaires

Newsletters