For next avec Step

Version imprimable

For next avec Step

Bonjour,

Je cherche à copier des données colonnes dont la quantité est variables en décalant tous les 3 colonnes et les coller sur des lignes. Je pensais faire une boucle avec For next mais je n'y arrive pas. Voici mon code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub ECART ()
 
Dim FirstDate As Date
Dim LastDate As Date
Dim Ecartdates As Long
Dim i As Integer
Dim C As Integer
 
FirstDate = Range("Datedeb").Value
LastDate = Range("Datefin").Value
 
Ecartdates = DateDiff("d", FirstDate, LastDate) + 1
NBDATE = Ecartdates
 
'Pour le nb de ligne
For i = 1 To NBDATE
 
    'Pour le nb de colonne en décalant toutes les 3 colonnes
    For C = 1 To NBDATE step 3
 
'Je veux commencer à la colonne 5 jusqu'au nb de colonne défini par NBDATE et coller cette information à la ligne 47 de la colonne 3. Évidemment, le nb de ligne est défini par NBDATE
 
Cells(47 + i, 3) = Cells(38, c + 4)
 
 
Next
 
    Next
 
End sub

Merci énormément,

J'ai réécrit votre code ainsi:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Sub test05()
 
Dim FirstDate As Date
Dim LastDate As Date
Dim Ecartdates As Long
Dim i As Integer
Dim j As Integer
Dim Source As Variant
Dim Destination As Variant
Dim myCol As Long
 
 myCol = 69
 
 Sheets("sheet5").Select
 
 FirstDate = Sheets("sheet5").Range("Datedeb").Value
 LastDate = Sheets("sheet5").Range("Datefin").Value
 
 Ecartdates = DateDiff("d", FirstDate, LastDate) + 1
 NBDATE = Ecartdates
 
 'Pour le nb de ligne
 For i = 1 To NBDATE
 
     'Pour le nb de colonne en décalant toutes les 3 colonnes
     For j = 1 To NBDATE Step 3
 
     'Je veux commencer à la colonne 5 jusqu'au nb de colonne défini par NBDATE
     'et coller cette information à la ligne 47 de la colonne 3.
     'Évidemment, le nb de ligne est défini par NBDATE
    Source = Chr(myCol) & 38
    Destination = "C" & (47 + i)
    Sheets("sheet5").Range(Destination).Value = Sheets("sheet5").Range(Source).Value
 
     Next j
        myCol = myCol + 1
 Next i
 
End Sub

qui fonctionne, mais je ne vois pas très bien ce que vous voulez faire; pourriez-vous poster une image de votre feuille avec les données commençant par E38 ainsi que les résultats attendus en C48 ?

14/10/2016, 04h14
SteveRafferty

1 pièce(s) jointe(s)

Pièce jointe 222599

Voici le fichier. Merci pour la réponse. Je vais essayer le code demain matin.
14/10/2016, 08h09
unparia

Bonjour SteveRafferty
J'appelle simplement ton attention su la notation (cells) que tu utilises
Dans cells(x,y) , x est la ligne et non la colonne (y est la colonne) ;)
14/10/2016, 18h11
SteveRafferty

@Zekraoui_Jakani

Bonjour,

Le code fonctionne très bien alors merci pour ça.

Par ailleurs, il ne fait pas de saut de 3 colonnes. Je m'explique, je cherche à prendre l'information à partir de la colonne E ligne 38 et sauter de 3 colonnes lors du début de la boucle et coller cette information qui est variable à la colonne C en débutant à la ligne 48. Donc, on saute 3 colonnes qui débute à la colonne E (E, ensuite H,K,N,O etc.). et on colle tout ça en C48 vers le bas.

Pour ce qui est de l'image, je n'arrive pas à l'ajouter. Peux-tu m'indiquer comment?

Un grand merci pour cette aide précieuse!

Bonjour, bonjour !

Une boucle est inutile en appliquant le B-A-BA d'Excel, une simple formule de calculs (INDEX) et ce même en VBA !
Code:

1 2 3 4 Sub Demo1() VA = Application.Index(Feuil1.[A38:BJ38], , [{5,8,11,14,17,20,23,26,29,32,35,38,41,44,47,50,53,56,59,62}]) Feuil1.[E48].Resize(UBound(VA)).Value = Application.Transpose(VA) End Sub
Une variante calculant automatiquement la matrice des colonnes à extraire :
Code:

1 2 3 4 5 6 Sub Demo2() With Feuil1 VA = Application.Index(.[A38:BJ38], , Filter(.Evaluate("IF(MOD(COLUMN(E38:BJ38),3)=2,COLUMN(E38:BJ38))"), False, False)) .[E48].Resize(UBound(VA)).Value = Application.Transpose(VA) End With End Sub
Le B-A-BA évitant les usines à gaz …

Je laisse le code par boucle aux débutants car il suffit d'un peu de jugeote, juste en réchauffant une paire de neurones !

Voilà, voilà !

_________________________________________________________________________________________________________

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

_________________________________________________________________________________________________________
Je suis Paris, Nice, Bruxelles, Charlie, …

14/10/2016, 22h58
SteveRafferty

@MARC-L

Ça tombe un peu mal, car je suis débutant en VBA, c'est d'ailleurs pour ça que je demande de l'aide sur des choses simples en VBA.

Merci pour la réponse malgré que je suis moins reconnaissant pour le genre d'humour utilisé dans la réponse.

