Tableau entre 2 sauts de pages

Question

Bonjour,

Voici mon problèmé.

Je souhaiterai compléter une variable "tableau" dont les données sont situées entre 2 saut de pages.

Comment puis je faire ?

Merci d'avance

jordane45 · Answer

Bonjour,

Pourrais tu nous donner un peu plus d'explications ?
une variable "tableau" 
Une variable "Tableau"... qu'est ce que c'est pour toi ? (pour moi c'est un Array.... mais dans ce cas je ne vois pas ce que viennent faire les sauts de pages ici...)

mymi52 · Answer

oui, c'est- bien une variable de typs "array" que je veux faire.
En fait, je dois comparer des données entre fichiers Excel.

Chaque "liste" à comparer se situe entre 2 saut de page.
Je me disais que, le plus simple, était des faire 2 tableaux (1 sur chaque fichier) et de les comparer.

mymi52 · Answer

Je dois faire une comparaison entre une "projection budgétaire" qui est dans un fichier et un "réalisé" qui est dans un autre.

J'ai, dans chaque fichier, x projection / réalisé, x n'étant pas fixe
et je n'ai pas forcément le même ligne entre la projection et le réalisé.

Pour faliciter les choses, je me suis dit qu'en insérant un saut de page entre chaque projection/réalisé, ça me permettrait d'être sure de ce que je compare, je n'ai peut être pas procéder de la meilleure façon....

Du coup, je n'ai encore rien codé pour l'instant à part les sauts de pages et le travail sur les fichiers afin de les rendre le plus brut possible (ils proviennet d'un export de logiciel avec plein de données inutiles)

Je ne sais pas si je suis claire....

jordane45 · Answer

Pour détecter les sauts de page, tu peux regarder du côté de ce code :

Sub LigneSautDePage()
Dim i As Long
Dim ligne As Long, colonne as long
  If ActiveSheet.HPageBreaks.Count > 0 Then
    For i = 1 To ActiveSheet.HPageBreaks.Count
      ligne = ActiveSheet.HPageBreaks(i).Location.Row - 1
      Debug.Print ligne
    Next i
  End If
 
 If ActiveSheet.VPageBreaks.Count > 0 Then
    For i = 1 To ActiveSheet.VPageBreaks.Count
      colonne= ActiveSheet.VPageBreaks(i).Location.Column - 1
      Debug.Print colonne
    Next i
  End If
End Sub

ucfoutu · Answer

Bonjour,
A mymi52 : on peut sans aucun doute s'interroger très sérieusement sur l'antinomie entre l'automaticité d'une application et l'intervention de l'utilisateur (les ajouts de retours à la ligne).
Il y a là, à n'en point douter, un problème fondamental.

Tableau entre 2 sauts de pages

5 réponses

Votre réponse

Discussions similaires