Faire une boucle pour copier une valeur coller formule
Margotti
Messages postés
1
Date d'inscription
Statut
Membre
Dernière intervention
-
Frenchie83 Messages postés 2240 Date d'inscription Statut Membre Dernière intervention -
Frenchie83 Messages postés 2240 Date d'inscription Statut Membre Dernière intervention -
Bonjour !
J'ai suivi une formation express sur excel mais on n'a guère plus appris à enregistrer une macro.
J'ai un fichier avec des nom de villes différentes dans la colonne A et dans les colonnes B à DQ, j'ai des formules qui sont liées à d'autres classeurs (un classeur pour chaque ville, ils sont tous identiques pour toutes les villes). J'ai donc copier coller la première ligne sur toutes les suivantes mais maintenant je dois faire des copier (je copie le nom de la ville), remplacer _Ales (c'est la première ville de ma liste) par le nom de ma nouvelle ligne _Creil par exemple.
Quand j'enregistre une macro ça donne ça :
Sub remplace()
'
' remplace Macro
'
' Touche de raccourci du clavier: Ctrl+r
'
ActiveCell.FormulaR1C1 = "Courrieres"
Rows("14:14").Select
Selection.Replace What:="_Ales", Replacement:="_Courrieres", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("A15").Select
ActiveCell.FormulaR1C1 = "Creil"
Rows("15:15").Select
Selection.Replace What:="_Ales", Replacement:="_Creil", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("A16").Select
ActiveCell.FormulaR1C1 = "Dijon"
Rows("16:16").Select
Selection.Replace What:="_Ales", Replacement:="_Dijon", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
Il faudrait que j'arrive à déclarer une variable et que je fasse une boucle pour tant qu'il y ait une valeur dans les cellules de la colonne A, excel remplace le nom _Ales par le contenu de la première cellule de la première ligne. J'ai testé des choses mais je n'y arrive pas, je ne crois pas que ce soit difficile mais bon je tourne en rond....
J'ai suivi une formation express sur excel mais on n'a guère plus appris à enregistrer une macro.
J'ai un fichier avec des nom de villes différentes dans la colonne A et dans les colonnes B à DQ, j'ai des formules qui sont liées à d'autres classeurs (un classeur pour chaque ville, ils sont tous identiques pour toutes les villes). J'ai donc copier coller la première ligne sur toutes les suivantes mais maintenant je dois faire des copier (je copie le nom de la ville), remplacer _Ales (c'est la première ville de ma liste) par le nom de ma nouvelle ligne _Creil par exemple.
Quand j'enregistre une macro ça donne ça :
Sub remplace()
'
' remplace Macro
'
' Touche de raccourci du clavier: Ctrl+r
'
ActiveCell.FormulaR1C1 = "Courrieres"
Rows("14:14").Select
Selection.Replace What:="_Ales", Replacement:="_Courrieres", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("A15").Select
ActiveCell.FormulaR1C1 = "Creil"
Rows("15:15").Select
Selection.Replace What:="_Ales", Replacement:="_Creil", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("A16").Select
ActiveCell.FormulaR1C1 = "Dijon"
Rows("16:16").Select
Selection.Replace What:="_Ales", Replacement:="_Dijon", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
Il faudrait que j'arrive à déclarer une variable et que je fasse une boucle pour tant qu'il y ait une valeur dans les cellules de la colonne A, excel remplace le nom _Ales par le contenu de la première cellule de la première ligne. J'ai testé des choses mais je n'y arrive pas, je ne crois pas que ce soit difficile mais bon je tourne en rond....
A voir également:
- Faire une boucle pour copier une valeur coller formule
- Comment copier une vidéo youtube - Guide
- Historique copier coller - Guide
- Formule si et - Guide
- Copier coller pdf - Guide
- Copier-coller - Accueil - Informatique
1 réponse
Bonjour
en commençant à partir de la ligne 17, (à la suite de ce que vous avez déjà fait), les noms des villes étant en colonne A.
Cdlt
en commençant à partir de la ligne 17, (à la suite de ce que vous avez déjà fait), les noms des villes étant en colonne A.
Option Compare Text
Sub Remplace()
Dim Ville
Application.ScreenUpdating = False
PremièreLigne = 17
For i = PremièreLigne To [A100000].End(xlUp).Row
Ville = "_" & Cells(i, 1)
Rows(i).Select
Selection.Replace What:="_Ales", Replacement:=Ville, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Next i
End Sub
Cdlt