Il manque certains éléments au code pour que je puisse avoir un nombre de colonnes variables selon le nombre de jour défini par Ecartdate. Je vais tenter d'utiliser mes neurones pour ce faire.

Merci!
15/10/2016, 17h05
Marc-L

Tabernacle ! Si tu tiens à te faire rhabiller pour l'hiver, aucun souci !

Déjà ma réponse était pour démontrer l'inutilité d'une boucle car souvent les débutants partent … loin !
Tu es débutant en VBA, certes, mais tu dois avoir les bases en Excel !
Qui plus est elle démontre surtout l'inutilité même d'un code VBA !
Car une simple formule de calculs peut être utilisée pour remplir la vingtaine de cellules ‼

Donc la question est : pourquoi un code ?

Je me suis demandé si ce n'était pas un devoir d'étudiant forcé à utiliser une boucle pour un exercice d'algorithmie …
C'est pour cela que je n'ai pas suivi cette voie, de toute manière ce serait hors cadre du forum (voir ses règles),
et tout à fait inutile dans une logique excelienne ! Il n'y avait donc aucun humour …

En s'intéressant à la procédure Demo2, à la formule utilisée pour la matrice des colonnes puis en jetant un œil
à ton propre classeur joint dans le post #3, tu aurais compris même qu'un saut de trois colonnes est aussi inutile !
Demo2 répondant juste à ta demande de sauter trois colonnes mais on peut faire sans et plus simple,
ce que évidemment j'ai gardé sous le coude avec le nombre de colonnes variables, il ne faut pas plus de lignes de code,
attendant donc ta réponse … Vu cette dernière,
je me limite donc à t'indiquer de consulter l'aide VBA de CurrentRegion, UsedRange et de End(xlToRight) …

Sans compter la :faq: ou un tutoriel à disposition sur ce forum traitant ce sujet !

L'autre raison est j'ai essayé de suivre ta logique avec ton code et ton classeur joint : aïe aïe aïe ‼

Le classeur ne correspond pas au code ou il manque des zones devant être renseignées pour le bon fonctionnement !
Bref du genre sans aucune explication démerdez-vous !
En se conformant juste à la présentation initiale succincte, EcartDate n'est pas utile
ou sinon cela demande une explication digne de ce nom, claire & exhaustive, avec tenants et aboutissants …

Si vraiment tu as besoin absolument d'une boucle, hier un collégien de passage au bureau en jetant un œil
par dessus mon épaule en voyant ton classeur m'a demandé « C'est pour quoi faire ? »
Après lui avoir expliqué, malgré que lui non seulement il ne connaît pas le VBA mais qui plus est pas du tout Excel,
je vais te traduire sa logique imparable !

• C = 5 (n° de colonne)
• L = 48 (n° de ligne)

Au sein d'une boucle (Do … Loop voir l'aide VBA, le Do si la cellule de la ligne n°38 de la colonne de la variable C n'est pas vide) :
• La cellule de la ligne de la variable L de la colonne E = la cellule de la ligne n°38 de la colonne de la variable C
• C = C + 3
• L = L + 1

Voilà rien besoin d'autre, pas compliqué, tout droit sorti de l'esprit d'un gamin - normal, pas un génie - de 12 ans !
Peut pas faire plus simple et le tout en moins de dix lignes de code …
16/10/2016, 16h31
SteveRafferty

@Marc-L
Tout d'abord, tu dois savoir qu'au Canada, nous avons déjà l'habillement qu'il faut pour passer l'hiver. Si tu viens faire un tour au Canada, je pourrai t'aider à t'habiller comme il se doit.

D'abord, il se peut que l'utilisateur fasse rouler un très grand nombre de données ce qui est beaucoup trop lourd pour une simple formule de calculs Excel. De plus, je cherchais un code efficace et non copier coller des formules Excel. Ma base Excel est très bonne, pas celle de VBA.

Si ça peut aider quelqu'un d'autre, voici le code final qui fonctionne très bien
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Sub EcartHisto () C = 5 L = 48 Do Until IsEmpty(Cells(38, C)) Cells(L, 3) = Cells(38, C) C = C + 3 L = L + 1 Loop End sub
Avec mes connaissances d'un enfant de moins de 12 ans et ton aide, j'ai réussi à faire fonctionner la boucle.

Pour une première fois sur ce forum, je ne m'attendais pas à recevoir des insultes. Tu devrais revoir ta façon t'interagir avec les gens.

Tout de même, merci pour ton aide, c'est apprécié!

1. Pas d'insulte, juste un constat : il suffit de se donner la peine de réchauffer une paire de neurones …

2. Une boucle d'un code VBA est souvent bien moins efficace - donc plus lente - qu'une formule utilisée dans un code,
il y a déjà des exemples le prouvant sur ce site équivalents à ta problématique !

3. Basée sur le classeur joint, la version sans saut s'appuyant juste sur le titre des colonnes :
Code:

1 2 3 4 5 6 Sub Demo() With Feuil1.[A11].CurrentRegion.Rows VA = Filter(.Parent.Evaluate(Replace("IF(#1=E47,COLUMN(#1))", "#1", .Item(2).Address)), False, False) .Parent.[E48].Resize(UBound(VA) + 1).Value = Application.Transpose(Application.Index(.Item(28), , VA)) End With End Sub
_________________________________________________________________________________________________________
Deux choses sont infinies : l’Univers et la bêtise humaine.
Mais en ce qui concerne l’Univers, je n’en ai pas encore acquis la certitude absolue ! (Albert Einstein)