Autres Copier Différent

[jfcjfc]

ligne à copier :

2

3

8

9

10

12

19

31

33

34

38

45

47

52

53

59

62

63

64

65

il faut que chaque N° soit coller dans leur colonne respective:
n°2 dans la colonne 2, n°3 dans la colonne3 etc et n°65 dans la colonne 65,
mais le coller doit se faire d'une seule fois et non pas les N° les uns après les autres.

Je dois pouvoir également pouvoir donner des valeurs différentes aux lignes et colonnes.
sous la forme qui serait plus pratique pour moi,
du style:
dim a, b as integer
a = 18
b= 50
c = 18
d = 70
sous la forme:
Cells(a,b).Select,
ou Range(Cells(a , b), Cells(c , d)).Select

si les 20n° de ma ligne à copier est par exemple sur la ligne 18 et la colonne 50, je dois pouvoir le modifié dans le code .
Et, si ma ligne à coller et ligne3 et colonne2, je dois pouvoir le modifié dans le code .
Et si je dois changer de page, je sais faire. Au moins ça !

Si la mémorisation des 20 n° peut se faire les uns après les autres,
Je reprécise que le coller des 20n° doit se faire d'une seule fois dans leur colonne respective et non pas les n° les uns après les autres.
J’espère avoir était clair et concis.
Encore merci. pour votre aide.
Cordialement
Ps: en code macro svp. Pas de presse papier.

 

[sylvanu]

Bonjour Jfcjfc,
J'ai l'impression que votre post est tronqué au début, ou manque t-il un simple Bonjour en arrivant ?
Un essai en PJ avec :

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A1:ZZ1")) Is Nothing Then
        Application.ScreenUpdating = False
        DC = Cells(1, Columns.Count).End(xlToLeft).Column
        Range("A2:ZZ2").ClearContents
        For i = 1 To DC
            Colonne = Cells(1, i)
            Cells(2, Colonne) = Colonne
        Next i
        Application.ScreenUpdating = True
    End If
End Sub

Il suffit de modifier une valeur en ligne 1 pour mettre à jour la ligne 2.

Par contre pas compris :

Je dois pouvoir également pouvoir donner des valeurs différentes aux lignes et colonnes.

Pouvez vous préciser ?

 

[job75]

Bonjour,

Pourquoi ne pas avoir continué sur cette discussion :

https://www.excel-downloads.com/threads/xl-2007-copier-coller-different.20060214/

Mais tant que vous ne montrerez pas votre fichier réel avec les résultats à obtenir on tournera en rond.

A+

 

[jfcjfc]

Bonjour Jfcjfc,
J'ai l'impression que votre post est tronqué au début, ou manque t-il un simple Bonjour en arrivant ?
Un essai en PJ avec :

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A1:ZZ1")) Is Nothing Then
        Application.ScreenUpdating = False
        DC = Cells(1, Columns.Count).End(xlToLeft).Column
        Range("A2:ZZ2").ClearContents
        For i = 1 To DC
            Colonne = Cells(1, i)
            Cells(2, Colonne) = Colonne
        Next i
        Application.ScreenUpdating = True
    End If
End Sub

Il suffit de modifier une valeur en ligne 1 pour mettre à jour la ligne 2.

Par contre pas compris :

Pouvez vous préciser ?

Merci, et c'est vrai mon message n'est pas entier. J'arrive sur le forum et je ne l'ai pas encore en main.
Merci encore !