Discussion :

[facteur]

Bonjour,
Avant tout, je vous souhaite a toutes et tous une excellente année 2016.

Je viens vers vous pour un coup de main sur l'élaboration d'une petit programme en vba Excel.
Afin d être plus explicite, je vais procéder par étape..

J'ai un fichier Excel que je nomerais "Depot" avec plusieurs onglets (dans cette 1ere étape, j'ai reduit le fichier à deux onglets):
- un onglet intitulé "DONNEE"
- un onglet intitulé "Lundi_Transit"

L'onglet DONNEE comporte 4 colonnes A, B, C , D avec comme en tête respectives
"Provenance" "Conteneurisation" "Transporteurs" "Heure Arrivée lundi"

L'onglet "Lundi_Transit" comportera plusieurs choses. Mais, dans un 1er temps, je vais m'arrêter au strict minimum..
Dans la colonne A de cet onglet , j'ai inséré les intitulés
en A1 rovenance
en A2 : transporteur
en A3 : heure théorique

Je souhaiterais créer une boucle qui se résumerait ainsi :
Dans l'onglet "DONNEE", si la cellule D2 est vide alors rien et si la cellule D2 est non vide alors:
copier la cellule A2 de l'onglet DONNEE dans la cellule B1 de l'onglet "Lundi_Transit
copier la cellule C2 de l'onglet DONNEE dans la cellule B2 de l'onglet "Lundi_Transit
copier la cellule D2 de l'onglet DONNEE dans la cellule B3 de l'onglet "Lundi_Transit

cette boucle se fonctionne jusqu'àla dernière ligne non vide de la colonne D de l'onglet "DONNEE"

je vous aie joins le fichier Excel pour avoir une visions global de ma demande..

Merci pour votre aide

[illight]

Bonjour,


Avant de faire quoique ce soit, tu as essayé d'écrire quelquechose au préalable ?

[facteur]

bonjour illight
Oui j'avais comm"ncé par exrire ceci :

Code :

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

1
2
3
4
5
ligdebut = Range("D2")
ligfin = Range("D2").End(xlDown).Row
 
For Each cell In Range("D" & ligdebut & "D:" & ligfin)
If Range("D2").Value <> "" Then

[Marc-L]

Déjà, une boucle est inutile ! Et même un code car il suffit de peu de manipulations :

Et si vraiment un code est nécessaire, il suffit d'activer l'Enregistreur de macros avant les manipulations :
une base de code est livrée sur un plateau ‼

______________________________________________________________________________________________________
Je suis Paris, Charlie, …

[facteur]

Bonjour Marc,
Merci pour cette démonstation mais j'insite pour le code vba
pour plusieurs raisons :

1) les données de l'onglet DONNEE doivent être affichées sur 6 onglet nommés
Lundi_transit; Mardi_Transit; Mercredi_Transit; jeudi_Transit; Vendredi_Transit; Samedi_Transit

2) les données de l'onglet DONNEE peuvent changer d'une journée à l'autre ou d'une semaine à l'autre

3) Sur les 6 onglets, je ne voudrais que les données dont il y a une heure d'arrivée dans l'onglet DONNEE

je ne sais pas si je suis claire..


Si on se concentre uniquement sur l'onglet "Lundi_Transit"...

Je souhaiterais que si ,dans l'onglet "DONNEE", la cellule D2 est <> 0 alors dans l'onglet "Lundi_Transit":
en B1, je vois afficher Paris (cellule A2 de l'onglet DONNEE)
en B2, je vois afficher Pierre (cellule C2 de l'onglet DONNEE)
en B3, je vois afficher 17:30 ( cellule D2 de l'onglet DONNEE)

Ensuite, je passerais sur la cellule D3 de l'onglet DONNEE et si D3 est <>0 alors
en C1, je vois afficher Lyon (cellule A3 de l'onglet DONNEE)
en C2, je vois afficher Paul (cellule C3 de l'onglet DONNEE)
en C3, je vois afficher 22:30 (cellule D3 de l'onglet DONNEE)

Arrivée à la cellule D7 de l'onglet DONNEE, aucun enregistrement car la cellule est vide

Et ceci jusqu à la dernière cellule non vide de la colonne D en partant du bas

Pour que tu es une vision plus globale de l'excercice je te joins le fichier Excel au complet

[Marc-L]

Si tu veux absolument boucler, rien ne t'en empêche …