instruction pour compléter ma macro S.V.P

  • Initiateur de la discussion virginie
  • Date de début
V

virginie

Guest
Bonjour le forum,
J’ai fait une macro a l’aide de l’enregistreur.je souhaite reproduire
La même action avec les données actualisées lors du premier enregistrement
Quelle instruction, (s) doit figurer pour que cela fonctionne


Sub MacroDécalerValeurs()
'

' Macro enregistrée le 22/08/2003
'

'
Range("A2723:EH2740").Select
Selection.Copy

Range("A2741").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll ToRight:=7
ActiveWindow.SmallScroll Down:=9
Range("T2741").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = _
"=0.2*'Feuil1(4)'!R[1052]C[-18]+0.8*'Feuil1(4)'!R[1052]C[-11]"
Range("T2742").Select
ActiveCell.FormulaR1C1 = _
"=0.3*'Feuil1(4)'!R[1051]C[-18]+0.7*'Feuil1(4)'!R[1051]C[-4]"
ActiveCell.FormulaR1C1 = _
"=0.3*'Feuil1(4)'!R[1051]C[-18]+0.7*'Feuil1(4)'!R[1051]C[-4]"
Range("T2743").Select
ActiveCell.FormulaR1C1 = _
"=0.4*'Feuil1(4)'!R[1050]C[-18]+0.6*'Feuil1(4)'!R[1050]C[3]"
Range("T2744").Select
ActiveCell.FormulaR1C1 = _
"=0.5*'Feuil1(4)'!R[1049]C[-18]+0.5*'Feuil1(4)'!R[1049]C[10]"
Range("T2745").Select
ActiveCell.FormulaR1C1 = _
"=0.6*'Feuil1(4)'!R[1048]C[-18]+0.4*'Feuil1(4)'!R[1048]C[17]"
Range("T2746").Select
ActiveCell.FormulaR1C1 = _
"=0.7*'Feuil1(4)'!R[1047]C[-18]+0.3*'Feuil1(4)'!R[1047]C[24]"
Range("T2747").Select
ActiveCell.FormulaR1C1 = _
"=0.7*'Feuil1(4)'!R[1046]C[-18]+0.3*'Feuil1(4)'!R[1046]C[24]"
Range("T2748").Select
ActiveCell.FormulaR1C1 = _
"=0.9*'Feuil1(4)'!R[1045]C[-18]+0.1*'Feuil1(4)'!R[1045]C[38]"
Range("T2741:T2748").Select
Selection.AutoFill Destination:=Range("T2741:Z2748"), Type:=xlFillDefault
Range("T2741:Z2748").Select
Range("T2750").Select
ActiveCell.FormulaR1C1 = _
"=0.2*'Feuil1(4)'!R[1044]C[-18]+0.8*'Feuil1(4)'!R[1044]C[-11]"
ActiveCell.FormulaR1C1 = _
"=0.2*'Feuil1(4)'!R[1044]C[-18]+0.8*'Feuil1(4)'!R[1044]C[-11]"
Range("T2751").Select
ActiveCell.FormulaR1C1 = _
"=0.3*'Feuil1(4)'!R[1043]C[-18]+0.7*'Feuil1(4)'!R[1043]C[-4]"
Range("T2752").Select
ActiveCell.FormulaR1C1 = _
"=0.4*'Feuil1(4)'!R[1042]C[-18]+0.6*'Feuil1(4)'!R[1042]C[3]"
Range("T2753").Select
ActiveCell.FormulaR1C1 = _
"=0.5*'Feuil1(4)'!R[1041]C[-18]+0.5*'Feuil1(4)'!R[1041]C[10]"
Range("T2754").Select
ActiveCell.FormulaR1C1 = _
"=0.6*'Feuil1(4)'!R[1040]C[-18]+0.4*'Feuil1(4)'!R[1040]C[17]"
Range("T2755").Select
ActiveCell.FormulaR1C1 = _
"=0.7*'Feuil1(4)'!R[1039]C[-18]+0.3*'Feuil1(4)'!R[1039]C[24]"
Range("T2756").Select
ActiveWindow.SmallScroll Down:=3
ActiveCell.FormulaR1C1 = _
"=0.8*'Feuil1(4)'!R[1038]C[-18]+0.2*'Feuil1(4)'!R[1038]C[31]"
Range("T2757").Select
ActiveCell.FormulaR1C1 = _
"=0.9*'Feuil1(4)'!R[1037]C[-18]+0.1*'Feuil1(4)'!R[1037]C[38]"
Range("T2750:T2757").Select
Selection.AutoFill Destination:=Range("T2750:Z2757"), Type:=xlFillDefault
Range("T2750:Z2757").Select
ActiveWindow.SmallScroll ToRight:=7
Range("AJ2741").Select
ActiveCell.FormulaR1C1 = "=0.2*Feuil2!R[1050]C[-19]+0.8*Feuil2!R[1050]C[42]"
Range("AJ2742").Select
ActiveCell.FormulaR1C1 = "=0.3*Feuil2!R[1049]C[-19]+0.7*Feuil2!R[1049]C[35]"
Range("AJ2743").Select
ActiveCell.FormulaR1C1 = "=0.4*Feuil2!R[1048]C[-19]+0.6*Feuil2!R[1048]C[28]"
Range("AJ2744").Select
ActiveCell.FormulaR1C1 = "=0.5*Feuil2!R[1047]C[-19]+0.5*Feuil2!R[1047]C[21]"
Range("AJ2745").Select
ActiveCell.FormulaR1C1 = "=0.6*Feuil2!R[1046]C[-19]+0.4*Feuil2!R[1046]C[14]"
Range("AJ2746").Select
ActiveCell.FormulaR1C1 = "=0.7*Feuil2!R[1045]C[-19]+0.3*Feuil2!R[1045]C[7]"
Range("AJ2747").Select
ActiveCell.FormulaR1C1 = "=0.8*Feuil2!R[1044]C[-19]+0.2*Feuil2!R[1044]C"
Range("AJ2748").Select
ActiveCell.FormulaR1C1 = "=0.9*Feuil2!R[1043]C[-19]+0.1*Feuil2!R[1043]C[-7]"
Range("AJ2741:AJ2748").Select
Selection.AutoFill Destination:=Range("AJ2741:AP2748"), Type:=xlFillDefault
Range("AJ2741:AP2748").Select
Range("AJ2750").Select
ActiveCell.FormulaR1C1 = "=0.2*Feuil2!R[1042]C[-19]+0.8*Feuil2!R[1042]C[42]"
ActiveCell.FormulaR1C1 = "=0.2*Feuil2!R[1042]C[-19]+0.8*Feuil2!R[1042]C[42]"
Range("AJ2751").Select
ActiveCell.FormulaR1C1 = "=0.3*Feuil2!R[1041]C[-19]+0.7*Feuil2!R[1041]C[35]"
Range("AJ2752").Select
ActiveCell.FormulaR1C1 = "=0.4*Feuil2!R[1040]C[-19]+0.6*Feuil2!R[1040]C[28]"
Range("AJ2753").Select
ActiveCell.FormulaR1C1 = "=0.5*Feuil2!R[1039]C[-19]+0.5*Feuil2!R[1039]C[21]"
Range("AJ2754").Select
ActiveCell.FormulaR1C1 = "=0.6*Feuil2!R[1038]C[-19]+0.4*Feuil2!R[1038]C[14]"
Range("AJ2755").Select
ActiveCell.FormulaR1C1 = "=0.7*Feuil2!R[1037]C[-19]+0.3*Feuil2!R[1037]C[7]"
Range("AJ2756").Select
ActiveCell.FormulaR1C1 = "=0.8*Feuil2!R[1036]C[-19]+0.2*Feuil2!R[1036]C"
Range("AJ2757").Select
ActiveCell.FormulaR1C1 = "=0.9*Feuil2!R[1035]C[-19]+0.1*Feuil2!R[1035]C[-7]"
Range("AJ2750:AJ2757").Select
Selection.AutoFill Destination:=Range("AJ2750:AP2757"), Type:=xlFillDefault
Range("AJ2750:AP2757").Select
Range("AB2741").Select
Sheets("Feuil6.1").Select

