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]

Bonjour,

A tester

 

[ChTi160]

Bonjour Max
Bonjour M12
Bonjour le Forum
Une approche perfectible !
Bonne journée
jean marie

 

[ChTi160]

Re
je viens de tester la procédure de M12
Pour que cela tourne sans problème d 'effacement de la cellule "B5"
j'ai du modifier la Ligne suivant :

Dl = Range("A" & Rows.Count).End(xlUp).Row 
en Dl = Range("A" & Rows.Count).End(xlUp).Row + 1

je n'ai pas dans ma proposition inclus l'effacement de la pllage cible lol
Bonne journée
jean marie

 

[ChTi160]

Re
j'ai modifié la procédure de mon fichier (à tester)

Option Explicit
Dim DerLgn As Integer
Dim Lgn As Integer
Dim StrWord As String
Dim Nbr As Integer
Public Sub test()
    With Feuil1
         Nbr = .Cells(3, 10) 'On récupére le Nombre de fois
     StrWord = .Cells(5, 2) 'oN récupére le texte
If StrWord = "" Then Exit Sub 'si pas de texte on quitte
       With .Range(.Cells(5, 1), .Cells(10000, 2)) ' avec la plage ainsi définie
            .ClearContents 'on l'efface
            .Cells(1, 1).Resize(, 2) = Array(1, StrWord)'On colle  dans la première  plage cible            
       End With
     For Lgn = 2 To Nbr 'pour chaque ligne de la deuxième à la X
       DerLgn = .Cells(.Rows.Count, 2).End(xlUp).Row + 1 'on détermine la cligne cible
         .Cells(DerLgn, 1).Resize(, 2) = Array(Lgn, StrWord) 'on  colle dans la plage ainsi définie les éléments
     Next Lgn
    End With
End Sub

Edit : à 8:55
Bonne journée
jean marie

 

[maval]

Bonjour M12, Jean-Marie

Je vous remercie beaucoup et vous souhaite un bon dimanche

 

[maval]

Re Jean Marie

Je te remercie. Pourrais tu me dire comment je peut mettre en VBA cette Formule.

=SI(ESTVIDE(A5);" ";"><tspan x=""0"" y=""0"" class=""texte"">"&A5&"</tspan><tspan x=""0"" y=""0"" class=""texte"" baseline-shift=""super"">ére</tspan><tspan x=""0"" y=""0"" class=""texte"">"&B5&"</tspan></text>")

ou mon fichier

 

[job75]

Bonjour maval, M12, Jean-Marie,

Eviter les boucles quand c'est possible :

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
End Sub

A+

 

[ChTi160]

Re
pas évident de comprendre
à quoi correspondent les Mot "texte" et "super" et x et y sont ils toujours = à 0
peux tu mettre des exemple de ce que doit contenir la formule .
exemple :

=SI(ESTVIDE(A5);" ";"><tspan x=""0"" y=""0"" class=""texte"">"& A5 &"</tspan><tspan x=""0"" y=""0"" class=""texte"" baseline-shift=""super"">ére</tspan><tspan x=""0"" y=""0"" class=""texte"">"& B5 &"</tspan></text>")

dans l'attente
jean marie

 

[maval]

Re

Seul les texte en rouge change en fonction des colonnes "A & B"

 

[M12]

Re, & Bonjour à ceux que je n'ai pas salué

A tester

 

[job75]

Re,

Pour le dernier problème :

Sub Test()
'---résultats en colonne D---
Dim c As Range
If Application.Count([A:A]) = 0 Then Exit Sub
For Each c In [A:A].SpecialCells(xlCellTypeConstants, 1)
    c.Name = "a": c(1, 2).Name = "b" 'cellules nommées
    c(1, 4) = [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>")]
    If [a] = 1 Then c(1, 4).Replace "ème", "ère", xlPart
Next
End Sub

A+

 

[maval]

Re M12

J'ai une erreur à la place &i je devrais avoir la correspondance de la colonne "A" soit 1

><tspan x="0" y="0" class="texte">"&i</tspan><tspan x="0" y="0" class="texte" baseline-shift="super">ére</tspan><tspan x="0"" y="0" class="texte">Circonscription</tspan></text>")

Merci

 

[M12]

Re
Re vérifie avec mon exemple, je l'avais modifié

 

[maval]

Bonjour Job

Je vous remercie sa fonctionne Nickel comme toujours
Question peut rassembler votre 1er code #7 avec le #11
en un seul code

Merci et bon dimanche

Max