XL 2013 ActiveCell.FormulaR1C1 = _

[mabord88]

Bonjour,

Je ne suis pas un programmeur.
J'ai créer la macros si bas
Je souhaite exécuter ma macro avec cette donnée changeante chaque fois

ActiveCell.FormulaR1C1 = _
"0508 Ace Invest 48 St-Jean-Baptiste Rigaud 2017"

Il s'agit d'un nom de client qui change à chaque fois que j'en crée en autre.

Merci de m'aider ou de me dire quoi écrire comme code ou encore si c'est possible

Merci beaucoup

mabord88





Sub CreateNew()
'
' CreateNew Macro
'

'
ActiveCell.Offset(-5, 0).Range("A1").Select
Selection.Copy
ActiveCell.Offset(0, 1).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveCell.Rows("1:1").EntireRow.Select
Selection.Copy
ActiveCell.Offset(7, 0).Rows("1:1").EntireRow.Select
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
ActiveCell.Offset(-7, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = _
"0508 Ace Invest 48 St-Jean-Baptiste Rigaud 2017"
Application.CutCopyMode = False
ActiveCell.Offset(5, -1).Range("A1").Select
Application.CutCopyMode = False
ActiveWorkbook.Save
Application.CutCopyMode = False
End Sub

 

[cathodique]

Bonjour Mabord88, bienvenu sur le forum

Avec un fichier avec des données "BIDONS", tu auras plus de chance d'avoir une réponse.

Explique ton problème et quel résultat tu veux obtenir.

Bonne journée.