End Sub

Merci pour l’aide que vous voulez bien m’apporter.

Virginie
 
Trier par date Trier par votes
V

vincent

Guest
salut


l'enregistreur de macro peut faire des miracles mais là ce qu'il a fait est indigerable par mon petit cerveau et par consequent je ne vois pas quoi modifier.Te serais t'il possible expliquer ce que doit faire cette macro voir envoyer un exemple du resultat.
 
Vote positif 0 Vote négatif
J

Jean-Marie

Guest
Bonsoir Virginie

Déjà tu peux supprimer des select qui ralentissent l'exécution de la macro


Sub MacroDécalerValeurs()
'

' Macro enregistrée le 22/08/2003
'

'
Range("A2723:EH2740").Select
Selection.Copy

Range("A2741").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll ToRight:=7
ActiveWindow.SmallScroll Down:=9
Range("T2741").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 ="=0.2*'Feuil1(4)'!R[1052]C[-18]+0.8*'Feuil1(4)'!R[1052]C[-11]"
Range("T2742")FormulaR1C1 ="=0.3*'Feuil1(4)'!R[1051]C[-18]+0.7*'Feuil1(4)'!R[1051]C[-4]"
ActiveCell.FormulaR1C1 ="=0.3*'Feuil1(4)'!R[1051]C[-18]+0.7*'Feuil1(4)'!R[1051]C[-4]"
Range("T2743")FormulaR1C1 ="=0.4*'Feuil1(4)'!R[1050]C[-18]+0.6*'Feuil1(4)'!R[1050]C[3]"
Range("T2744")FormulaR1C1 ="=0.5*'Feuil1(4)'!R[1049]C[-18]+0.5*'Feuil1(4)'!R[1049]C[10]"
Range("T2745")FormulaR1C1 ="=0.6*'Feuil1(4)'!R[1048]C[-18]+0.4*'Feuil1(4)'!R[1048]C[17]"
Range("T2746")FormulaR1C1 ="=0.7*'Feuil1(4)'!R[1047]C[-18]+0.3*'Feuil1(4)'!R[1047]C[24]"
Range("T2747")FormulaR1C1 ="=0.7*'Feuil1(4)'!R[1046]C[-18]+0.3*'Feuil1(4)'!R[1046]C[24]"
Range("T2748")FormulaR1C1 ="=0.9*'Feuil1(4)'!R[1045]C[-18]+0.1*'Feuil1(4)'!R[1045]C[38]"
Range("T2741:T2748").Select
Selection.AutoFill Destination:=Range("T2741:Z2748"), Type:=xlFillDefault
Range("T2741:Z2748").Select
Range("T2750")FormulaR1C1 ="=0.2*'Feuil1(4)'!R[1044]C[-18]+0.8*'Feuil1(4)'!R[1044]C[-11]"
ActiveCell.FormulaR1C1 ="=0.2*'Feuil1(4)'!R[1044]C[-18]+0.8*'Feuil1(4)'!R[1044]C[-11]"
Range("T2751")FormulaR1C1 ="=0.3*'Feuil1(4)'!R[1043]C[-18]+0.7*'Feuil1(4)'!R[1043]C[-4]"
Range("T2752")FormulaR1C1 ="=0.4*'Feuil1(4)'!R[1042]C[-18]+0.6*'Feuil1(4)'!R[1042]C[3]"
Range("T2753")FormulaR1C1 ="=0.5*'Feuil1(4)'!R[1041]C[-18]+0.5*'Feuil1(4)'!R[1041]C[10]"
Range("T2754")FormulaR1C1 ="=0.6*'Feuil1(4)'!R[1040]C[-18]+0.4*'Feuil1(4)'!R[1040]C[17]"
Range("T2755")FormulaR1C1 ="=0.7*'Feuil1(4)'!R[1039]C[-18]+0.3*'Feuil1(4)'!R[1039]C[24]"
Range("T2756").Select
ActiveWindow.SmallScroll Down:=3
ActiveCell.FormulaR1C1 ="=0.8*'Feuil1(4)'!R[1038]C[-18]+0.2*'Feuil1(4)'!R[1038]C[31]"
Range("T2757")FormulaR1C1 ="=0.9*'Feuil1(4)'!R[1037]C[-18]+0.1*'Feuil1(4)'!R[1037]C[38]"
Range("T2750:T2757").Select
Selection.AutoFill Destination:=Range("T2750:Z2757"), Type:=xlFillDefault
Range("T2750:Z2757").Select
ActiveWindow.SmallScroll ToRight:=7
Range("AJ2741")FormulaR1C1 = "=0.2*Feuil2!R[1050]C[-19]+0.8*Feuil2!R[1050]C[42]"
Range("AJ2742")FormulaR1C1 = "=0.3*Feuil2!R[1049]C[-19]+0.7*Feuil2!R[1049]C[35]"
Range("AJ2743")FormulaR1C1 = "=0.4*Feuil2!R[1048]C[-19]+0.6*Feuil2!R[1048]C[28]"
Range("AJ2744")FormulaR1C1 = "=0.5*Feuil2!R[1047]C[-19]+0.5*Feuil2!R[1047]C[21]"
Range("AJ2745")FormulaR1C1 = "=0.6*Feuil2!R[1046]C[-19]+0.4*Feuil2!R[1046]C[14]"
Range("AJ2746")FormulaR1C1 = "=0.7*Feuil2!R[1045]C[-19]+0.3*Feuil2!R[1045]C[7]"
Range("AJ2747")FormulaR1C1 = "=0.8*Feuil2!R[1044]C[-19]+0.2*Feuil2!R[1044]C"
Range("AJ2748")FormulaR1C1 = "=0.9*Feuil2!R[1043]C[-19]+0.1*Feuil2!R[1043]C[-7]"
Range("AJ2741:AJ2748").Select
Selection.AutoFill Destination:=Range("AJ2741:AP2748"), Type:=xlFillDefault
Range("AJ2741:AP2748").Select
Range("AJ2750")FormulaR1C1 = "=0.2*Feuil2!R[1042]C[-19]+0.8*Feuil2!R[1042]C[42]"
ActiveCell.FormulaR1C1 = "=0.2*Feuil2!R[1042]C[-19]+0.8*Feuil2!R[1042]C[42]"
Range("AJ2751")FormulaR1C1 = "=0.3*Feuil2!R[1041]C[-19]+0.7*Feuil2!R[1041]C[35]"
Range("AJ2752")FormulaR1C1 = "=0.4*Feuil2!R[1040]C[-19]+0.6*Feuil2!R[1040]C[28]"
Range("AJ2753")FormulaR1C1 = "=0.5*Feuil2!R[1039]C[-19]+0.5*Feuil2!R[1039]C[21]"
Range("AJ2754")FormulaR1C1 = "=0.6*Feuil2!R[1038]C[-19]+0.4*Feuil2!R[1038]C[14]"
Range("AJ2755")FormulaR1C1 = "=0.7*Feuil2!R[1037]C[-19]+0.3*Feuil2!R[1037]C[7]"
Range("AJ2756")FormulaR1C1 = "=0.8*Feuil2!R[1036]C[-19]+0.2*Feuil2!R[1036]C"
Range("AJ2757")FormulaR1C1 = "=0.9*Feuil2!R[1035]C[-19]+0.1*Feuil2!R[1035]C[-7]"
Range("AJ2750:AJ2757").Select
Selection.AutoFill Destination:=Range("AJ2750:AP2757"), Type:=xlFillDefault
Range("AJ2750:AP2757").Select ‘??????
Range("AB2741").Select
Sheets("Feuil6.1").Select

