Discussion :

[RyuAutodidacte]

Un edit que je pense que tu n'as pas vu

Edit : il serait bien de se pencher sur les solutions proposés par @patricktoulon ou @jurassic pork qui sont des solutions intéressantes aussi, surtout qu'ils ont donné de leurs temps pour ces propositions

[jchuillier2]

J'ai gardé toutes les options dans des fichiers séparés, ca me servira toujours de référence pour le,prochain projet.

Je viendrai vous casser les pieds avec un autre truc mais au moins celui la sera acquis.

Merci a tous.

[RyuAutodidacte]

Re
Je vais refaire le code mieux que je l'ai fait vu la façon de procéder …

[patricktoulon]

re
oui !! surtout qu'au fil de la discuion on comprends de moins en moins ce qu'il veut faire

tu veux du dynamique!!!,simple!!! et meme pouvoir utiliser les touche CTRL V

et ben tiens voila une de mes astuce préférées dont je me set a GOGO!!!!!

le principe est d'utiliser le clipboard d'un document html virtuel


prend un fichier vierge

remplie une cellule avec ta ligne de temps

met cela dans le module du sheets concerné ya pas plus simple ca c'est garanti

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    CommandBars("cell").Reset
    Set bout = CommandBars("cell").Controls.Add(Type:=msoControlButton, before:=1)
    With bout
        .Caption = "copier comme tableau":
        .OnAction = "Feuil2.copie_table"
    End With
End Sub
Sub copie_table()
    Dim tabL, FdoC
    Set FdoC = CreateObject("htmlfile")
    Table = "<TD>" & Replace(Selection.Value, " ", "</TD></TR><TR><TD>") & "</TD>"
    'Table = Replace(Table, "</TR><TR>", "")
    With FdoC
        .parentWindow.clipboardData.clearData "Text"
        If .parentWindow.clipboardData.setData("Text", "<table><TR>" & Table & "</TR></table>") Then
        End If
    End With
    CommandBars("cell").Reset
End Sub
Private Sub Worksheet_Deactivate()
CommandBars("cell").Reset
End Sub

maintenant clique droite et clique sur copie en tableau

une fois cela fait va n'importe ou dans le sheets et click droit et utilise le bouton "coller" d'origine du menu

voila
tu peut utiliser directement CTRL V aussi

si tu le veut horizontal débloque la ligne verte c'est tout

ps:
modifie le nom de la feuille dans le " .onaction"
non de dieu!!!

et perso
je dirais meme que copier des données a partir d'PDF

importer pour importer je le ferait directement pendant l'importation

comment importe tu ton pdf dans Excel dis moi un peu??????? quelle méthode utilise tu ?????

[jchuillier2]

Je sélectionne le texte dans le PDF, CTRL+C et ensuite dans excel CTRL+V

Voila une copie d'écran, les temps sélectionnés avec CTRL+C

[RyuAutodidacte]

Je pense que tu aurais dû commencer par là en indiquant que tu voulais garder tes données en colonne cela aurait été plus clair !!!

[jchuillier2]

Je pense que tu aurais dû commencer par là en indiquant que tu voulais garder tes données en colonne cela aurait été plus clair !!!

Oui, je viens de relire mon post de départ et je demande à les mettre en A1; B1, C1 etc alors qu'en fait c'est A1, A2, A3, etc.....

Ma faute.....désolé.

Mais l'image est issue du PDF, ils me donnent les temps comme ca et quand je fais un CTRL+C dans le PDF c'est stocké dans le presse papier en ligne avec des espaces comme séparation, pas de CRLF ou autre joyeuseté.

1:54.745 1:53.732 1:51.366 1:51.753 1:51.259 1:52.270 1:51.310 1:18.568 1:51.081 1:52.556 1:54.082 1:51.925 1:51.949 1:50.688 1:51.124 1:51.633 1:51.946 1:51.480 1:51.223 1:50.411 1:51.219

La je viens de faire un CTRL+C dans le PDF et un CTRL+V ici

[RyuAutodidacte]

Dans le cas de données en ligne avec comme séparation un espace entre chaque donnée, le code aurait été :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub CopieTranspose()
Dim Copie As String, VA
 
With New DataObject: .GetFromClipboard: Copie = .GetText(1): End With
VA = Split(Copie, " ")
 
Application.ScreenUpdating = False
    With Selection
        .Resize(UBound(VA, 1)).NumberFormat = "@"
        .Resize(UBound(VA, 1)) = Application.Transpose(VA)
    End With
Application.ScreenUpdating = True
 
End Sub

[patricktoulon]

Bon en fouillant un peu on trouve un exemple de KIKI29 avec adobe Reader et les senkeys

je l'ai adapter a ton besoins je colle directement le fichier en texte dans Excel
teste
et regarde la colonne "E"
tu a juste un peu de ménage a faire après en nettoyant tout ce qui correspond pas a "xx.xxx" on pourrait dès l'ors utiliser un tout petit regex
et tu a tout d'un coup
banana!!!

[patricktoulon]

tiens teste celui la
il te reste plus que la colonne A ou tu a tout les temps reste a nettoyer les cellule qui n'ont pas le format "0:00.000"

