Discussion :

[Matthieu_12]

Bonjour, j'ai un problème avec un petit bout de code.

J'ai une colonne contenant environ 5000 entrée. Toutes les 85 entrées, je souhaiterais sélectionner la cellule suivante, à partir de celle-ci étendre la sélection jusqu'en bas, la couper, et la coller une cellule après vers le bas (donc décaler tout le contenu de la colonne d'un cran) et dans la cellule vide créée (dû au décalage de 1) faire une simple moyenne entre la valeur de la cellule avant celle vide et celle juste après.

Je sais, c'est pas le Pérou mais ça fait un moment que j'ai plus la tête au VBA et comme je sais que la syntaxe est particulière, j'ai dû me foirer quelque part.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub addline()
 
    Dim i, s, x As Integer
    Dim z, y As Long
 
    s = 85
    x = 1
 
    Do
        Range("B" & s * x + 1).End(xlDown).Cut Destination:=Range("B" & s * x + 2)
        z = Range("B" & s * x).Value + Range("B" & s * x + 2).Value
        y = z / 2
        Range("B" & s * x + 1).Value = y
        x = x + 1
    Loop While x = 58
 
End Sub

Auriez-vous une suggestion ?

[thekat]

bonjour !

je suggère d'insérer une ligne à la ligne 86 et toutes les x lignes (85 86 ?), afin de faire le décalage du reste des données en une seule manœuvre ...

le n° de ligne insérée est connu. On peut insérer la fonction moyenne souhaitée ...

AMHA

[thekat]

Loop While x = 58
la boucle s’exécute 1 fois puis sortie car "boucle pendant que x=58"


Loop until x=58 ou >=58 suivant le cas pour intégrer le dernier élément de boucle.


exécuter la sub en mode F8, exécution pas à pas pour valider le 1 er mouvement de la boucle

si modif du code, enregistrer avant de lancer ci dessous

exécuter la sub en mode F5 en mettant

if x>=57 then stop juste sous le "do".

ceci permettra de suivre l'avant dernier mouvement de la boucle et le dernier mouvement à 58

Nota : j'ai utilisé les balises code pour le message forum mais je ne vois aucune différence en prévisualisation. je mets le code en bleu

[Alex020181]

Bonjour

En PJ un fichier qui fait le décalage et les moyennes instantanément. Tu peux ajouter à loisir des lignes en B tu auras toujours des regroupements de 85 lignes.
Pour que tu puisses vérifier le résultat j'ai reporté les données en colonne E mais il te suffit de modifier la dernière ligne de code si le résultat te va.

Teste et dis nous.

[Alex020181]

Mon dernier fichier joint a t'il résolu votre problème ?