End Sub

@+Jean-Marie
 
Vote positif 0 Vote négatif
V

virginie

Guest
Bonjour Jean-Marie et Vincent,

J'ai appliqué ton conseil Jean - Marie
mais cela me donne une erreur de compilation ,sur toutes les lignes redéfinies comme tel:

ActiveCell.FormulaR1C1 ="=0.2*'Feuil1(4)'!R[1052]C[-18]+0.8*'Feuil1(4)'!R[1052]C[-11]"

et qui apparraissent en rouge.

pour plus d'explication je voudrai que par un simple click que cette macro
qui donne un tableau a partir de la ligne, A 2741 a EH 2758,
s'exécute a nouveau a partir de la ligne, A 2759 a EH 2776....ect.

j'espère avoir été plus clair


Virginie
 
Vote positif 0 Vote négatif
M

michel

Guest
bonjour virginie , vincent et jean marie

pour l'exemple de jean marie , il ne manque un point sur certaines lignes , juste avant Formula (seulement pour les lignes écrites en "rouge")



ci joint une version plus radicale : il n'y a plus de select du tout

Sub MacroDécalerValeurs()

Range("A2723:EH2740").Copy
Range("A2741").PasteSpecial

Range("T2741").FormulaR1C1 = "=0.2*'Feuil1(4)'!R[1052]C[-18]+0.8*'Feuil1(4)'!R[1052]C[-11]"
Range("T2742").FormulaR1C1 = "=0.3*'Feuil1(4)'!R[1051]C[-18]+0.7*'Feuil1(4)'!R[1051]C[-4]"
ActiveCell.FormulaR1C1 = "=0.3*'Feuil1(4)'!R[1051]C[-18]+0.7*'Feuil1(4)'!R[1051]C[-4]"
Range("T2743").FormulaR1C1 = "=0.4*'Feuil1(4)'!R[1050]C[-18]+0.6*'Feuil1(4)'!R[1050]C[3]"
Range("T2744").FormulaR1C1 = "=0.5*'Feuil1(4)'!R[1049]C[-18]+0.5*'Feuil1(4)'!R[1049]C[10]"
Range("T2745").FormulaR1C1 = "=0.6*'Feuil1(4)'!R[1048]C[-18]+0.4*'Feuil1(4)'!R[1048]C[17]"
Range("T2746").FormulaR1C1 = "=0.7*'Feuil1(4)'!R[1047]C[-18]+0.3*'Feuil1(4)'!R[1047]C[24]"
Range("T2747").FormulaR1C1 = "=0.7*'Feuil1(4)'!R[1046]C[-18]+0.3*'Feuil1(4)'!R[1046]C[24]"
Range("T2748").FormulaR1C1 = "=0.9*'Feuil1(4)'!R[1045]C[-18]+0.1*'Feuil1(4)'!R[1045]C[38]"

