Copier/Coller N Nombre de fois

[maval]

Bonjour,

J'ai sur une feuille en colonne A des chiffre et en colonne B un texte "Circonscription"

Suivant le nombre qui se trouve dans la cellule "J3" je voudrais copier/ coller le texte et les chiffre.
Mon fichier exemple seras plus explicite.

Merci d'avance

Max

 

[M12]

Re,
Sur changement de la valeur en J3

 

[job75]

Re,

Question peut rassembler votre 1er code #7 avec le #11
en un seul code

Il vous arrive de travailler maval ???

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 2 Or Target(1) = "" Then Exit Sub
Cancel = True
Target(1, 0) = 1
Target(1, 0).Resize([J3]).DataSeries
Target.Resize([J3]) = Target
Columns(1).AutoFit
'---résultats en colonne D---
Dim c As Range
For Each c In Target(1, 0).Resize([J3])
    c.Name = "a": c(1, 2).Name = "b" 'cellules nommées
    c(1, 4) = ["><tspan x=""0"" y=""0"" class=""texte"">"&a&"</tspan><tspan x=""0"" y=""0"" class=""texte"" baseline-shift=""super"">ème</tspan><tspan x=""0"" y=""0"" class=""texte"">"&b&"</tspan></text>"]
    If [a] = 1 Then c(1, 4).Replace "ème", "ère", xlPart
Nex
End Sub

A+

 

[job75]

Re,

Beaucoup mieux, l'entrée d'une formule matricielle évite la boucle :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 2 Or Target(1) = "" Then Exit Sub
Cancel = True
Target(1, 0) = 1
Target(1, 0).Resize([J3]).DataSeries
Target.Resize([J3]) = Target
Columns(1).AutoFit
'---résultats en colonne D---
Target(1, 0).Resize([J3]).Name = "a": Target.Resize([J3]).Name = "b" 'plages nommées
Target(1, 3).Resize([J3]).FormulaArray = "=IF(ISBLANK(a),"" "",""><tspan x=""""0"""" y=""""0"""" class=""""texte"""">""&a&""</tspan><tspan x=""""0"""" y=""""0"""" class=""""texte"""" baseline-shift=""""super"""">ème</tspan><tspan x=""""0"""" y=""""0"""" class=""""texte"""">""&b&""</tspan></text>"")"
Target(1, 3).Resize([J3]) = Target(1, 3).Resize([J3]).Value 'supprime la formule
Target(1, 3).Replace "ème", "ère", xlPart
End Sub

Tous les guillemets " ont été doublés dans la formule.

Fichier (3).

A+

 

[ChTi160]

Bonsoir Max
Bonsoir le Fil,le Forum
une autre approche perfectible !
Edit le fichier a été changé , ErreurLol
Bonne fin de Soirée
jean marie