Macro excel
jibs
-
gbinforme Messages postés 15481 Date d'inscription Statut Contributeur Dernière intervention -
gbinforme Messages postés 15481 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
je ne suis pas un expert en programmation.
J'ai un excel avec des données sur 20 lignes admettons. J'ai fait un enregistrement d'une macro qui me permet d'affecter les valeurs présentes sur 1 ligne dans une autre feuille à différents endroits où j'en ai besoin.
Mais cela ne foncionne que pour 1 ligne et il faudrait que cela réalise l'opération pour les 20 lignes. J'ai pensé à une boucle for mais je n'arrive pas à comprendre comment repérer les lignes. Voilà un extrait de mon code
' Macro3 Macro
'
'
Sheets("Datasheet").Select
Sheets("Datasheet").Copy Before:=Sheets(18)
Range("J6:Q6").Select
ActiveCell.FormulaR1C1 = "='A1. ELA hot condition'!R[14]C[-1]"
Range("E17:F17").Select
ActiveCell.FormulaR1C1 = "='A1. ELA hot condition'!R[i]C[5]"
Range("G17:H17").Select
ActiveCell.FormulaR1C1 = "='A1. ELA hot condition'!R[i]C[4]"
Range("I17:J17").Select
ActiveCell.FormulaR1C1 = "='A1. ELA hot condition'!R[i]C[3]"
Range("K17:L17").Select
ActiveCell.FormulaR1C1 = "='A1. ELA hot condition'!R[i]C[2]"
Range("K18:L18").Select
Sheets("Datasheet (2)").Select
Range("E18:F18").Select
ActiveCell.FormulaR1C1 = "='A1. ELA hot condition'!R[2]C[9]"
Range("G18:H18").Select
ActiveCell.FormulaR1C1 = "='A1. ELA hot condition'!R[2]C[8]"
Range("I18:J18").Select
ActiveCell.FormulaR1C1 = "='A1. ELA hot condition'!R[2]C[7]"
Range("K18:L18").Select
ActiveCell.FormulaR1C1 = "='A1. ELA hot condition'!R[2]C[6]"
Sheets("Datasheet").Select
Sheets("Datasheet").Copy Before:=Sheets(19)
End Sub
Voilà pouvez-vous me filer un coup de main?
je ne suis pas un expert en programmation.
J'ai un excel avec des données sur 20 lignes admettons. J'ai fait un enregistrement d'une macro qui me permet d'affecter les valeurs présentes sur 1 ligne dans une autre feuille à différents endroits où j'en ai besoin.
Mais cela ne foncionne que pour 1 ligne et il faudrait que cela réalise l'opération pour les 20 lignes. J'ai pensé à une boucle for mais je n'arrive pas à comprendre comment repérer les lignes. Voilà un extrait de mon code
' Macro3 Macro
'
'
Sheets("Datasheet").Select
Sheets("Datasheet").Copy Before:=Sheets(18)
Range("J6:Q6").Select
ActiveCell.FormulaR1C1 = "='A1. ELA hot condition'!R[14]C[-1]"
Range("E17:F17").Select
ActiveCell.FormulaR1C1 = "='A1. ELA hot condition'!R[i]C[5]"
Range("G17:H17").Select
ActiveCell.FormulaR1C1 = "='A1. ELA hot condition'!R[i]C[4]"
Range("I17:J17").Select
ActiveCell.FormulaR1C1 = "='A1. ELA hot condition'!R[i]C[3]"
Range("K17:L17").Select
ActiveCell.FormulaR1C1 = "='A1. ELA hot condition'!R[i]C[2]"
Range("K18:L18").Select
Sheets("Datasheet (2)").Select
Range("E18:F18").Select
ActiveCell.FormulaR1C1 = "='A1. ELA hot condition'!R[2]C[9]"
Range("G18:H18").Select
ActiveCell.FormulaR1C1 = "='A1. ELA hot condition'!R[2]C[8]"
Range("I18:J18").Select
ActiveCell.FormulaR1C1 = "='A1. ELA hot condition'!R[2]C[7]"
Range("K18:L18").Select
ActiveCell.FormulaR1C1 = "='A1. ELA hot condition'!R[2]C[6]"
Sheets("Datasheet").Select
Sheets("Datasheet").Copy Before:=Sheets(19)
End Sub
Voilà pouvez-vous me filer un coup de main?
A voir également:
- Macro excel
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Si ou excel - Guide
- Déplacer colonne excel - Guide
1 réponse
Bonjour,
Si tu pouvais nous mettre un exemple sans éléments personnels mais avec la structure des données sur https://www.cjoint.com/ puis nous mettre le lien généré ici ce serait plus facile de t'aider.
Si tu pouvais nous mettre un exemple sans éléments personnels mais avec la structure des données sur https://www.cjoint.com/ puis nous mettre le lien généré ici ce serait plus facile de t'aider.