Range("T2741:T2748").AutoFill Destination:=Range("T2741:Z2748"), Type:=xlFillDefault

Range("T2750").FormulaR1C1 = "=0.2*'Feuil1(4)'!R[1044]C[-18]+0.8*'Feuil1(4)'!R[1044]C[-11]"
Range("T2751").FormulaR1C1 = "=0.3*'Feuil1(4)'!R[1043]C[-18]+0.7*'Feuil1(4)'!R[1043]C[-4]"
Range("T2752").FormulaR1C1 = "=0.4*'Feuil1(4)'!R[1042]C[-18]+0.6*'Feuil1(4)'!R[1042]C[3]"
Range("T2753").FormulaR1C1 = "=0.5*'Feuil1(4)'!R[1041]C[-18]+0.5*'Feuil1(4)'!R[1041]C[10]"
Range("T2754").FormulaR1C1 = "=0.6*'Feuil1(4)'!R[1040]C[-18]+0.4*'Feuil1(4)'!R[1040]C[17]"
Range("T2755").FormulaR1C1 = "=0.7*'Feuil1(4)'!R[1039]C[-18]+0.3*'Feuil1(4)'!R[1039]C[24]"
Range("T2756").FormulaR1C1 = "=0.8*'Feuil1(4)'!R[1038]C[-18]+0.2*'Feuil1(4)'!R[1038]C[31]"
Range("T2757").FormulaR1C1 = "=0.9*'Feuil1(4)'!R[1037]C[-18]+0.1*'Feuil1(4)'!R[1037]C[38]"

