aide pour une macro

[JJ1]

Bonjour à tous,
Qui peut m'aider à écrire une petite macro pour faire 10 opérations:
le principe:
On prend les nombres de 1 à 10
On prend le premier (1)
on le copie dans la cellule AD8
on copie le résultat des cellules W10, W11, W12 en EH1, EH2 et EH3
puis le suivant (2)
on copie le résultat des cellules W10, W11, W12 en EI1, EI2 et EI3
et ainsi de suite pour les 8 autres nombres copiés jusqu aux cellules EQ1,EQ2 et EQ3
qui peut m'aider? merci
Bonne soirée

 

[CBernardT]

Re : aide pour une macro

Bonsoir JJ1,

Un essai de macro :

Sub Report()
Dim Plage As Range, Cel As Range, i As Byte

Set Plage = Range("A1:A8")
i = 138
For Each Cel In Plage
Range("AD8") = Cel
Range(Cells(1, i), Cells(3, i)).Value = Range("W10:W12").Value
i = i + 1
Next Cel
End Sub

Cordialement

Bernard

 

[Gorfael]

Re : aide pour une macro

Bonjour à tous,
Qui peut m'aider à écrire une petite macro pour faire 10 opérations:
le principe:
On prend les nombres de 1 à 10
On prend le premier (1)
on le copie dans la cellule AD8
on copie le résultat des cellules W10, W11, W12 en EH1, EH2 et EH3
puis le suivant (2)
on copie le résultat des cellules W10, W11, W12 en EI1, EI2 et EI3
et ainsi de suite pour les 8 autres nombres copiés jusqu aux cellules EQ1,EQ2 et EQ3
qui peut m'aider? merci
Bonne soirée

Salut

Sub Macro1()
Dim X As Byte

For X = 1 To 10
Range("AD8") = X
ActiveSheet.Calculate 'pas forcément nécessaire
Range("EH1").Offset(0, X - 1) = Range("W10")
Range("EH1").Offset(1, X - 1) = Range("W11")
Range("EH1").Offset(2, X - 1) = Range("W12")
Next X
End Sub

A+

 

[JJ1]

Re : aide pour une macro

Bonsoir et merci à tous les deux, je vais ecrire ces macros
Bonne soirée
JJ1

 

[JJ1]

Re : aide pour une macro

Je viens de tester la macro de Gorfael, elle ne fonctionne pas, j'ai du mettre Integer au lieu de byte (erreur objet 424) et maintenant il n'y a qu'une ligne qui s'affiche en EH au lieu des 3 lignes "superposées"
par numero
Ca devait ressembler à ceci en resultat en EH1,EH2 ET EH3, puis EI1,EI2 e EI3:
4 5 etc....
6 4
8 3

par contre les nombres de 1 à 10 se copient bien en AD8
Il doit pas manquer grand chose à cette macro...

Je vais tester celle de CBernardT, mais je ne vois nulle part les nombres à tester de 1 à 10?

encore merci à vous 2
JJ

 

[JJ1]

Re : aide pour une macro

Bsr: je reviens sur le principe:
je prends le nombre1, je le copie en AD8, les 3 resultats qui s'affichent col W (10,11 et 12) je les copie en EH (1,2 et 3 ème ligne) puis je prends le nombre 2, je le copie en AD8, le résultat en W (10 11 et 12 toujours) je le copie en EI (1 2 et 3 ème ligne), j'ai donc chaque fois 3 résultats "superposés" et e continue jusqu au nombre 10
merci

 

[ChTi160]

Re : aide pour une macro

Salut JJ1
bonsoir le fil

il serait bon que tu mettes un fichier exemple de ce que tu as et de ce que tu veux c'est lus simple pour la compréhension
merci d'avance

 

[JJ1]

Re : aide pour une macro

Bonsoir , oui tu as raison je mets un bout de fichier ex
merci

 

[bqtr]

Re : aide pour une macro

bonsoir jj1

Voici une solution en passant par une MsgBox

Sub ChoixChiffre()


chiffre = InputBox(" Entrer la valeur ......", "Choix de la valeur : ")
Range("ad8").Value = chiff

If chiffre = "" Or chiffre < 1 Or chiffre > 10 Then
Exit Sub
End If

Select Case chiffre

Case Is = 1

Range("eh1").Value = Range("w10").Value
Range("eh2").Value = Range("w11").Value
Range("eh3").Value = Range("w12").Value

Case Is = 2

Range("ei1").Value = Range("w10").Value
Range("ei2").Value = Range("w11").Value
Range("ei3").Value = Range("w12").Value

' ainsi de suite jusqu'à Case Is 10

End Select


End Sub

Il suffit de créer un bouton sur la feuille pour activer la MsgBox et choisir le chiffre voulu

P.O

 

[Gorfael]

Re : aide pour une macro

Bonsoir , oui tu as raison je mets un bout de fichier ex
merci

Salut
Ton fichier avec ma macro copiée/collée et ça marche pour moi
aucun besoin de changer le type de X, puisqu'il ne va que jusqu'à 10

Fais un essai en mode pas à pas et regarde le résultat à chaque ligne de code sur le fichier Excel
A+

 

[JJ1]

Re : aide pour une macro

Bonsoir et merci a tous,
c'est bizarre car avec la macro de Gorfael je n'avais le resultat que sur une ligne?
je vais reessayer
Bonne soirée et encore merci a vous tous

 

[JJ1]

Re : aide pour une macro

Super, c'est parfait, je suis arrivé au résultat et merci encore
a+