difficile de faire plus hein!!!!

[RyuAutodidacte]

Hi Patrick,

pour la 3 solution je peut l'ajouter en une seule ligne dans mon joujou clicdroit si tu veux et quoi que !!!!!!,ca fera un bon exercice pour RYU

je dis bien en une seule ligne hein !!!!RYU

J'ai beau cherché, j'ai du loupé un train, raté un épisode … ,
ce fameux code à une ligne je n'arrive pas à le trouvé, soit j'ai super mal réfléchi, soit je ne connais pas l'astuce.
tu peux m'expliquer stp

[patricktoulon]

allons RYU on a bossé ensemble la dessus pendant des jours tu t'en rappelle donc plus

si il y a erreur 13 parcequ'il a selectionné plusieurs cellule dans une meme ligne
"Application.WorksheetFunction.Index(tableau,1,0)"
tableau peut etre une variable tableau ou range(.....).value et "1" c'est la ligne voulue
ca y est ca te reviens ?????

Code :

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

1
2
3
4
5
6
7
exemple a l'arrache 
Sub test6()
'Récupérer la ligne 1 dans un tableau a 1 dim (array)
    ligne = Application.WorksheetFunction.Index(Range("A1:f10").Value, 1, 0)
    Debug.Print Join(ligne, " ")
'on re split  apres pour avoir les valeurs dans une cellules au cas ou il y aurait plusieurs valeurs dans une meme cellules dans la ligne selectionnée
End Sub

va y avoir des heures de colle qui vont tomber je dis moi
ca a intérêt a te revenir sinon je vais sévir

[RyuAutodidacte]

Aïe je vais avoir des heures de colles pour réviser
Je vais revoir ça, il faudra pas que j'oublie le "SEP"
Merci du rappel, je vais essayer de faire le nécessaire pour éviter des heures de colle supplémentaires

[patricktoulon]

faut-il que je te rappelle comment on fait pour une colonne aussi????

[RyuAutodidacte]

Je vais potasser tout ca avant merci
Mais se sera demain ou pas (plus tot)

[patricktoulon]

pour la peine
tu m écrira 100 pages de ca
et cela pourrait te faire un aide mémoire aussi

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub tt()
    newarray = Array(100, 200, 300, 400, 500, 600, 700, 800, 900, 1000, 1100, 1200, 1300, 1400, 1500)
    tableau = Range("A1:C15").Value
    MsgBox UBound(tableau, 1)
    'Récupérer la colonne 3 dans un tableau a 2 dim
    Vecteur = Application.WorksheetFunction.Index(tableau, 0, 1)
    Debug.Print Vecteur(1, 1)
    'Récupérer la ligne 1 dans un tableau a 1 dim (array)
    Vecteur = Application.WorksheetFunction.Index(tableau, 1, 0)
    Debug.Print Join(Vecteur, ",")
 
    'récupérer une colonne d'un tableau dans un array a 1 dimention
    Vecteur = Application.Transpose(Application.Index(tableau, , 2))
    Debug.Print Join(Vecteur, ",")
    'injecter un array  1 dim dans un colonne d'un tableau a 2 dim
    colonne = Application.WorksheetFunction.Index(tableau, 0, 3)
    colonne = Application.Transpose(newarray)
    Debug.Print colonne(1, 1)
 
End Sub

c'est bon ca re rentre ???

[RyuAutodidacte]

Trouver dans ce post

PS : d'ailleurs tu n'a pas répondu à ma dernière question avec le union ici

[patricktoulon]

la réponse est simple

Code :

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

1
2
3
4
5
plage=union(rng1,rng2,rng3)
for each cel in plage.cells
 
.....
next

[RyuAutodidacte]

C'est la réponse pour la dernière ligne sur des colonnes non contigues ?? je croyais que c'était possible sans boucle !? non?
Car en boucle je l'avais fait de cette manière :

Code :

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

1
2
3
4
5
6
7
8
Sub DerLig()
    ColDL = Array(1, 3, 5)
        For i = LBound(ColDL) To UBound(ColDL)
            DLig = DerL: DerL = Cells(Rows.Count, ColDL(i)).End(xlUp).Row
            If DerL > DLig Then DLig = DerL Else DerL = DLig
        Next
    MsgBox DLig
End Sub

Edit : je suis en train de potasser le Application.WorksheetFunction.Index(tableau, 0, 1), je l'utilise pas assez souvent mais ça a l'air bien pratique

[patricktoulon]

mais non!!!

en fait c'est simple
on peut meme prendre la colonne en entier dans union

et dans la boucle avec les dico etc.....
on teste si on est plus loin que le .end(xlup) c'est tout

Code :

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

1
2
3
4
5
6
for each cel in plage.cells
if cells(rows.count,cel.column).end (xlup).row<=cel.row then 
 
'blablabla dico etc...
end if 
next

comme ca on a pas besoins de déterminer chaque plage (ligne/colonne) pour chaque colonne
on prend 3 colonnes et on prend que celle qui sont inscrite jusqu'à la derniere ligne de chaque colonnes
c'est tout bête