Boucle en vba Excel

Version imprimable

Voir 40 message(s) de cette discussion en une page

05/01/2016, 10h21
facteur

1 pièce(s) jointe(s)

Boucle en vba Excel

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..:roll:

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..:lol:
Dans la colonne A de cet onglet , j'ai inséré les intitulés
en A1 :Provenance
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
05/01/2016, 10h29
illight

Bonjour,

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

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

Code:

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

05/01/2016, 11h21
Marc-L

Bonjour, bonjour !

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

http://perso.numericable.fr/mpl/pic/Transposition.gif

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, …
05/01/2016, 12h06
facteur

1 pièce(s) jointe(s)

Bonjour Marc,
Merci pour cette démonstation mais j'insite pour le code vba :roll:
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"...:roll:

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
05/01/2016, 13h50
Marc-L

Si tu veux absolument boucler, rien ne t'en empêche …
05/01/2016, 14h07
facteur

marc, pourrais tu m'aider...
05/01/2016, 14h17
Marc-L

C'est déjà fait avec l'animation précédente : cela donne quoi avec l'Enregistreur de macros, qu'as-tu entrepris ?!

______________________________________________________________________________________________________
L'effort fait les forts …

cela donne pas grand chose marc:

Code:

1
2
3
4
5
6
Range("A1:D34").Select
    Selection.Copy
    Sheets("Lundi_Transit ").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True

Voici mon début de code vba mais cela ne fonctionne pas

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Dim ligdebut, ligfin As String
Dim cell As Range
Dim casefin As Range
Dim sh As Worksheet
 
Set casefin = Worksheets("Lundi_Transit").Range("B1") '.End(xlDown)
Set sh = Sheets("DONNEE")
 
ligdebut = Range("D2").End(xlUp).Row
ligfin = Range("D2").End(xlDown).Row
 
 
For Each cell In sh.Range("D" & ligdebut & ":D" & ligfin)
If Range("D2").Value <> "" Then
 
casefin.Offset(0, -1).Value = sh.Range("A2").Value
 
 
End If
Next
 
 ActiveWorkbook.Save

05/01/2016, 15h15
Marc-L

« cela ne donne pas grand chose » n'éclaire pas vraiment quant à la difficulté rencontrée !

Revoir la démonstration - pourtant visuelle - en affichant l'image en grand au besoin
car ton code commence par la fin, mais où est donc passé tout ce qui précède ?!
Ce n'est vraiment pas compliqué de reproduire ces pauvres manipulations …

Sinon dans la voie compliquée du deuxième code, à quoi sert la variable cell de la ligne n°13
si ce n'est pour l'utiliser en ligne suivante ?

______________________________________________________________________________________________________
Copier / Coller n'est pas programmer !
05/01/2016, 15h34
facteur

je vais t'écouter marc .
je vais refaire ta manip avec l'enregistreur de macro et puis je vais améliorer le code.
je reviendrais vers toi si je rencontre une difficulté..:)

J'ai fait une mise à jour de la démonstration visuelle du post #4 …
Quand on est pas doué en VBA, mieux vaut se poser la question : qu'est-ce qui peut être réalisé via Excel ?
Et avec l'Enregistreur de macros, cela permet de débroussailler le terrain ! Le principe est clair …

Comme je pense ne pas être bien disponible demain, en dehors du tutoriel sur la gestion des boucles dans Excel
- vu le deuxième code la ligne n°14 sans lien avec la ligne précédente, cela sent le Copier / Coller
sans brûler une paire de neurones ! T'en es à plus de 800 posts sur ce forum … - le tutoriel sur
l'utilisation de variables tableau en VBA Excel est aussi recommandé
afin d'arriver à ce genre de code de niveau intermédiaire devant répondre au besoin du classeur joint dans le post #5 :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Sub Demo() VA = Feuil1.Cells(1).CurrentRegion.Value For C% = 4 To 9 ReDim TR(1 To 3, 1 To UBound(VA)) N& = 0 For R& = 2 To UBound(VA) If VA(R, C) > "" Then N = N + 1 TR(1, N) = VA(R, 1) TR(2, N) = VA(R, 3) TR(3, N) = VA(R, C) End If Next With Worksheets(C - 2).Cells(2).Resize(3, N) .Rows(3).NumberFormat = "_W h:mm _W" .Value = TR End With Next End Sub
______________________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

______________________________________________________________________________________________________
Lire, c'est s'investir …