Range("T2750:T2757").AutoFill Destination:=Range("T2750:Z2757"), Type:=xlFillDefault

Range("AJ2741").FormulaR1C1 = "=0.2*Feuil2!R[1050]C[-19]+0.8*Feuil2!R[1050]C[42]"
Range("AJ2742").FormulaR1C1 = "=0.3*Feuil2!R[1049]C[-19]+0.7*Feuil2!R[1049]C[35]"
Range("AJ2743").FormulaR1C1 = "=0.4*Feuil2!R[1048]C[-19]+0.6*Feuil2!R[1048]C[28]"
Range("AJ2744").FormulaR1C1 = "=0.5*Feuil2!R[1047]C[-19]+0.5*Feuil2!R[1047]C[21]"
Range("AJ2745").FormulaR1C1 = "=0.6*Feuil2!R[1046]C[-19]+0.4*Feuil2!R[1046]C[14]"
Range("AJ2746").FormulaR1C1 = "=0.7*Feuil2!R[1045]C[-19]+0.3*Feuil2!R[1045]C[7]"
Range("AJ2747").FormulaR1C1 = "=0.8*Feuil2!R[1044]C[-19]+0.2*Feuil2!R[1044]C"
Range("AJ2748").FormulaR1C1 = "=0.9*Feuil2!R[1043]C[-19]+0.1*Feuil2!R[1043]C[-7]"

