excel: espacer des cellules dans une colonne

[invitebb29dda1]

bonjour,

voilà mon soucis du jour:
il faut que je détermine le rayonnement passant au travers un matériau.
Je dispose du spectre "A" représentant l'intensité du corps rayonnant sur une plage de 250 à 5000 nm par pas de 1.
D'autre part j'ai le spectre "B" de transmission du matériau à étudier, lui aussi de 250 à ~4500 mais par pas de 6nm (!!)

Il faudrait donc pourvoir multiplier les valeurs de A par B à chaque valeur commune aux deux colonnes (1,6,12,18...)

Je pensais insérer 5 cellules vides après chaque donnée de mon spectre B. Est-il possible de réaliser un truc comme ça genre en automatique??

merci
-----

[invitec5eb4b89]

Je crois qu'il est surtout possible de passer à un autre logiciel. Si tu veux comparer tes spectres, le mieux serait de passer à R ou Matlab...

Quoi qu'il en soit, tu peux faire facilement ce que tu décris avec une petite macro. Est-ce que tu sais "enregistrer une action" sous forme de macro et ensuite modifier cette macro pour qu'elle fasse tout le travail automatiquement ?

[invitebb29dda1]

bonjour HV,
et merci pour ta réponse.
je vais voir comment on enregistre les macros, l'idée me plait bien

Mais tu as raison l'utilisation d'un logiciel plus costaud serait ici plus adapté. Ici on est archi limité niveau soft (aucune d'installation possible) et je voulait évité l'emploi de programmes extérieurs.
Mais bon...

"R" je connaissais pas mais ça a l'air plutôt pas mal. je verrais ça ce soir si c'est pas trop compliqué

Sinon je verrai bien du Origin.
merci à toi et bonne soirée

[invitebb29dda1]

re-
j'ai essayé de d'enregistrer l'action "ajouter 5 cases de vide" à partir d'un copier-coller et ça marche.
En répétant 3 fois l'opération ça donne:

    Range("Z1:Z5").Select
    Selection.Copy
    Range("A2").Select
    Selection.Insert Shift:=xlDown
    Range("Z1:Z5").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("A8").Select
    Selection.Insert Shift:=xlDown
    Range("Z1:Z5").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("A14").Select
    Selection.Insert Shift:=xlDown
    Range("Z1:Z5").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("A20").Select
    Selection.Insert Shift:=xlDown
End Sub

Quelqu'un pourrait-il me m'expliquer svp comment je peux dire à la macro d'effectuer cette opération sur une "liste"... càd sur toutes les cases de A1 à A4000 par exemple!?
merci

[A voir en vidéo sur Futura]

[invitec5eb4b89]

Ici on est archi limité niveau soft (aucune d'installation possible) ...

Si tu veux dire que tu ne peux pas être administrateur de ta machine, ce n'est pas un problème pour R, que tu peux installer sans l'enregistrer dans le registre (moi j'appelle ca "installer en local", mais je ne sais pas si c'est le terme consacré.)

Sinon je verrai bien du Origin.

Les résultats sont très beaux en effet. Ceci dit on dirait bien que c'est payant, alors que R non, de même qu'Octave (la version libre de Matlab).

[invitec5eb4b89]

Il y a un exemple de boucle for ici, ca peut peut être servir :
http://www.commentcamarche.net/forum...c-avec-le-step

[invitebb29dda1]

re-
merci HV pour ton aide et tes conseils
après quelques essais j'ai entré:

' Tastenkombination: Strg+q
'
    
    
    For i = 2 To 3300 Step 6
    Range("Z1:Z5").Select
    Selection.Copy
    Cells([i], [1]).Select
    Selection.Insert Shift:=xlDown
    Next i
    
End Sub

et ça fait exactement ce que je veux!
bonne fin de journée ^^

[invitec5eb4b89]

Super, merci pour le code, ça peut toujours servir