Bonjour Marc,
merci pour ce code mais j'ai commencé a créer un code à partir de l'enregistrement de macro.
je me heurte à une écriture d'une variable qui permet de sélectionner une plage de cellule à partir de la cellule situé en dessous de l'entête de la colonne D ( l'entête se trouve en D1) et jusqu'à la derniere cellule non vide de la colonne B

voici la variable que je n'arrive pas à créer
Code:

1 2 3 4 5 6 7 8 9 Dim sh As Worksheet Dim b As String Dim MaPlage As Range Set sh = Sheets("DONNEE") b = Range("d" & Range("a65536").End(xlUp).Row).Row ' derniere ligne non vide de la colonne B Set MaPlage = Set MaPlage = sh.Range(Range("D1"), Range("D1").Offset(1, 0) & b)
je voulais ensuite mettre cette variable dans le bout de code suivant

'trier par heure d'arrivée croissant
Code:

1 2 3 4 5 6 7 8 9 10 With ActiveWorkbook.Worksheets("DONNEE").Sort .SortFields.Clear .SortFields.Add Range("D1") _ , xlSortOnValues, xlAscending .SetRange = MaPlage .Header = xlYes .MatchCase = False .Orientation = xlSortColumns .Apply End With

Bonjour.

Ligne n°9, pourquoi deux fois Set MaPlage = ? Quand une ligne est rouge, revoir la logique, la syntaxe …

Et il manque la feuille de calculs devant les Range ‼
Et après l'Offset mélange d'un torchon et d'une serviette ! (objet vs numéro de colonne …)
Transformer un Range en numéro de colonne pour retransformer ce numéro en Range est quelque peu superflu …
Depuis la version 2007, Excel n'est plus limité à 65 536 lignes, donc à ne pas coder en dur dans le code !
Code:

1 2 3 4 5 6 7 8 9 Dim MaPlage As Range With ActiveWorkbook.Worksheets("DONNEE") Set MaPlage = .Range("D2", .Cells(.Rows.Count, 2).End(xlUp).Offset(, 2)) MsgBox MaPlage.Address With .Sort ' suite du code End With Set MaPlage = Nothing End With
Là j'ai sélectionné de D2 jusqu'en bas de la colonne D par rapport à la dernière saisie de la colonne B.
S'il faut englober les colonnes B & C, il suffit juste de retirer l'Offset …

______________________________________________________________________________________________________
Je suis Charlie, …

merci pour l'aide marc mais le code bug lorsqu'il arrive à la ligne 10

J'ai un message d'erreur qui apparait:

Citation:

erreur d'éxécution 438
propriété ou méthode non gerée par cet objet
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Dim MaPlage As Range With ActiveWorkbook.Worksheets("DONNEE") Set MaPlage = .Range("D2", .Cells(.Rows.Count, 2).End(xlUp).Offset(, 2)) MsgBox MaPlage.Address With .Sort ' suite du code pour trier par heure d'arrivée croissant .SortFields.Clear .SortFields.Add Range("D1") _ , xlSortOnValues, xlAscending .SetRange = MaPlage .Header = xlYes .MatchCase = False .Orientation = xlSortColumns .Apply End With Set MaPlage = Nothing End With
j'ai un message d'erreur qui apparait

07/01/2016, 14h30
Marc-L

Si l'adresse de MaPlage est correcte, alors il y a une incohérence avec ce que tu tentes d'effectuer
comme par exemple D1 de la ligne n°8 en dehors de l'adresse (indiqué dans l'aide VBA) …

Inclure la cellule D1 alors dans MaPlage, je l'ai exclue vu les explications …

Sinon poster un code généré par l'Enregistreur et expliquer clairement & exhaustivement le but visé.

marc je suis un peu perdu..:roll:

Dans ton code

Code:

1
2
3
With ActiveWorkbook.Worksheets("DONNEE")
        Set MaPlage = .Range("D2", .Cells(.Rows.Count, 2).End(xlUp).Offset(, 2))
     MsgBox MaPlage.Address

J'ai remplacé D2 par B2 ce qui donne
.....

Code:

1
2
3
4
With ActiveWorkbook.Worksheets("DONNEE")
        Set MaPlage = .Range("B2", .Cells(.Rows.Count, 2).End(xlUp).Offset(, 2)) 'selection de la cellule B2
                                                                                'à la derniere cellule non vide
                                                                                'de la colonne D (offset(,2)

....
car je souhaitais la plage allant de B2 à la dernière cellule de la colonne D

pour ce qui est de l'adresse de Maplage je n'aie que ceci qui s'affiche $D$2:$D$33

Le but du code ci dessous est, dans l'onglet "DONNEE", trier la plage B2 à la dernière cellule non vide de la colonne D en fonction d'un tri croissant de la colonne D

Code:

1
2
3
4
5
6
7
8
9
10
11
12
'code pour trier par heure d'arrivée croissant
        With .Sort '=With ActiveWorkbook.Worksheets("DONNEE").Sort
            .SortFields.Clear
            .SortFields.Add Range("D1"), xlSortOnValues, xlAscending
            .SetRange = MaPlage
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlSortColumns
            .Apply
        End With
        Set MaPlage = Nothing
    End With

07/01/2016, 15h24
facteur

marc, j'ai trouvé le probléme. C'est une erreur de frappe dans la ligne

Code:

.SetRange = MaPlage

il n ' a pas de "="

Code:

.SetRange MaPlage
07/01/2016, 15h29
Marc-L

Citation:

Envoyé par facteur

J'ai remplacé D2 par B2

Ben non comme pourtant expliqué :

• c'était D1 à la place de D2 ‼

• Retirer l'Offset s'il est nécessaire d'inclure les colonnes B & C.

Je suis Off jusqu'en début de soirée …
07/01/2016, 15h41
facteur

Ok marc
Merci encore*et bonne fin de journée

Voir 40 message(s) de cette discussion en une page