Range("AJ2741:AJ2748").Select
Selection.AutoFill Destination:=Range("AJ2741:AP2748"), Type:=xlFillDefault
Range("AJ2741:AP2748").FormulaR1C1 = "=0.2*Feuil2!R[1042]C[-19]+0.8*Feuil2!R[1042]C[42]"

Range("AJ2751").FormulaR1C1 = "=0.3*Feuil2!R[1041]C[-19]+0.7*Feuil2!R[1041]C[35]"
Range("AJ2752").FormulaR1C1 = "=0.4*Feuil2!R[1040]C[-19]+0.6*Feuil2!R[1040]C[28]"
Range("AJ2753").FormulaR1C1 = "=0.5*Feuil2!R[1039]C[-19]+0.5*Feuil2!R[1039]C[21]"
Range("AJ2754").FormulaR1C1 = "=0.6*Feuil2!R[1038]C[-19]+0.4*Feuil2!R[1038]C[14]"
Range("AJ2755").FormulaR1C1 = "=0.7*Feuil2!R[1037]C[-19]+0.3*Feuil2!R[1037]C[7]"
Range("AJ2756").FormulaR1C1 = "=0.8*Feuil2!R[1036]C[-19]+0.2*Feuil2!R[1036]C"
Range("AJ2757").FormulaR1C1 = "=0.9*Feuil2!R[1035]C[-19]+0.1*Feuil2!R[1035]C[-7]"
Range("AJ2750:AJ2757").AutoFill Destination:=Range("AJ2750:AP2757"), Type:=xlFillDefault

'on garde?
Sheets("Feuil6.1").Select

End Sub



je n'ai pas pu le tester , je suis curieux de savoir si cela peut fonctionner

bonne journée
michel
 
Vote positif 0 Vote négatif
M

michel

Guest
rebonjour

ouppsss... j'ai été un peu vite...

la 5eme ligne peut etre supprimée
ActiveCell.FormulaR1C1 = "=0.3*'Feuil1(4)'!R[1051]C[-18]+0.7*'Feuil1(4)'!R[1051]C[-4]"


Range("AJ2741:AJ2748").Select
Selection.AutoFill Destination:=Range("AJ2741:AP2748"), Type:=xlFillDefault

peut etre remplacé par

Range("AJ2741:AJ2748").AutoFill Destination:=Range("AJ2741:AP2748"), Type:=xlFillDefault


bonne journée
michel
 
Vote positif 0 Vote négatif
V

virginie

Guest
Bonjour Michel,

J'ai appliqué également la macro que tu m'a envoyé mis 'à part:

Range("A2723:EH2740").Copy
Range("A2741").PasteSpecial

Range("AJ2741:AJ2748").Select

