Discussion :

[freeland15]

Bonjour a tous et toutes


Comme beaucoup j'ai un soucis an VBA

Je m'explique.

Dans un doc excel je doit copier une serie de ligne colonnes
A2 : J2
A12 : J12
Par exemple.

Il faut savoir que A12 et J12 ne sont bloqués, ils sont variables.
Mais la ou tout ce complique c'est la colonne K est importante car tout depend d'elle.
Cette derniere augmente par le bié d'un macro (couper/coller de colonnes)

Il me faut donc copier Mon A2 : Jx autant de fois que je vais copier coller mes données dans ma colonne K


http://hiboox.com/lang-fr/image.php?img=wwh610wh.jpg

Merci de votre aide

[sash6]

Il faut savoir que A12 et J12 ne sont bloqués, ils sont variables.

Ce sont mes lignes ou les colonnes qui sont variables? Je pense que ce sont les lignes étant donné ta colone importante K. Ton problème consiste à connaître la dernière ligne de ton tableau. Pour cela, regarde un peu ici: http://www.developpez.net/forums/sho...d.php?t=331890

[freeland15]

Merci pour ces reponses mais cela ne fonctionne pas

En fait je doit recopier les lignes de mon tableau a la suite.
En fonction de la colonne K.
En fait pour le moment si j'applique une macro que je n'arrive pas a modifier, la copie se fait mais infiniement et ne s'arrete pas avec la colonne K.

Ci-joint copie de la macro qui colle K

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Sub Mise_en_forme()
 
l = 2
 
While Cells(l, "M").Value <> ""
 
        Range("M2").Select
 
        Range(Selection, Selection.End(xlDown)).Select
 
        Selection.Cut
 
        Range("K2").Select
 
        Selection.End(xlDown).Select
 
        ActiveCell.Offset(1, 0).Select
 
        ActiveSheet.Paste
 
            Range("N2").Select
 
            Range(Selection, Selection.End(xlDown)).Select
 
            Selection.Cut
 
            Range("L2").Select
 
            Selection.End(xlDown).Select
 
            ActiveCell.Offset(1, 0).Select
 
            ActiveSheet.Paste
 
                Columns("M:N").Select
                Selection.Delete Shift:=xlToLeft
 
Wend
 
End Sub

[Qwazerty]

SAlut
Alors si j'ai bien compris, par ce que tes explications sont plutot parcellaires a mon gout, tu as des couple de valeurs dans les colonnes M,N ; O,P ; Q,R ; ... et tu voudrais les mettre a la suite des couples presents dans K,L

Par contre ce que je pige pas c'est le rapport entre les couple dans K,L et les cellules de A à J ?? eclaire nous voir s'il te plait.
Ha attend je vient de relire, c'est cellule se calculent toutes seules en fonctionde valeur contenu dans K,L c'est bien ca?

Si c'est ca, ca devrait pas etre bien long a faire.
Je regarderais ca en debut de soirée

A++
Qwaz

[Edit] Pense au balises code c'est plus lisible, si tu veux de l'aide met toutes les chances de ton coté[/Edit]

[Qwazerty]

Re
Comme promis

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
Sub Reorganisation()
 
'Regarder si quelquechose en M2
While Range("M2").Formula <> ""
    'A partir de M1 aller chercher la derniere case non vide
    Range("M2:N" + CStr(Range("N1").End(xlDown).Row)).Copy Destination:=Range("K1").End(xlDown).Offset(1, 0)
    Application.CutCopyMode = False
    Columns("M:N").Delete Shift:=xlToLeft
Wend
 
If Range("K2").Formula = "" Then Exit Sub
 
'On Autofill A à J
Range(Range("A1").End(xlDown).Address + ":" + Range("A1").End(xlDown).Offset(0, 9).Address).AutoFill Destination:=Range(Range("A1").End(xlDown).Address + ":" + Range("K1").End(xlDown).Offset(0, -1).Address), Type:=xlFillDefault
 
End Sub

Je pense que ca fait ce que tu veux .. enfin vis a vis des explications fournis

A++
Qwaz

[freeland15]

Salut

C presque ca
Je vais essayer de modifier mais si ta une idee

Ci-joint une copie du fichier que je doit traiter
En fait ta macro copie bien A:J mais elle recopie A10:J10 sur la totalite des champs.
En effet apres avoir deplacer mes colonne sur K et L
JE doit recopier sans rien modifier les references qui sont sur les ligne A:J
C reference sont les memes.
Le bout du doc est plus parlante.

Copie.XLS

Pour comprendre copie deja les dates et les quantite sur K et L
et apres tu veras ce que je ve faire avec les designations.

A tres vite
Encore merci

[freeland15]

http://www.developpez.net/forums/sho...d.php?t=452893