Discussion :

[stephadm]

bonjour au forum,

Je souhaite écrire un texte un certain nombre de fois à la suite de la première cellule sélectionnée.
CBoxNombre = le nombre de fois dont sera copier le texte
PDepart = le départ de la copie sachant que la feuille contient 3 colonnes (A, B et C) sur 22 lignes
TextEtiquette = texte à dupliquer

Exemple : TextEtiquette = A consommer avant le 15/01/2013, CBoxNombre = 8 et PDepart = B2

le résultat du code VBA devra donc écrire une première fois dans feuille1 en B2 puis dupliquer 7 fois ce qui donne copie dans C2, A3, B3, C3, A4, B4 et C4.

Comment faire ?

Merci

Stephanie

[stephadm]

bonjour au forum,

Je me répond à moi même. Voici le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Dim TextEtiquette As String, PremLig As String, SecLig As String, TrLig As String
Dim Indice As Integer
Dim PDepart As String
Dim I As Integer
 
  If Me.CBoxNombre.ListIndex = -1 Then
    MsgBox "Veuillez indiquez une quantité"
    Exit Sub
  Else
    PDepart = "B2"
 
'Première ligne qui sera mise au format gras
    PremLig = CBoxProduit & " - " & CBoxMarque & Chr(10)
'Deuxième ligne sans modification du format
    SecLig = "Mise en conditionnement le : " & TxtBoxDate & Chr(10)
'Troisième  ligne qui sera mise au format italique
    TrLig = "A consommer avant le " & TxtBoxDLC
 
    TextEtiquette = PremLig & SecLig & TrLig
 
    With Sheets(1)
      With .Range(PDepart)
        .Value = TextEtiquette
'Application de format pour les lignes ci dessus
        .Characters(Start:=1, Length:=Len(PremLig)).Font.Bold = True
        .Characters(Start:=Len(PremLig) + Len(SecLig), Length:=Len(TrLig)).Font.Italic = True
      End With
      Indice = ((.Range(PDepart).Row - 1) * 3) + .Range(PDepart).Column - 1
      For I = 1 To Val(Me.CBoxNombre) - 1
        Indice = Indice + 1
        .Range(PDepart).Copy Destination:=.Cells(1 + (Indice) \ 3, 1 + ((Indice) Mod 3))
      Next I
    End With
  End If

et qui fonctionne. Dans ce code, j'ai applique une mis en page du texte pour l'étiquette.

Stephanie