Sheets("Feuil6.1").Select

toutes autres lignes s'inscrivent aussi en rouge avec :Erreurde compilation
Erreur de syntax

Merci tout de même de ton intérêt

Virginie
 
Vote positif 0 Vote négatif
M

Minick

Guest
Salut,

J'ai preparer une base de travail qui devra etre ajusté en fonction de tes besoins.

Dans mon exemple:
- Je copie le dernier tableau créé
- Je mets les formules que tu nous as indiqué ( Ce qui n'est pas nécessaire si tu fais reference dans tes formules à des cellules ayant le meme decalage que tes tableaux, sinon il faudra adapter l'exemple afin de recalculer le decalage).

J'ai laissé en commentaire les formules d'origine pour avoir la base de travail.

Voila maintenant il ne reste plus qu'à savoir si c'est ce que tu recherchais et sinon avec un petit fichier joint cela devrait etre bocou plus simple de repondre à ta question( Avec les 2eme et 3eme tableau construits par exemple)

@+
Minick
 

Pièces jointes

  • virginie.zip
    14.3 KB · Affichages: 23
  • virginie.zip
    14.3 KB · Affichages: 21
  • virginie.zip
    14.3 KB · Affichages: 20
Vote positif 0 Vote négatif
V

virginie

Guest
Bonjour Minick

j'ai appliqué ta macro et la boucle fonctionne il ya juste un décalage
d'une ligne après chaque recopie des tableaux, mais je vais regarder
de plus près et je pense arriver a la faire disparaitre.


Hélas pour le fichier ex,il dépasse la taille autorisée donc impossible
a mettre sur le forum.

Merci d'avoir fait le plus important sans oublier pour autant les autres personnes qui y ont contribué .En Vba je nage encore beaucoup et même plus encore...



Bonne journée
@+ Virginie
 
Vote positif 0 Vote négatif
M

Minick

Guest
Salut,

Houla tu es matinale ( ou couche tard) ;o)

Si j'ai bien compri tu veux que le tableau suivant soit juste en dessous du dernier tableau sans faire d'espace comme je l'ai fait.
Il te suffit de change 2 variables pour cela:

NbrLine = 17 'a la place de NbrLine = 18
LastLine = Range("T65536").End(xlUp).Row 'a la place de LastLine = Range("T65536").End(xlUp).Row +1

@+
Minick
 
Vote positif 0 Vote négatif

Discussions similaires

S
  • Résolu(e)
Autres ActiveWorkbook.Worksheets("vierge").AutoFilter.Sort.SortFields.Clear
2
Réponses
23
Affichages
1 K
AtTheOne
AtTheOne
C
  • Résolu(e)
Microsoft 365 Formule qui ralenti ma macro
2
Réponses
15
Affichages
3 K
mapomme
mapomme
C
  • Question
CREATION DE PLUSIEURS TCD VBA
2
Réponses
23
Affichages
3 K
Charles78
C
D
  • Question
XL 2013 Macro VBA conversion fichier tsv en csv
2
Réponses
22
Affichages
3 K
Robert
Robert
M
  • Question
Erreur d’exécution pour un copier coller
Réponses
6
Affichages
1 K
Matta
M
Y
  • Question
XL 2016 Macro calcul complexe
Réponses
8
Affichages
1 K
youpi457032
Y
Magic_Doctor
  • Question
XL 2010 Une fonction qui sature
Réponses
8
Affichages
1 K
Magic_Doctor
Magic_Doctor
C
  • Question
XL 2013 Absence de prompt enregistrement après macro
Réponses
3
Affichages
832
Lone-wolf
Lone-wolf
C
  • Question
VBA reproduire une macro sur plusieurs lignes avec insertion de lignes
Réponses
13
Affichages
3 K
Paf
Paf
A
  • Question
XL 2010 Boucle pour macro "copier-coller"
Réponses
8
Affichages
4 K
Patrice33740
Patrice33740

Membres actuellement en ligne

3 membres et 40 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 105
Messages
2 085 350
Membres
102 870
dernier inscrit
Armisa