Besoin d'une macro qui intégre les maj

M

megansport

Guest

• 4 Mai 2012

• #2

Re : Besoin d'une macro qui intégre les maj

J'ai oublier de dire que la colonne "trspt" est lier au référence, lorsque la référence manquante sera intégrer, il faudra que la macro cree une cellule trspt
Merci

 

Vote positif 0 Vote négatif

G

Gurgeh

XLDnaute Occasionnel

• 4 Mai 2012

• #3

Re : Besoin d'une macro qui intégre les maj

Salut megansport,

J'ai un peu de mal à comprendre ce que tu veux avoir comme résultat, est-ce que tu pourrais nous rajouter dans le fichier quelques cellules exemples du résultat à avoir ?

Gurgeh

 

Vote positif 0 Vote négatif

M

megansport

Guest

• 5 Mai 2012

• #4

Re : Besoin d'une macro qui intégre les maj

Bonjour à tous
Voici un exemple de ce que je désire
Merci de votre aide

 

Pièces jointes

• exemple.xlsx

  9.3 KB · Affichages: 41
• exemple.xlsx

  9.3 KB · Affichages: 45
• exemple.xlsx

  9.3 KB · Affichages: 48

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 5 Mai 2012

• #5

Re : Besoin d'une macro qui intégre les maj

Bonjour à tous,

Peux-tu essayer ceci :

VB:

Option Explicit


Sub Test()
    Dim Val As Variant
    Range("D2:D65536").ClearContents
        Val = Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp)).Value
        Range("D" & Rows.Count).End(xlUp)(2).Resize(UBound(Val)).Value = Val
End Sub

A + à tous

 

Vote positif 0 Vote négatif

M

megansport

Guest

• 7 Mai 2012

• #6

Re : Besoin d'une macro qui intégre les maj

Bonjour à tous
Je viens d'essayer la macro mais celle ci copie simplement la colonne A en colonne D, j'ai fournit un fichier plus haut " exemple" afin de montrer ce que je recherche
Merci de votre aide

 

Vote positif 0 Vote négatif

M

megansport

Guest

• 7 Mai 2012

• #7

Re : Besoin d'une macro qui intégre les maj

Hi
Please si quqelqu'un pourrait m'aider
Merci

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 7 Mai 2012

• #8

Re : Besoin d'une macro qui intégre les maj

Bonjour à tous,

Peux-tu essayer ceci :

VB:

Option Explicit


Sub Test()
    Dim i As Integer
    Dim Val As Variant
    Range("D2:D65536").ClearContents
    For i = 1 To 3
        Val = Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp)).Value
        Range("D" & Rows.Count).End(xlUp)(2).Resize(UBound(Val)).Value = Val
    Next
End Sub

A + à tous

 

Vote positif 0 Vote négatif