VBA et cellules nommees

Y compris Power BI, Power Query et toute autre question en lien avec Excel
-
ch69
Appréciations reçues : 2

Message par ch69 » 14 août 2017, 16:02

Fin mot de l'histoire : je suis finalement revenu a un truc plus long mais plus simple (du meme type que mon code non simplifie sur ce sujet : excel/simplifiation-de-code-t96566.html

Pour ceux que ca interesse, voici mon code (si il y en a qui veulent s'amuser a le simplifier, je suis preneur ;) )
Sub Add_To_List()

Dim cel_src, cel_dst As Range
Dim DernLigne As Long
DernLigne = Worksheets("Datas").Range("A" & Rows.Count).End(xlUp).Row

Set cel_src = Range("date")
With Worksheets("Datas")
    Set cel_dst = .Cells(DernLigne, Range("date_data").Column)
End With
cel_dst.Value = cel_src.Value


Set cel_src = Range("customer")
With Worksheets("Datas")
    Set cel_dst = .Cells(DernLigne, Range("cust_data").Column)
End With
cel_dst.Value = cel_src.Value


Set cel_src = Range("collection_post_code")
With Worksheets("Datas")
    Set cel_dst = .Cells(DernLigne, Range("from_data").Column)
End With
cel_dst.Value = cel_src.Value


Set cel_src = Range("delivery_post_code")
With Worksheets("Datas")
    Set cel_dst = .Cells(DernLigne, Range("to_data").Column)
End With
cel_dst.Value = cel_src.Value


Set cel_src = Range("price")
With Worksheets("Datas")
    Set cel_dst = .Cells(DernLigne, Range("price_data").Column)
End With
cel_dst.Value = cel_src.Value


Set cel_src = Range("promotion")
With Worksheets("Datas")
    Set cel_dst = .Cells(DernLigne, Range("promo_data").Column)
End With
cel_dst.Value = cel_src.Value

End Sub
Avatar du membre
retraite8
Membre fidèle
Membre fidèle
Messages : 308
Appréciation reçue : 1
Inscrit le : 15 juin 2017
Version d'Excel : 2016

Message par retraite8 » 14 août 2017, 16:44

Bonjour ch69, bonjour le fil, bonjour le forum,

Si tu y tiens ...
Sub Add_To_List()
Dim DernLigne As Long
    
With Worksheets("Datas")
    DernLigne = .Range("A" & Rows.Count).End(xlUp).Row + 1
    .Cells(DernLigne, Range("date_data").Column) = Range("date")
    .Cells(DernLigne, Range("cust_data").Column) = Range("customer")
    .Cells(DernLigne, Range("from_data").Column) = Range("collection_post_code")
    .Cells(DernLigne, Range("to_data").Column) = Range("delivery_post_code")
    .Cells(DernLigne, Range("price_data").Column) = Range("price")
    .Cells(DernLigne, Range("promo_data").Column) = Range("promotion")
End With
End Sub
A+


Joseph
-
ch69
Appréciations reçues : 2

Message par ch69 » 15 août 2017, 09:59

Super,exactement ce qu'il me fallait

merci Beaucoup ! :)
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message