Faire des étiquettes

Bonjour, le faire en publipostage depuis word ne pose aucun problème. Il y a
des modèles type d'étiquettes et tu peux les dimensionner a ton choix.


Cordiales salutations de Christian.
www.chez.com/planquart
http://www.atpic.com/34
"Bruno ALEMANNO" <balemanno@skynet.be> a écrit dans le message de news:
445a0778$0$23305$ba620e4c@news.skynet.be...

Bonjour à tous le groupe,

Je souhaiterais créer des étiquettes,
J'ai une base de données et je souhaiterais par l'action d'un bouton de
commande
copier le contenu de la cellule b2 et à la ligne le contenu de la cellule
b3 et ainsi de suite ...
pour avoir dans une autre feuille "Etiquettes" et dans une seule cellule
ses valeurs
Pour info, ma feuille "Etiquettes" est de 12 cellules hauteur 135 largeur
50

:-)
--
Merci au groupe pour la réponse
Salutation
Bruno

Merci Christian,

Mais y aurait-il possibilité de le réaliser dans excel

Salutation
Crole

|Mais y aurait-il possibilité de le réaliser dans excel

On peut réaliser une bidouille pour imprimer des pages d'étiquettes mais ça
reste toujours de l'à-peu-près !
Faut faire et refaire des tests pour corriger à la mano !
Pas de cohérence entre les dimensions des pages des étiquettes ato-collantes et
les hauteurs de lignes, lergeurs de colonne dans XL

AV

Merci je vais faire comme christian à dit
Bonne journée à tous

Salut Crole,
Un début de solution peut être ici.

http://cjoint.com/?ferbXPdnsL

A finaliser, car tous les tests ne sont pas faits.
Par contre je reste convaincu que la méthode de christian reste la meilleure
!!!!!

@+ Lolote

"Bruno ALEMANNO" <balemanno@skynet.be> a écrit dans le message de news:
445a0778$0$23305$ba620e4c@news.skynet.be...

Bonjour à tous le groupe,

Je souhaiterais créer des étiquettes,
J'ai une base de données et je souhaiterais par l'action d'un bouton de
commande
copier le contenu de la cellule b2 et à la ligne le contenu de la cellule
b3 et ainsi de suite ...
pour avoir dans une autre feuille "Etiquettes" et dans une seule cellule
ses valeurs
Pour info, ma feuille "Etiquettes" est de 12 cellules hauteur 135 largeur
50

:-)
--
Merci au groupe pour la réponse
Salutation
Bruno

Bonjour Lolote
Génial tu es dans le bon
je regarde de mon coté pour l'adapter

Merci à +
Bruno

pfttttttttt
j'en fais des tonnes chaque année et je m'en porte pas trop mal...une fois
que le cadre est bâti, certes à coups de tests....
viens à marseille, alain et je t'explique
jps

"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de news:
eEZRKc4bGHA.1276@TK2MSFTNGP03.phx.gbl...

|Mais y aurait-il possibilité de le réaliser dans excel

On peut réaliser une bidouille pour imprimer des pages d'étiquettes mais
ça
reste toujours de l'à-peu-près !
Faut faire et refaire des tests pour corriger à la mano !
Pas de cohérence entre les dimensions des pages des étiquettes
ato-collantes et
les hauteurs de lignes, lergeurs de colonne dans XL

AV

Re Lolote

Quelques explications un peu plus claire
1 feuille nommée "Base"
Dans celle-ci et en ligne j'ai Nom B2,Prénom C2,Adresse D2,CP
D4,Ville D5
Je souhaiterais par l'action d'un bouton_clic
Avoir dans une feuille nommée "Etiquettes" et En A1 la valeur de
Base B2+C2 à la ligne D2 à la ligne E2 + F2 et toujours dans la
feuilles "Etiquettes" et en B1 la valeur de
Base B3+B3 à la ligne D3 à la ligne E3 + F3 et toujours dans la
feuilles "Etiquettes" et en A2 la valeur de
et ainsi de suite

Merci Lolote
Crole

Macro conçue pour 2000 étiquettes , à adapter
Sub Ecriture()
Dim plg As Range, PlgB As Range, C As Object, A$, i#, j!, OptCalc,
Varinter$(499, 3)
Application.ScreenUpdating = False
OptCalc = Application.Calculation
Application.Calculation = xlCalculationManual
Sheets("Etiquettes").Activate
Sheets("Etiquettes").Cells.Select
With Selection
.ShrinkToFit = True
.HorizontalAlignment = xlCenter

.VerticalAlignment = xlCenter
.ColumnWidth = 33.14
.RowHeight = 70.5
End With
Columns("A:D").Select
ActiveSheet.PageSetup.PrintArea = "$A:$D"

Set plg = Feuil2.Range("A1:D500")
Set PlgB = Sheets("Base").Range("A2:F2000")


For Each C In Sheets("Base").Range("A2:A2000")

Sheets("Etiquettes").Cells(i + 1, j + 1).Select
With Selection.Font
.FontStyle = "Gras"
.Size = 12
End With
A = C.Value & " " & C.Offset(0, 1).Value & Chr(10) & C.Offset(0, 4).Value &
" " & C.Offset(0, 5).Value
If C.Value = "" Then
plg.Value = Varinter()
Set plg = Nothing
Set PlgB = Nothing
Set C = Nothing
Exit Sub
End If
Varinter(i, j) = A
If j = 3 Then
i = i + 1
End If
j = j + 1 + (j = 3) * 4

Next

Set plg = Nothing
Set PlgB = Nothing
Set C = Nothing
Application.Calculation = OptCalc
End Sub
"crole" <contactbruno@skynet.be> a écrit dans le message de news:
1146758066.871698.236890@v46g2000cwv.googlegroups.com...
Re Lolote

Quelques explications un peu plus claire
1 feuille nommée "Base"
Dans celle-ci et en ligne j'ai Nom B2,Prénom C2,Adresse D2,CP
D4,Ville D5
Je souhaiterais par l'action d'un bouton_clic
Avoir dans une feuille nommée "Etiquettes" et En A1 la valeur de
Base B2+C2 à la ligne D2 à la ligne E2 + F2 et toujours dans la
feuilles "Etiquettes" et en B1 la valeur de
Base B3+B3 à la ligne D3 à la ligne E3 + F3 et toujours dans la
feuilles "Etiquettes" et en A2 la valeur de
et ainsi de suite

Merci Lolote
Crole

Bonjour Fredo,

Merci à toi de te pencher sur mon problème

j'ai essayé mais il bogue sur la ligne

Columns("A:D").Select
Et je ne sais pas pourquoi
Merci
Salutation
Crole